我在窗口的afterload事件中加入了

  DataTables(e.form.Name & "_Table1").Fill("Select * From {纸箱核算表} Where [_Identify] Is Null", "服务器",False)   这个不加载代码.

然后做了个组合框以及 一个按钮,按钮代码中加入了一个代码:

Dim Filter As String
Dim T As String = e.Form.Controls("ComboBox1").Value \'定义控件的值
For Each dc As Col In Tables(e.Form.Name & "_Table1").Cols \'遍历表的所有列
    If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then  \'如果是时间列,逻辑列,数值列
        Continue For    \'排除
    End If
    If Filter > "" Then
        Filter  = Filter & " Or "
    End If
    Filter = Filter  & "[" & dc.Name & "] Like \'*" & T & "*\'"    \'根据控件值模糊筛选
Next
If Filter > "" Then
    DataTables(e.Form.Name & "_Table1").LoadFilter = Filter
    DataTables(e.Form.Name & "_Table1").Load
End If

  按照条件加载,但是不是作用,是不是fill不加载后,不能用loadfilter加载了.

Fill之后肯定可以Load的。

你在后面加一行:

If Filter > "" Then
     DataTables(e.Form.Name & "_Table1").LoadFilter = Filter
     DataTables(e.Form.Name & "_Table1").Load

     MessageBox.show("我Load了，条件是：" & Filter )
End If