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

狐爸，用Datatable的Load查询数据，我发现，少量数据就不行了，大量数据就很吃力。下面这段代码我写时没有考虑到大数据，查询起来相当吃力，查询10000行数据时就不行，代码是针对全表内容查询的，我想提升查询效率，有木有办法呢？能不能帮忙改成后台查找？

Dim r As Row = Tables("发运通知单").Current

Dim dt As DataTable = DataTables("发运通知单")

Dim str As String = e.form.controls("Textbox3").Text

If str = "" Then

MessageBox.Show ("请输入完整的发货密钥后再查询","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

Else

Dim filter As String = "1=2"

For Each c As Col In CurrentTable.Cols

filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"

Dim count As Integer = dt.Compute("count(客户名)", filter)

If count > 0 Then

Tables(dt.name).Filter = filter

e.Form.controls("TextBox5").text= r("次级客户")

e.Form.controls("TextBox6").text= r("品种")

e.Form.controls("TextBox7").text= r("包装")

e.Form.controls("TextBox4").text= r("客户名")

ClipBoard.SetText(e.Form.controls("Textbox4").text)

ElseIf count = 0 Then

Tables(dt.name).Filter = filter

MessageBox.Show ("没有查询到满足条件的记录","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

ClipBoard.SetText(0)

End If

CurrentTable.Filter = filter

主题：关于数据查询效率