[求助]根据条件找出了行，如何再判断这一行的另一列值为空 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

dvubb 此主题相关图片如下：1.png

Dim dr As DataRow
dr = DataTables("records").Find( "书刊条码='" & e.Form.Controls("还书书刊条码").Text & "' And 读者条码='" & e.Form.Controls("还书读者条码").Text & "'")

已找到了相应的行，请问专家如何再判断DR("还书日期")为空。谢谢！

If dr IsNot Nothing and dr.isnull("还书日期") Then

dr("还书日期") = Date.Today

end if

dr.IsNull("还书日期")

图片点击可在新窗口打开查看此主题相关图片如下：2.png

出现了这个提示

将整个代码贴出来看看.

MainTable=Tables("readers")
Dim drren As DataRow
drren = DataTables("readers").Find( "读者条码='" & e.Form.Controls("还书读者条码").Text & "'")
MainTable=Tables("books")
Dim drshu As DataRow
drshu = DataTables("books").Find( "书刊条码='" & e.Form.Controls("还书书刊条码").Text & "'")
If e.Form.Controls("还书书刊条码").Text="" Then
    MessageBox.show("请输入书籍条码!")
ElseIf e.Form.Controls("还书读者条码").Text="" Then
    MessageBox.show("请输入读者条码!")
ElseIf drshu Is Nothing Then
    MessageBox.show("请输入已登记入库的书籍条码!")
ElseIf drren Is Nothing Then
    MessageBox.show("请输入已登记入库的读者条码!")
ElseIf drshu("状态")="借出" Then
    drshu("状态")="可借"
    Tables("books").Save()
    MainTable=Tables("records")
    Dim dr As DataRow
    dr = DataTables("records").Find( "书刊条码='" & e.Form.Controls("还书书刊条码").Text & "' And 读者条码='" & e.Form.Controls("还书读者条码").Text & "'","借书日期 Desc")
'ElseIf dr IsNot Nothing And dr.isnull("还书日期") Then
    dr("还书日期")=Date.Now
    Tables("records").Current.Delete
    Tables("records").Save()
    MessageBox.show("书已登记归还,谢谢!")
Else
    MainTable=Tables("records")
    Tables("records").Current.Reject()
    MessageBox.show("该书已还或借还书信息不匹配,请核实!")
End If

请专家们帮忙看看如何修改红色代码，谢谢！

将整个代码贴出来了，请专家帮忙看看. 谢谢。

    Dim dr As DataRow
    dr = DataTables("records").Find( "书刊条码='" & e.Form.Controls("还书书刊条码").Text & "' And 读者条码='" & e.Form.Controls("还书读者条码").Text & "'","借书日期 Desc")
If dr IsNot Nothing And dr.isnull("还书日期") Then
    dr("还书日期")=Date.Now
    Tables("records").Current.Delete
    Tables("records").Save()
    MessageBox.show("书已登记归还,谢谢!")

end if
Else
    MainTable=Tables("records")
    Tables("records").Current.Reject()
    MessageBox.show("该书已还或借还书信息不匹配,请核实!")
End If

主题：[求助]根据条件找出了行，如何再判断这一行的另一列值为空