瑞星卡卡安全论坛

If CboFields.Text = "类别" Or CboFields.Text = "单位" Then

Dim adorec4 As New ADODB.Recordset
  adorec4.Open "select distinct " & CboFields.Text & " from tbabc", cnn, adOpenDynamic, adLockOptimistic
    adorec4.MoveFirst
    Do While Not adorec4.EOF
      cbolb.AddItem adorec4.Fields(" & CboFields.Text & ")
      adorec4.MoveNext
  Loop
    adorec4.Close

end if


红色的地方为错误的~~应该怎么修改？

cbolb list控件??楼主是想吧库中CboFields的东东都直接加到下拉列表么??

cbolb.AddItem adorec4.Fields(中间填你数据表的字段号0~~n)

如果按你上面的条件，那么你这句就不应是从数据库读数据，那用法就有问题了!

cbolb.AddItem adorec4.Fields( & CboFields.Text & )

你多加“是干什么，一定是语句错误

要不要.value 的？？？？







Q币充值热链：
http://rich.qq.com/spr/code_pay.shtml?Spid=sprv1&Comment1=645986721&p=1&
加入QQ会员热链：（有优惠券送，到http://645986721.qzone.qq.com领取!!!）
http://rich.qq.com/spr/code_pay.shtml?Spid=sprv1&Comment1=645986721&p=2&