Dim r As Row = Tables("发运通知单").Current
Dim dt As DataTable = DataTables("发运通知单")
Dim str As String = e.form.controls("Textbox3").Text
If str = "" Then
MessageBox.Show ("请输入完整的发货密钥后再查询","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
Dim filter As String = "1=2"
For Each c As Col In CurrentTable.Cols
filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
Next
Dim count As Integer = dt.Compute("count(客户名)", filter)
If count > 0 Then
Tables(dt.name).Filter = filter
e.Form.controls("TextBox5").text= r("次级客户")
e.Form.controls("TextBox6").text= r("品种")
e.Form.controls("TextBox7").text= r("包装")
e.Form.controls("TextBox4").text= r("客户名")
ClipBoard.SetText(e.Form.controls("Textbox4").text)
ElseIf count = 0 Then
Tables(dt.name).Filter = filter
MessageBox.Show ("没有查询到满足条件的记录","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
ClipBoard.SetText(0)
End If
CurrentTable.Filter = filter
加好友 
发短信
Post By：2016/10/25 17:41:00 [只看该作者]
