WEB开发网
开发学院数据库Access access解决组合框无法满足大量数据的选择问题 阅读

access解决组合框无法满足大量数据的选择问题

 2010-03-18 15:17:13 来源:WEB开发网   
核心提示:5、然后再在testForm中输入以下代码以完成多次打开窗体本身并显示子类中数据的功能,为了能够使代码重复利用,access解决组合框无法满足大量数据的选择问题(2),写了两个通用过程OptionCompareDatabaseDimfPrivateSubForm_KeyDown(KeyCodeAsInteger,Shi

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

上一页  1 2 

Tags:access 解决 组合

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接