以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提示：未将对象引用设置到对象的实例。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126357)
--  作者：yetle
--  发布时间：2018/10/19 11:06:00
--  提示：未将对象引用设置到对象的实例。
Dim tbl As DataTable=Tables("大货用量表_table1").DataTable
Dim tbl1 As DataTable=DataTables("配色表")
Dim tbl2 As DataTable=DataTables("配码表")

Dim pd As WinForm.ComboBox = Forms("大货用量表").Controls("ComboBox1")

If forms("大货用量表").opened Then
Dim dr As DataRow = tbl.Find("款号 = \'pd.text\' ")
Dim dr1 As DataRow = tbl1.Find("款号 = \'pd.text\'")
Dim dr2 As DataRow = tbl2.Find("款号 = \'pd.text\'")
dr("审核") = True
dr1("审核") = True
dr2("审核") = True
dr.Locked = True
dr1.Locked = True
dr2.Locked = True
End If
--  作者：有点蓝
--  发布时间：2018/10/19 11:19:00
--  
凡是Find查询的返回值都需要判断是否为空，比如

Dim dr As DataRow = tbl.Find("款号 = \'pd.text\' ")
if dr isnot nothing then
dr("审核") = True
dr.Locked = True
end if