vb中如何按照复选框选中项在表中查找 30

请问:我在界面上画了5个checkbox,和若干个用于输入的textbox,需要按照用户选中的项进行查找表(access)中的数据项,显示到datagrid中。例如:选中... 请问:我在界面上画了5个checkbox,和若干个用于输入的textbox,需要按照用户选中的项进行查找表(access)中的数据项,显示到datagrid中。
例如:选中了颜色和大小,所查找出来的记录就必须大小和颜色都与输入到textbox中的一致。因为每次用户选择的项和选择的项数都不同,所以本人很郁闷,不知该如何实现了!望大家指点指点,最好有代码!
谢谢!
我好像看不太懂呀?~~ 我才开始学vb呀!~~ 能不能帮忙做一下注释呀!( 越详细越好). 非常感谢~~~~~(等有分了再多给你些吧,好吗?)。
嘿嘿!
展开
 我来答
lzh741206
2008-05-01 · TA获得超过1192个赞
知道大有可为答主
回答量:1929
采纳率:100%
帮助的人:2794万
展开全部
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
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式