Question

VB组合框添加的数字无法显示

For i = 1 To rs.RecordCount
Combo4.AddItem Trim(rs.Fields("测点").Value)
rs.MoveNext
Next i
上面VB代码要在COMBO4中添加rs的测点字段，测点字段所有值都是文本1，为何运行时组合框不能显示数字1，但是下拉时有一个记录，无法显示，单机后组合框中显示1。其实如果是汉字字段就是正常的，请大侠帮忙指点一下，谢谢！

Answer 1

方法一：
修改如下：
dim n as integer
dim i as integer
rs.MoveLast
n=rs.RecordCount
rs.MoveFirst
for i=0 to n-1
Combo4.AddItem Trim(rs.Fields("测点").Value)
rs.MoveNext
Next i
Combo4.text=Combo4.list(0)

方法二：通常采用此法：
rs.MoveFirst
do while not rs.eof
Combo4.AddItem Trim(rs.Fields("测点").Value)
rs.MoveNext

loop
Combo4.text=Combo4.list(0)

Answer 2

rs.movefirst '加上这条语句试一试
For i = 1 To rs.RecordCount
Combo4.AddItem Trim(rs.Fields("测点").Value)
rs.MoveNext
Next i