两个表比对数据，想将找到的数据显示，不相同的数据不显示，代码运行：未将对象引用设置到对象的实例,麻烦老师帮忙看看！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

两个表比对数据，想将找到的数据显示，不相同的数据不显示，代码运行：未将对象引用设置到对象的实例,麻烦老师帮忙看看！谢谢图片点击可在新窗口打开查看

比对数据按钮代码：

Dim c1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim c2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim c3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")

Dim c4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox7")

Vars("btname2")=cm.Text

Tables("主窗体_Table3").DataSource = DataTables(Vars("btname2"))

vars("表名")=c1.Text

vars("获取值集合")=c2.Text

vars("表名1")=c3.Text

vars("获取值集合1")=c4.Text

Dim dr1 As DataRow

Dim s As String

Dim Products As List(Of String)

Products = DataTables(vars("表名")).GetValues(vars("获取值集合"))

For Each Product As String In Products

s= vars("获取值集合1") & "=" & "'" & Product & "'"

dr1 = DataTables(vars("表名1")).Find(s)

If dr1 IsNot Nothing Then '如果找到的话

Else

dr1.DataTable.DeleteFor(s)

End If

错误提示：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.5.29.8

错误所在事件：窗口,主窗体,比对数据,Click

详细错误信息：

未将对象引用设置到对象的实例。

麻烦老师帮忙看看上述代码是哪里有误呢？谢谢！

[此贴子已经被作者于2021/11/16 2:11:24编辑过]

主题：两个表比对数据，想将找到的数据显示，不相同的数据不显示，代码运行：未将对象引用设置到对象的实例,麻烦老师帮忙看看！