以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 查询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138044)
--  作者：long086
--  发布时间：2019/7/22 8:09:00
--  求助 查询
Dim str As String = Tables("用户资料").Current("账号")
Dim dr As DataRow = DataTables("用户交费表").Find("账号 =  \'" & str & "\'","结束时间 Desc")
tx.Text = dr("结束时间")

咨询一下老师，上面的查询代码，如果能查到，然后赋值是正常的，如果没有查到，系统就报错，怎样实现查不到系统不报错，或者有提示。应该怎样加一段代码，谢谢。
[此贴子已经被作者于2019/7/22 8:11:53编辑过]
--  作者：狐狸爸爸
--  发布时间：2019/7/22 8:16:00
--  
参考：
http://www.foxtable.com/webhelp/topics/2044.htm

Dim str As String = Tables("用户资料").Current("账号")
Dim dr As DataRow = DataTables("用户交费表").Find("账号 =  \'" & str & "\'","结束时间 Desc")
if dr isnot nothing then
     tx.Text = dr("结束时间")
End if
--  作者：long086
--  发布时间：2019/7/22 9:26:00
--  

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,押金,Button2,Click
详细错误信息：
未将对象引用设置到对象的实例。

 老师还是不行

 

Dim tx As WinForm.TextBox = e.Form.Controls("tx")
Dim str As String = Tables("用户资料").Current("用户账号")
Dim dr As DataRow = DataTables("用户交费表").Find("用户账号 =  \'" & str & "\'","结束时间 Desc")

 

If dr IsNot Nothing Then
    tx.text = dr("结束时间")
End If

 

 

老师我这个是写在窗口的按钮单击事件中的

[此贴子已经被作者于2019/7/22 9:27:58编辑过]
--  作者：有点蓝
--  发布时间：2019/7/22 9:38:00
--  
Current一样要判断

if Tables("用户资料").Current Not Nothing Then

Dim tx As WinForm.TextBox = e.Form.Controls("tx")
Dim str As String = Tables("用户资料").Current("用户账号")
Dim dr As DataRow = DataTables("用户交费表").Find("用户账号 =  \'" & str & "\'","结束时间 Desc")

 

If dr IsNot Nothing Then
    tx.text = dr("结束时间") 
End If

end if