1、选择日期筛选
此主题相关图片如下：01.png
执行日期筛选，选择第五行双击打开订单修改窗口，实际打开的是第一行的订单，无论点击哪一行打开订单修改窗口的都是第一行
2、选择客户名称筛选
此主题相关图片如下：02.png
选任意一行双击出错，如下：
.NET Framework 版本：2.0.50727.5420
Foxtable 版本：2017.10.26.1
错误所在事件：窗口,订单修改,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
关闭错误提示后打开的窗口是没有经过筛选的，当关闭弹窗后，窗口筛选的内容全无
此主题相关图片如下：03.png
3、选择客户电话执行筛选和选择客户名称情况完全一样
4、选择产品型号筛选正常
5、订单查询窗口都正常
筛选按钮代码如下：
Dim Filter As String
Dim qsrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim jzrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")
Dim cpxh As WinForm.DropDownBox = e.Form.Controls("cmbproduct")
Dim khmc As WinForm.ComboBox = e.Form.Controls("cmbcustomer1")
Dim khdh As WinForm.ComboBox = e.Form.Controls("cmbPoneNo.1")
With e.Form.Controls("DateTimePicker2")
If .Value IsNot Nothing Then
If Filter > "" Then
filter = filter & " and 日期 >= #" & qsrq.Value & "#"
End If
filter = "日期 >= #" & qsrq.value & "#"
End If
End With
If jzrq.Value IsNot Nothing Then
If filter > "" Then
filter = filter & " and 日期 <= #" & jzrq.Value & "#"
Else
filter = "日期 <= #" & jzrq.value & "#"
End If
End If
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = "产品型号 like '%" & cpxh.value & "%'"
End If
End With
With e.Form.Controls("cmbCustomer1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = "客户名称 like '%" & khmc.value & "%'"
End If
End With
With e.Form.Controls("cmbPoneNo.1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = "客户电话 like '%" & khdh.value & "%'"
End If
End With
If Filter > "" Then
Tables("销售查询_table3").Filter = Filter
End If
doubleclick：Forms("订单修改").Open
订单修改窗口的afterload：
If Forms("销售查询").opened Then
Dim tab As WinForm.TabControl = forms("销售查询").controls("TabControl1")
Select Case tab.selectedpage.Text
Case "订单查询"
Tables("销售订单").Filter = "订单号 = '" & Tables("销售查询_Table1").Current("订单号") & "'"
Case "销售明细查询"
Tables("销售订单").Filter = "订单号 = '" & Tables("销售查询_Table3").Current("订单号") & "'"
End Select
End If
销售查询_Table1：绑定的销售订单
销售查询_Table3：绑定的销售明细表
请专家帮我看看什么问题，谢谢！
[此贴子已经被作者于2017/11/30 18:48:03编辑过]
加好友 
发短信
Post By：2017/11/30 17:59:00 [只看该作者]
