- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]根据条件找出了行，如何再判断这一行的另一列值为空 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97466)
-- 发布时间：2017/3/13 11:02:00
-- [求助]根据条件找出了行，如何再判断这一行的另一列值为空
此主题相关图片如下：1.png
Dim dr As DataRow
dr = DataTables("records").Find( "书刊条码=\'" & e.Form.Controls("还书书刊条码").Text & "\' And 读者条码=\'" & e.Form.Controls("还书读者条码").Text & "\'")
已找到了相应的行，请问专家如何再判断DR("还书日期")为空。谢谢！
-- 发布时间：2017/3/13 11:03:00
--
已找到了相应的行，请问专家如何再判断DR("还书日期")为空。谢谢！
-- 发布时间：2017/3/13 11:13:00
--
If dr IsNot Nothing and dr.isnull("还书日期") Then
dr("还书日期") = Date.Today
end if
-- 发布时间：2017/3/13 11:15:00
--
dr.IsNull("还书日期")
-- 发布时间：2017/3/13 11:32:00
--
此主题相关图片如下：2.png
出现了这个提示
-- 发布时间：2017/3/13 11:35:00
--
将整个代码贴出来看看.
-- 发布时间：2017/3/13 12:49:00
--
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
-- 发布时间：2017/3/13 12:49:00
--
请专家们帮忙看看如何修改红色代码，谢谢！
-- 发布时间：2017/3/13 14:18:00
--
将整个代码贴出来了，请专家帮忙看看. 谢谢。
-- 发布时间：2017/3/13 14:24:00
--
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