vb6提示无效使用null
代码段：CallMyOpenrst.Open"select*fromTongXunClass",conn,2,3cmbClass.ClearDoWhileNotrst.E...
代码段：
Call MyOpen
rst.Open "select * from TongXunClass", conn, 2, 3
cmbClass.Clear
Do While Not rst.EOF
cmbClass.AddItem (Trim(rst(1)))
rst.MoveNext
Loop
执行到这一句时提示无效使用null
cmbClass.AddItem (Trim(rst(1))) 说明rst(0)是自动编号的idrst(1)是类别名称 展开
Call MyOpen
rst.Open "select * from TongXunClass", conn, 2, 3
cmbClass.Clear
Do While Not rst.EOF
cmbClass.AddItem (Trim(rst(1)))
rst.MoveNext
Loop
执行到这一句时提示无效使用null
cmbClass.AddItem (Trim(rst(1))) 说明rst(0)是自动编号的idrst(1)是类别名称 展开
1个回答
展开全部
这是因为你的Rst(1)这一列中有"空"值,你可以事先加个判断,不是空值才AdditemIf Not IsNull(rst(1)) Then cmbClass.AddItem (Trim(rst(1)))
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
