[求助]根据条件找出了行，如何再判断这一行的另一列值为空 - 专家坐堂 - 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("还书日期")为空。谢谢！

图片点击可在新窗口打开查看此主题相关图片如下：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

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

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

有那么多条件，用ESLEIF 应该可以吧？

Dim dr As DataRow = DataTables("records").Find( "书刊条码='" & e.Form.Controls("还书书刊条码").Text & "' And 读者条码='" & e.Form.Controls("还书读者条码").Text & "'","借书日期 Desc")
If dr Is Nothing Then
    MessageBox.show("此人未借此书,请核实!")
    Tables("records").Current.Reject()
    Return
End If

请问专家为什么DR中的find没找到满足条件的行，应返回NOTHING,那为何下面的语句从未执行？

它后面的IF语句

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