刚开始学习代码编写,请教下面的代码为何不正常工作,谢谢回复。
目标:在客户信息表中,设立了按照客户代码输入值和客户名称输入值2个模糊查询后的加载数据条件,如果都为空时加载最新更新的10行
Dim Filter As String
Dim dm As WinForm.TextBox = e.Form.controls("khdm")
Dim mc As winform.TextBox = e.Form.controls("khmc")
If dm.Value IsNot Nothing Then
Filter = "客户代码 like '%" & dm.Value & "%'" '按照客户代码动态加载
If mc.Value IsNot Nothing Then
filter = filter & "And " & "客户名称 Like '%" & dm.Value & "%'" '都不为空时代码和名称合并加载
End If
ElseIf mc.Value IsNot Nothing Then
Filter = "客户名称 like '%" & mc.Value & "%'" '按照客户代码动态加载
End If
If Filter >""
DataTables("客户信息").LoadFilter = Filter
DataTables("客户信息").Loadtop =""
DataTables("客户信息").Load
Else
DataTables("客户信息").Loadtop ="10" '查询条件为空时默认加载最新修改的10行
DataTables("客户信息").LoadOrder = "维护日期 Desc"
DataTables("客户信息").Load
End If