Dim txt As String = e.Form.DropDownBox.Text Dim tbl As Table = Tables("窗口1_Table1") If txt = "" Then tbl.Filter = "" Else txt = "'%" & txt & "%'" tbl.Filter = "客户ID Like " & txt & " and 公司名称 = '" & e.Form.DropTable.Current("公司名称") & "'" End If e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
加好友 
发短信
Post By：2016/8/18 23:08:00 [显示全部帖子]
