如何解决组合框无法满足大量数据的选择问题(2)
3 ]) V# o Z* cPrivate Sub List0_DblClick(Cancel As Integer) % _* H$ K3 i" ^) ]! C
checkYouSelect
9 H3 k: }% g( K* E End Sub
2 e. ]8 S6 L( b$ w3 G1 [ Private Sub List0_KeyPress(KeyAscii As Integer)
% m1 @+ T3 t- r '本过程实现全键盘操作
$ L) M% A$ P6 f If KeyAscii = 13 Then: E* c' r( `8 h4 Y
checkYouSelect
4 v' t5 p5 ]% Y2 |) [3 ^" \( F End If
7 T( U- c, l, L7 S0 @7 o7 A End Sub
I+ S2 o w8 j, c Sub closeAllSelectForm(strFormName As String)
) q0 S$ Q" n; y a '通用过程1
, f9 D, s' k m: l. w '本过程用来关闭所有的指定名称的窗体
- q0 F: I: u$ @- ^. ^0 x+ a For Each objForm In Forms/ r0 r+ N4 p# Z% \% U* y2 M8 B
If objForm.Name = strFormName Then
+ _, u" j+ I* h( i- f4 a7 Y DoCmd.Close acForm, objForm.Name; }) D6 [) D& t5 K
End If, n! Y8 w- ~6 X. z! o, e
Next objForm
* M/ `5 R+ A5 A- u: T1 h End Sub
$ Q9 G3 M- i7 d( m7 y Sub checkYouSelect()
7 T5 z' c. O; V' e0 J( K '通用过程23 u+ t# `. e2 Y3 U
'检测你的选择; k3 N f4 w* }9 m
'如果发现 suncount 列为 0（表示没有下一层了）
8 q8 n8 m8 R4 V2 x# [" U '就可以把你选定的产品名称放到文本框中了
; ~# h9 B) R6 G" m. ?) F On Error Resume Next
$ ^7 X1 v3 W& [' s* S- w. c: q Set f = New Form_SelectForm3 B' M& d" ~5 I" W
Dim objForm As Form: [/ v* E# y5 F8 _& a! F7 q
If List0.Column(0) = 0 Then0 V9 H) X6 W) R) L9 L, ` ?
Forms("testform").Text0.Value = List0.Column(2)/ ^, p: F) I% \3 q+ R! K, o
closeAllSelectForm "SelectForm"
$ g v- G) L, M8 c5 w( K Else$ e9 F/ [! j9 _
f.Visible = True
" ~) w! f' a- i0 y0 p" B f.List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE parid='" & List0.Value & "'"0 V: t' k7 n# g. e
End If
% Y$ `. Y0 m4 L, d0 n1 ~ End Sub |
发表于 2012-7-31 22:26:35
