主题：loadfilter

看看显示的是什么：
 
Dim ddzt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If ddzt.value IsNot Nothing Then
    If ddzt.value = "加载全部" AndAlso _usergroup <> "贸易部" Then
        DataTables("订单表").loadfilter = ""
        DataTables("订单表").load()
        messagebox.show(1)
    ElseIf ddzt.value = "加载全部" AndAlso _usergroup = "贸易部" Then
        DataTables("订单表").loadfilter = "[销售人员] = '" & _username & "'"
        DataTables("订单表").load()
        messagebox.show(2)
    ElseIf ddzt.value <> "加载全部" AndAlso _usergroup <> "贸易部" Then
        DataTables("订单表").loadfilter = "[订单状态] = '" & ddzt.value & "'"
        DataTables("订单表").load()
        messagebox.show(3)
    ElseIf ddzt.value <> "加载全部" AndAlso _usergroup = "贸易部" Then
        DataTables("订单表").loadfilter = "[订单状态] = '" & ddzt.value & "' andalso [销售人员] = '" & _username & "'"
        DataTables("订单表").load()
        messagebox.show(4)
    Else
        messagebox.show(5)
    End If
End If
Messagebox.show(“输入值：" & ddzt.value ) Messagebox.show("用户分组:" & _usergroup )
Messagebox.show("合成的条件:"DataTables("订单表").loadfilter)
Messagebox.show("LoadTop属性:"DataTables("订单表").LoadTop)

 
建议学会调试，这样普通问题，基本上就可以自己搞定了：
http://www.foxtable.com/webhelp/scr/1485.htm