错误代码94：无效使用Null值，不知判断错误在哪，请指教
DimsqlbhAsStringsqlbh="SelectMax(单据编号)asdafrompjdjwhere用户like'"&user.myuser&"'and报账日期...
Dim sqlbh As String
sqlbh = "Select Max(单据编号) as da from pjdj where 用户 like'" & user.myuser & "'and 报账日期 like '" & DTPicker1.Value & "'"
rs.Open sqlbh, cnn, 1, 3
If rs.RecordCount > 0 Then
MsgBox rs("da")
j = rs("da")
Else
j = 0
End If
rs.Close
Set rs = Nothing 展开
sqlbh = "Select Max(单据编号) as da from pjdj where 用户 like'" & user.myuser & "'and 报账日期 like '" & DTPicker1.Value & "'"
rs.Open sqlbh, cnn, 1, 3
If rs.RecordCount > 0 Then
MsgBox rs("da")
j = rs("da")
Else
j = 0
End If
rs.Close
Set rs = Nothing 展开
1个回答
展开全部
用if isnull(rs(0).value)=true来判断
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
启帆信息
2024-11-19 广告
启帆信息是英伟达中国区代理商,原厂授权代理，提供全面的软件技术解决方案以及NVIDIA以太网产品、交换机等产品,欢迎前来咨询!...
点击进入详情页
本回答由启帆信息提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
