主题：查询页面显示问题

1、AfterLoad事件

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

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

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

比如

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

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

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

以下是引用学学在2017/11/13 11:34:00的发言：
没看懂这句是什么意思 

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

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

currentTable是表示当前表的意思。

下拉显示一个表？

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

合成字符串不就好了？

Dim cmb As WinForm.ComboBox

cmb = Forms("窗口1").Controls("ComboBox1")

cmb.ComboList = "计算机|打印机|传真机|电话机"

导出就这样写

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

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