向COMBOX添加后不显示出来
SQL = "select * from 表1 "
rs.Open SQL, con, 1, 1
Do While Not rs.EOF
Me.Combo1.AddItem rs.Fields("款式")
rs.MoveNext
Loop
COMBO1 里面显示出来了但是 我向里面添加之后,刚添加的东东没有显示出来,
我把上面的代码加入到定时里时间为800 也能显示了刚添加的了,不过就是一直重复显示
我在里面添加了DELETE ,我想删除里面的内容,再写入COMBO1 但语法不正常
SQL = "select * from 表1 "
rs.Open SQL, con, 1, 1
ME.COMBO1.ADDITEM RS.DELETE("款式")
Do While Not rs.EOF
Me.Combo1.AddItem rs.Fields("款式")
rs.MoveNext
Loop
[解决办法]
把这段代码放到form_load事件中