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