查询页面显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq图片20171113093514.png

1、要怎么才能一打开窗口，，，，页面窗口显示的是第二个表的内容

2、查询完成的时候，，，下面的页面窗口显示的是有结果的页面
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20171113093349.png

Dim Filter As String

With e.Form.Controls("开始日期")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("结束日期")

If .Value IsNot Nothing Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "日期 <= #" & .Value & "#"

End If

End With

With e.Form.Controls("订单号")

If .Text > ""Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "订单号 = '" & .Text & "'"

End If

End With

With e.Form.Controls("电话")

If .Text > "" Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "电话 = '" & .Text & "'"

End If

End With

With e.Form.Controls("销售商编号")

If .Text > "" Then

If Filter >"" Then

Filter = Filter & " And "

End If

Filter = Filter & "销售商编号 = '" & .Text & "'"

End If

End With

e.Form.Controls("线下待发货订单数据表").Table.Filter = filter

e.Form.Controls("线下已发货数据表").Table.Filter = filter

e.Form.Controls("线下已收货数据表").Table.Filter = filter

谢谢田（大神）老师可以了，，，，追问一下，，导出数据表的时候能执行组合框中选中的表吗？？？

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "excel文件|*.*" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

Dim ex As New Exporter

ex.SourceTableName = "线下全部订单数据表" '指定导出表

ex.Format = "Excel" '导出格式为Excel

ex.filepath = dlg.FileName '指定目标文件

ex.Export() '开始导出

End If

组合框里如何绑定某一个表？？？

没看懂这句是什么意思图片点击可在新窗口打开查看

ex.SourceTableName = CurrentTable.DataTable.name
ex.Filter = CurrentTable.Filter

只是绑定表，，不绑定列

此主题相关图片如下：微信图片_20171113121803.jpg

不知道表达清楚没有

要的是这种效果，，，点确定后导出复选框里选择的表
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20171113121647.png

主题：查询页面显示问题