.
.
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With mrc
txtticket = .Fields(0)
txtItem(0) = .Fields(7)
txtItem(1) = .Fields(11)
End With
End If
.
txtItem(1)是文本框,也即是用来显示备注信息,.Fields(11)对应的是数据库中一个表的备注字段。当赋值给txtItem(1)时出错,说是空值,不能赋值。请问是不是要还要判断是不是空值?
在此先谢了,多谢各位高手指教。谢谢!!
.
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With mrc
txtticket = .Fields(0)
txtItem(0) = .Fields(7)
txtItem(1) = .Fields(11)
End With
End If
.
txtItem(1)是文本框,也即是用来显示备注信息,.Fields(11)对应的是数据库中一个表的备注字段。当赋值给txtItem(1)时出错,说是空值,不能赋值。请问是不是要还要判断是不是空值?
在此先谢了,多谢各位高手指教。谢谢!!
txtItem(1) =iif(isnull(.Fields(11)),"",.Fields(11))
或者txtItem(1) = .Fields(11) & ""