提示：未将对象引用设置到对象的实例。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：提示：未将对象引用设置到对象的实例。