if isNull(rs("colname")) then yourvalue="Empty" else yourvalue=rs("colname") end iftext1.text=yourvalue
to Cooly(苦力) 我用了DTPicker和DataGrid两个控件来连接数据(日期、时间) yourvalue改如何表示? For Each oDTPicker In Me.DTPicker1 If IsNull(adoPrimaryRS.Fields("出生日期")) Then DTPicker1(3).Value = "Empty" Else DTPicker1(3).Value = adoPrimaryRS.Fields("出生日期") End If 系统提示 非法属性值!!
yourvalue="Empty"
else
yourvalue=rs("colname")
end iftext1.text=yourvalue
我用了DTPicker和DataGrid两个控件来连接数据(日期、时间)
yourvalue改如何表示?
For Each oDTPicker In Me.DTPicker1
If IsNull(adoPrimaryRS.Fields("出生日期")) Then
DTPicker1(3).Value = "Empty"
Else
DTPicker1(3).Value = adoPrimaryRS.Fields("出生日期")
End If
系统提示 非法属性值!!
如果你的数据库该字段为空,就不要给DTPicker控件赋值(或赋值为Now())