access解决组合框无法满足大量数据的选择问题
2010-03-18 15:17:13 来源:WEB开发网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
更多精彩
赞助商链接