变速箱里用复选框实现cgdd联系人二选一
时 间:2011-04-10 00:00:00
作 者:风行 ID:16058 城市:江阴
摘 要:示例
正 文:
效果如下
步骤:
❶gysID行来源,列宽,列数如下图设置
ygsid加上更新后事件:
Private Sub gysID_AfterUpdate()
Me.Lxr1 = Me.gysID.Column(2) ' 第一列值赋值给lxr1
Me.Lxr1.SetFocus
' 展开组合框
End Sub
❷新建个复选框fxlxr2如图
复选框加上更新后事件
Private Sub fxlxr2_AfterUpdate()
If Me.fxlxr2 = -1 Then ' 被选中
Me.Lxr1 = Me.gysID.Column(3) ' 赋值第四列
Me.Lxr1.SetFocus
Else
Me.Lxr1 = Me.gysID.Column(2) ' 赋值第三列
End If
End Sub
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)