主题：[求助]查询加载代码优化

With DataTables("商品")
    Dim xiangz As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("乡镇")
    Dim cunm As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("村")
    Dim xingm As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("姓名")
    Dim xiaob As RibbonMenu.TextBox = RibbonTabs("主信息").Groups("查询").Items("货号")
    If xiaob.text <> "" Then
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText ="Select Count(*) From {商品} Where [SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "' and [XIAOBAN] = '" & xiaob.text & "'"
        If cmd.ExecuteScalar > 0 Then
            DataTables("商品").LoadFilter = "[SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "' and [XIAOBAN] = '" & xiaob.text & "'"
            DataTables("商品").Load
        Else
            MessageBox.Show("数据不存在")
        End If
    Else
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText ="Select Count(*) From {商品} Where [SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "'"
        If cmd.ExecuteScalar > 0 Then
            DataTables("商品").LoadFilter = "[SYQQLR] Like '%" & xiangz.text & cunm.text & "%' and [DANWEI] Like '%" & xingm.text & "'"
            DataTables("商品").Load
        Else
            MessageBox.Show("数据不存在")
        End If
       
    End If
   
End With

 

 

 

这段代码执行后经常报超时，多查几次又能查出来，但是要很长时间，求大能给我优化下

你数据量有多大?

数据量超过35万条

你加载的数据是多少条.用的什么数据源?  SQL还是ACCESS

为数据表需要查询的列做下索引,应该会有很大的提升

是SQL的数据库，查找加载的数据从几条到几千不等，怎么做索引

右键添加索引, 具体可以百度一下有教程.