Question

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

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, adLockOptimistic
Do While Not Adors.EOF
Combo1.AddItem Adors.Fields("yuangongxingming")
Adors.MoveNext
Loop
Set Adors = Nothing
Set Adocn = Nothing
End Sub
运行是提示Combo1.AddItem Adors.Fields("yuangongxingming") null无效

Answer 1

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

Answer 2

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