主题：窗口打开速度求助版主？

 尽量不要一次性加载全部8万行数据。

 你可以用动态加载、分页加载。比如，加载 今天、本月的数据，比如，加载第一页的数据

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

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

你查询可以用加载，而不用筛选。加载的话，肯定能查询到你需要的数据。

 你查询数据的代码怎么写的？设置filter？

 那你把filter改成LoadFilter、Load即可。

Dim gzdw As WinForm.CheckedComboBox = e.Form.Controls("工作单位")
Dim xgs As WinForm.CheckedComboBox = e.Form.Controls("县公司")
Dim jdpc As WinForm.CheckedComboBox = e.Form.Controls("鉴定批次")
Dim jdgz As WinForm.CheckedComboBox = e.Form.Controls("鉴定工种")
Dim xm As WinForm.TextBox = e.Form.Controls("姓名")
Dim sfzhm As WinForm.TextBox = e.Form.Controls("身份证号码")
Dim zsbh As WinForm.TextBox = e.Form.Controls("证书编号")
Dim filter As String = "1=1"
If gzdw.Text > "" Then
    filter &= " and 工作单位 in ('" & gzdw.Text.replace(",", "','") & "')"
End If
If xgs.Text > "" Then
    filter &= " and 县公司 = in ('" & xgs.Text.replace(",", "','") & "')"
End If
If jdpc.Text > "" Then
    filter &= " and  鉴定批次 in ('" & jdpc.Text.replace(",", "','") & "')"
End If
If jdgz.Text > "" Then
    filter &= " and  鉴定工种 in ('" & jdgz.Text.replace(",", "','") & "')"
End If
If xm.Text > "" Then
    filter &= " and  姓名 like '%" & xm.Text & "%' "
End If
If sfzhm.Text > "" Then
    filter &= " and  身份证号码 like '%" & sfzhm.Text & "%'"
End If
If zsbh.Text > "" Then
    filter &= " and  证书编号 like '%" & zsbh.Text & "%'"
End If

DataTables("证书编号表").LoadTop = 100 '默认显示100行
DataTables("证书编号表").LoadPage = 0 '显示第一页
DataTables("证书编号表").LoadFilter = filter
DataTables("证书编号表").Load