Dim strSQL, str1 As String
Dim ADOrs As New Recordset

ADOrs.ActiveConnection = ADOcn
strSQL = "select * from phone"
ADOrs.Open strSQL

str1 = "联系人" + vbTab + "QQ" + vbTab + "手机" + vbTab + "座机" + vbTab + "出生日期"
With MSFlexGrid1
.Clear
.Rows = 0
.Cols = 5
.AddItem str1
Do While Not ADOrs.EOF
str1 = ADOrs.Fields(0) + vbtab+ADOrs.Fields(1)'这儿为什么说adors.fields(1)是NULL,我明明定义了4个字段呀
.AddItem str1
ADOrs.MoveNext
Loop
.FixedRows = 1
End With

是你的字段值为Null...

嗯,对呀,我没给字段设值
难道不设置就要出错?
非要设值不能为空吗?
怎么解决?

你在使用之前判断一下就ok
if not isNull(rs("手机号").value) then
'在这里执行..
end if

把《 str1 = ADOrs.Fields(0) + vbtab+ADOrs.Fields(1)'》
改成

str1 = ADOrs!手机 & "" & vbtab & ADOrs!QQ & ""

[此贴子已经被作者于2006-10-23 12:03:24编辑过]