请教：

在工程需求窗口的查询按钮代码如下：

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

Tables("工程需求_订货主表").Filter = "订单号 = \'" & ddh . Text & " \'"

Dim wz As Integer = Tables("工程需求_订货主表").Findrow("订单号 = \'" & ddh . Text & " \'")

If wz >= 0 Then

    Tables("工程需求_订货主表").Position = wz

End If

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

Tables("工程需求_订货主表").Filter = "工程名称 = \'" & gcmc . Text & " \'"

Dim wz2 As Integer = Tables("工程需求_订货主表").Findrow("工程名称 = \'" & gcmc . Text & " \'")

If wz2 >= 0 Then

    Tables("工程需求_订货主表").Position = wz2

End If

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

Tables("工程需求_订货主表").Filter = "工程编号 = \'" & gcbh . Text & " \'"

Dim wz3 As Integer = Tables("工程需求_订货主表").Findrow("工程编号 = \'" & gcbh . Text & " \'")

If wz3 >= 0 Then

    Tables("工程需求_订货主表").Position = wz3

End If

运行时出现如下错误：

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2016.7.29.1
错误所在事件：订货主表,CurrentChanged
详细错误信息：
未将对象引用设置到对象的实例。
请问如何修改代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1_201612140824.zip