主题：请教loadfilter加载代码

为什么下面代码不能进行匹配加载数据，
Dim txb2 As WinForm.TextBox = e.form.Controls("TxtB2")
With dataTables("炉次")
    .loadFilter ="[炉次编号] like '*" & txb2.value & "*'"
    .load()
End With


txb2必需输入完整的字符后才能加载。

Dim txb2 As WinForm.TextBox = e.form.Controls("TxtB2")
With dataTables("炉次")
    .loadFilter ="[炉次编号] like 'ASBC123'"
    .load()
End With

为什么开始日期和结束日期只输入一个时会报错，代码哪块有问题？

Dim tpk1 As WinForm.DateTimePicker = e.form.Controls("datetimepicker1")
Dim tpk2 As WinForm.DateTimePicker = e.form.Controls("datetimepicker2")
if  tpk2.text is nothing and tpk1.text isnot nothing then
    With dataTables("炉次")
         .loadFilter =  "[日期] =#" & tpk1.text & "#"
         .load()
    End With
end if
if tpk1.text isnot nothing and tpk2.text isnot nothing then
    With dataTables("炉次")
         .loadFilter =  "[日期] >=#" & tpk1.text & "# and [日期] <=#" & tpk2.text & "#"
         .load()
    End With
end if

这样试下

CurrentTable.Filter = ""
Dim Filter As String
With e.Form.Controls("ListBox1")
    If .Value IsNot Nothing Then
        Filter = "'%" & .text & "%'"
    End If
End With
If Filter > "" Then
    Tables("常用代码").Filter = "cz Like " & Filter & " Or dm Like " & Filter & " Or sm Like " & Filter & " Or lx Like " & Filter & " Or dmwz Like " & Filter

dataTables("常用代码").loadFilter = "cz Like " & Filter & " Or dm Like " & Filter & " Or sm Like " & Filter & " Or lx Like " & Filter & " Or dmwz Like " & Filter
dataTables("常用代码").load()