Private Sub cmdSearchGuest_Click() '快速查询
Dim sql As String
Dim cBranchID As String
Dim cBranchName As String
Dim cBranchTel As String
sql = "SELECT 客户编号,客户名称,联系地址,联系电话,邮箱,创建日期,备注FROM 客户信息 where 1=1"
If txtSearchGuestNo.Text"" Then sql = sql & " and 客户编号 like '%" & txtSearchGuestNo.Text & "%'" '客户编号...
|