如何解决组合框无法满足大量数据的选择问题(2)

会计考友

如何解决组合框无法满足大量数据的选择问题(2)
2 U$ {5 t9 |# b- }: XPrivate Sub List0_DblClick(Cancel As Integer)
* S# c2 s4 t0 V8 ?& p/ n! D) k　　checkYouSelect
　　End Sub
2 F$ u$ U- m6 y2 ^- [+ S4 ~　　Private Sub List0_KeyPress(KeyAscii As Integer)
: O% E' P+ b# e5 U8 R　　'本过程实现全键盘操作
% U: k- \" B/ |! u# P　　If KeyAscii = 13 Then
2 y( K3 |4 U  H6 n* L0 b1 ~+ [　　checkYouSelect
1 U; R; M: X. t$ g; p　　End If
　　End Sub
8 }0 h/ _6 f  d' K. K　　Sub closeAllSelectForm(strFormName As String)
　　'通用过程1
　　'本过程用来关闭所有的指定名称的窗体
　　For Each objForm In Forms
# l5 Y4 I" o  w, x　　If objForm.Name = strFormName Then
　　DoCmd.Close acForm, objForm.Name
$ s: J& w/ c$ K　　End If
　　Next objForm
　　End Sub
　　Sub checkYouSelect()
$ j. K* H1 l& ?2 a　　'通用过程2
# O( ]& ^6 l4 a% O* F9 ?　　'检测你的选择
　　'如果发现 suncount 列为 0（表示没有下一层了）
　　'就可以把你选定的产品名称放到文本框中了
　　On Error Resume Next
  V2 g$ I3 Z, F　　Set f = New Form_SelectForm
' p4 F2 @$ ?  |- ?3 B' U　　Dim objForm As Form
/ l' f4 {6 [0 }5 ~　　If List0.Column(0) = 0 Then
　　Forms("testform").Text0.Value = List0.Column(2)
　　closeAllSelectForm "SelectForm"
. @+ X% h2 O& w" X　　Else
. X1 V: q. p6 Y1 {　　f.Visible = True
1 w% N3 B1 R+ y' a: _　　f.List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE parid='" & List0.Value & "'"
　　End If
　　End Sub