vb中如何按照复选框选中项在表中查找 30
请问:我在界面上画了5个checkbox,和若干个用于输入的textbox,需要按照用户选中的项进行查找表(access)中的数据项,显示到datagrid中。例如:选中...
请问:我在界面上画了5个checkbox,和若干个用于输入的textbox,需要按照用户选中的项进行查找表(access)中的数据项,显示到datagrid中。
例如:选中了颜色和大小,所查找出来的记录就必须大小和颜色都与输入到textbox中的一致。因为每次用户选择的项和选择的项数都不同,所以本人很郁闷,不知该如何实现了!望大家指点指点,最好有代码!
谢谢!
我好像看不太懂呀?~~ 我才开始学vb呀!~~ 能不能帮忙做一下注释呀!( 越详细越好). 非常感谢~~~~~(等有分了再多给你些吧,好吗?)。
嘿嘿! 展开
例如:选中了颜色和大小,所查找出来的记录就必须大小和颜色都与输入到textbox中的一致。因为每次用户选择的项和选择的项数都不同,所以本人很郁闷,不知该如何实现了!望大家指点指点,最好有代码!
谢谢!
我好像看不太懂呀?~~ 我才开始学vb呀!~~ 能不能帮忙做一下注释呀!( 越详细越好). 非常感谢~~~~~(等有分了再多给你些吧,好吗?)。
嘿嘿! 展开
1个回答
展开全部
checkbox和textbox做成控件数组代码要简单些
三个Check,三个Text看下效果吧
Private Sub Command1_Click()
strsql = "select * from table"
Dim sarr()
n = 0
For i = 0 To 2
If Check1(i).Value = 1 Then
ReDim Preserve sarr(n)
sarr(n) = Check1(i).Tag & " = '" & Text1(i).Text & "'"
n = n + 1
End If
Next i
If n > 0 Then
strsql = strsql & " where " & Join(sarr, " and ")
End If
MsgBox strsql
End Sub
Private Sub Form_Load()
Check1(0).Tag = "Color"
Check1(1).Tag = "Size"
Check1(2).Tag = "Weight"
End Sub
三个Check,三个Text看下效果吧
Private Sub Command1_Click()
strsql = "select * from table"
Dim sarr()
n = 0
For i = 0 To 2
If Check1(i).Value = 1 Then
ReDim Preserve sarr(n)
sarr(n) = Check1(i).Tag & " = '" & Text1(i).Text & "'"
n = n + 1
End If
Next i
If n > 0 Then
strsql = strsql & " where " & Join(sarr, " and ")
End If
MsgBox strsql
End Sub
Private Sub Form_Load()
Check1(0).Tag = "Color"
Check1(1).Tag = "Size"
Check1(2).Tag = "Weight"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询