VB null无效怎么解决？麻烦看看错在哪里？

来源：百度知道编辑：UC知道时间：2024/07/04 16:06:37

Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
DTPicker1.Value = Now
DTPicker2.Value = Now
Combo2.Text = ""
Adocn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;Data Source=20091204-0902"
Adors.Open "select kehugongchengmingchen from kehuxinxibiao", Adocn, adOpenKeyset, adLockOptimistic
Do While Not Adors.EOF
Combo1.AddItem Adors.Fields("kehugongchengmingchen")
Adors.MoveNext
Loop
Set Adors = Nothing
Set Adocn = Nothing

Adocn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=data;Data Source=20091204-0902"
Adors.Open "select yuangongxingming from yuangongxinxibiao", Adocn, adOpenKeyset, adLockOptim

Combo1.AddItem Adors.Fields("yuangongxingming").value

当Adors.Fields("yuangongxingming") 为NULL的时候
你希望combo如何添加的呢?
是添加空值?还是不添加?
添加空值可以
Adors.Fields("yuangongxingming") & ""
如果不添加那就先用isnull判断一下

VB连接数据库问题实时错误94 无效使用NULL 求救:无效使用NULL VB NULL值问题句柄无效，怎么解决？怎么解决三国群英传5中出现的NULL字符？无效使用Null: 'Split' 无效使用 Null: 'clng' 急救!无效使用 Null: 'Cint' USB接口无效？怎么解决？键盘鼠标无效怎么解决？