Dim txt As String = e.Form.Controls("TextBox3").Text
Dim tbl As DataTable = DataTables("个人通讯录")
If txt = "" Then
tbl.loadFilter = "登录人='" & user.name & "'"
Else
txt = "'%" & txt & "%'"
tbl.loadFilter = "登录人='" & user.name & "' and (单位 Like " & txt & " Or 部门或姓名 Like " & txt & ")"
End If
tbl.load