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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  查询页面显示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109469)

--  作者：学学
--  发布时间：2017/11/13 9:38:00
--  查询页面显示问题

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

1、要怎么才能一打开窗口，，，，页面窗口显示的是第二个表的内容
2、查询完成的时候，，，下面的页面窗口显示的是有结果的页面
此主题相关图片如下：qq图片20171113093349.png

--  作者：有点甜
--  发布时间：2017/11/13 9:43:00
--

1、AfterLoad事件

http://www.foxtable.com/webhelp/scr/0831.htm

2、查询代码你写了吗？怎么写的？不会做请上传具体实例。

http://www.foxtable.com/webhelp/scr/1058.htm

--  作者：学学
--  发布时间：2017/11/13 9:59:00
--  怎么查询页面里不为空的页面，，除去全部订单

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

--  作者：有点甜
--  发布时间：2017/11/13 10:06:00
--

比如

If e.Form.Controls("线下待发货订单数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 1

ElseIf e.Form.Controls("线下已发货数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 2

ElseIf e.Form.Controls("线下已收货数据表").Table.Rows.Count > 0 Then

    e.form.Controls("TabControl1").SelectedIndex = 3

End If

--  作者：学学
--  发布时间：2017/11/13 10:15:00
--  谢谢田（大神）老师可以了，，，，追问一下，，导出数据表的时候能自己选择导出的是哪个表吗？？？

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

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

--  作者：有点甜
--  发布时间：2017/11/13 10:20:00
--

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ex As New Exporter
    ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter
    ex.Format = "Excel" \'导出格式为Excel
    ex.filepath = dlg.FileName \'指定目标文件
    ex.Export() \'开始导出
End If

----------------或者

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    CurrentTable.SaveExcel(dlg.FileName, CurrentTable.name)
End If

--  作者：学学
--  发布时间：2017/11/13 11:29:00
--  组合框里如何绑定某一个表？？？
组合框里如何绑定某一个表？？？

--  作者：学学
--  发布时间：2017/11/13 11:34:00
--  没看懂这句是什么意思
没看懂这句是什么意思
ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter

--  作者：有点甜
--  发布时间：2017/11/13 11:40:00
--

以下是引用学学在2017/11/13 11:29:00的发言：
组合框里如何绑定某一个表？？？

你要问这个？ http://www.foxtable.com/webhelp/scr/1523.htm

--  作者：有点甜
--  发布时间：2017/11/13 11:44:00
--

以下是引用学学在2017/11/13 11:34:00的发言：
没看懂这句是什么意思
ex.SourceTableName = CurrentTable.DataTable.name
    ex.Filter = CurrentTable.Filter

参考 http://www.foxtable.com/webhelp/scr/2925.htm

currentTable是表示当前表的意思。