Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

选项按钮的CLICK事件怎么写

高峰  发表于:2010-06-15 22:59:04  
复制

假设一个窗体A中有2个选项按钮X1和X2,

还有子窗体B,子窗体B中有一个数值字段S,

 

现在我想实现这样一个应用:

点击X1时,子窗体更新数值字段S后只显示1000以上的,

点击X2时,子窗体更新数值字段S后显示全部内容(即包括1000以下和以上的)。

那么在X1和X1选项按钮的CLICK事件中如何写代码?

 

 

附图如下:

 

 

 

Top
wj.s 发表于:2010-06-16 03:01:00

首先在这种情况下你应该使用选项组,而不是使用选项按钮。

假设条件如下:窗体A、子窗体B、选项组X(内有选项两个想X1、X2,值分别为1、2)、子窗体关键条件字段S(数量)

则在选项组X的单击事件中填入如下代码就OK了:

 

    ' 获取选项组X的值
    Select Case Me!x
        ' 如果选项组X的值为1
        Case 1
            ' 改变子窗体B的数据源为下列的SQL语句(条件为数量>1000)
            Me!B.RecordSource = "SELECT 表1.* FROM 表1 WHERE (((表1.数量)>1000));"
            ' 刷新子窗体B的数据
            Me!B.Requery
        ' 如果选项组X的值为1
        Case 2
            ' 改变子窗体B的数据源为下列的SQL语句
            Me!B.RecordSource = "SELECT 表1.* FROM 表1;"
            ' 刷新子窗体B的数据
            Me!B.Requery
    End Select

 

最后提醒注意三点:

1.看上述图片你子窗体数据应该还包括其他查询条件,在SQL语句中不要忘了加入。

2.设置选项组的默认值时最好选择2,因为子窗体B的初始数据一开始应该是显示全部内容的

3.如果选项组选择了X1(数量>1000),你点了查询按钮,也要考虑把选项组这个条件加入进去。



高峰 发表于:2010-06-16 21:53:46

谢谢,我试一下看是否OK。

 

 



总记录:2篇  页次:1/1 9 1 :