vb 复选框的问题!高手请指教!

来源:百度知道 编辑:UC知道 时间:2024/06/21 02:14:39
我建了一个数据库里面有N个字段,例如名字,性别,身高等!
在form中放3个复选框分别对应名字,性别,身高。
数据用datagird显示!
怎么做才能我选择了某一个或多个复选框显示改复选框所对应的字段
没选的就不显示!!取消选择之后也不显示!
最好能给个代码!
谢谢!!
也就是: select 复选框对应的字段…… from 表~~
2楼的兄弟能不能说详细点~~“F_neme”是表里的字段名?
这个是我的界面http://p15.freep.cn/p.aspx?u=v20_p15_p_0805082206436413_0.jpg
~~数据库是access 字段名和check控件的名字是一样的!!我只要点选check控件时显示相应的数据字段取消选择时不显示~~

搞不了,留个脚印看谁那么牛能搞定。

控制datagrid某一列是否显示可以用
DataGrid1.Columns(index).Visible属性来控制
index为列号,从0开始,
也可以通过
DataGrid1.Columns(列名称).Visible来控制
列名称可以在属性中进行定义,如果是自动检查结构的话,就等同于字段名。

---------------------
如果查询的时候就进行控制的话,可以这样

chkSex 性别,复选框,假设对应字段名为F_Sex
chkName 姓名,复选框,假设对应字段名为F_Name
chkHigh 身高,复选框,假设对应字段名为F_High

dim strFields as string
if chkSex.Value=1 then
strFields =strFields & ",F_Sex"
end if
if chkName.Value=1 then
strFields =strFields & ",F_Name"
end if
if chkHigh.Value=1 then
strFields =strFields & ",F_High"
end if

if strFields="" then
'说明一个也没选,不进行查询
exit sub
else
'去除第一个逗号(,)
strFields=mid(strFields,2)
end if

set rs=conn.execute( "select " & strFields & " from Table ")