ProtectedFunction ComboSQL()Function ComboSQL(ByVal tbox As TextBox) AsString If tbox.Text <>""Then' 组合查询时,根据textbox得出SQL语句中的组合条件"AND……" Return"AND "& tbox.ID &"='"& tbox.Text &"' "'前提是:textbox必须以相应字段命名! Else '查询的字段都必须是字符串型!!!!! Return"" EndIf End Function ProtectedFunction GetSQL()Function GetSQL() AsString'查找容器中的textbox来得出sql语句 GetSQL ="" Dim ctrl As ControlCollection '控件集 ctrl = Panel1.Controls '规定查找范围为panel1 For i AsInteger=0To ctrl.Count -1 IfTypeOf ctrl(i) Is TextBox Then'code in C# //if (ctrl(i) is TextBox) IfCType(ctrl(i), TextBox).ToolTip ="请输入查询内容"Then'转化类型textbox以使用tooltip GetSQL += ComboSQL(ctrl(i)) '这里用textbox的tooltip属性来识别其为查询内容 EndIf EndIf Next End Function
调用时,只需要
ProtectedSub Button1_Click()Sub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click Dim sql AsString sql ="SELECT * FROM Tab_User" sql = sql + GetSQL() End Sub
vb Protected Function ComboSQL()Function ComboSQL(ByVal tbox As TextBox) As String If tbox.Text "" Then 组合查询时,根据textbox得出SQL语句中的组合条件"AND……" Return "AND " & tbox.