|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用DBaaS能让收入损失从其他业务上得到弥补,如软件更新和硬件管理。也许决定走DBaaS之路的客户可能会跳过解决方案提供商,尽管这个决策看起来有点短视。access|办理|数据|成绩
怎样办理组合框没法满意大批数据的选择成绩?
成绩:
Access内里有组合框,能够很快地从多行纪录当选择所必要的数据。可是假如纪录凌驾1000-2000呢?选择就十分不便利了。我该怎样办?
回覆:
实在良多数据都能够分类(分层)来选择,并且我们能够事后选择数据。
以下这个示例就是用反复翻开统一个窗体类来完成多条理数据的选择。
固然,还包含事后选择数据功效。
在浏览本文前请先参考:
《老手来看:怎样计划表布局便于treeview显现?》
http://access911.net/index.asp?board=4&recordid=75FABE1E12DC
一文,以懂得怎样界说数据表布局能够便利的分类并显现。
并浏览:
《怎样将一个窗体反复翻开2遍,而且每遍翻开的窗体显现分歧的数据?》
http://access911.net/index.asp?board=4&recordid=72FAB11E15DC
一文,以懂得ACCESS中一个FORM实在就是一个类
好了,如今入手下手:
1、创建一个窗体(testForm),内里有一个文本框(text0),一个按钮(Command2)。
2、创建一个窗体(selectForm),内里有一个列表框(list0)。
3、在testForm中的文本框的“更新后”事务中写进以下代码以翻开品名选择窗体(selectForm),并对个中的列表框(list0)的行来历(RowSource)举行赋值。
PrivateSubText0_AfterUpdate()
DoCmd.OpenForm"selectform"
这行代码就完成了BTYPE表的含混检索,利用的是WHERE子句中的LIKE关头字举行通配
Forms("selectform").List0.RowSource="SELECTbtype.soncount,btype.UserCode,btype.FullName,btype.typeIdFROMbtypeWHEREbtype.fullnamelike*"&Text0.Value&"*"
EndSub
4、在testForm中的命令按钮的“单击”事务中写进以下代码以翻开品名选择窗体,按分类检索
5、然后再在testForm中输出以下代码以完成屡次翻开窗体自己并显现子类中数据的功效。
为了可以使代码反复使用,写了两个通用历程
OptionCompareDatabase
Dimf
PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
先设定窗体的“键预览”属性为“是”
本历程将加速你的输出速率
假如按ESCAPE键,就封闭窗体
IfKeyCode=vbKeyEscapeThen
closeAllSelectForm"SelectForm"
EndIf
EndSub
PrivateSubList0_DblClick(CancelAsInteger)
checkYouSelect
EndSub
PrivateSubList0_KeyPress(KeyAsciiAsInteger)
本历程完成全键盘操纵
IfKeyAscii=13Then
checkYouSelect
EndIf
EndSub
SubcloseAllSelectForm(strFormNameAsString)
通用历程1
本历程用来封闭一切的指命名称的窗体
ForEachobjFormInForms
IfobjForm.Name=strFormNameThen
DoCmd.CloseacForm,objForm.Name
EndIf
NextobjForm
EndSub
SubcheckYouSelect()
通用历程2
检测你的选择
假如发明suncount列为0(暗示没有下一层了)
就能够把你选定的产物称号放到文本框中了
OnErrorResumeNext
Setf=NewForm_SelectForm
DimobjFormAsForm
IfList0.Column(0)=0Then
Forms("testform").Text0.Value=List0.Column(2)
closeAllSelectForm"SelectForm"
Else
f.Visible=True
f.List0.RowSource="SELECTbtype.soncount,btype.UserCode,btype.FullName,btype.typeIdFROMbtypeWHEREparid="&List0.Value&""
EndIf
EndSub
具体示例程序请参考:
http://www.access911.net/index.asp?board=8&recordid=77FAB71E
http://access911.net站长保藏
解决方案提供商应记住DBaaS通常仅仅是解决方案的一部分。客户之所以与他们的解决方案提供商协同工作,不仅是因为他们出售的产品,而且还因为他们所提供的服务。 |
|