access解决组合框无法满足大量数据的问题
<br> 问题：<br> <br> Access里面有组合框，可以很快地从多行记录中选择所需要的数据。但是如果记录超过1000-2000呢？选择就非常不方便了。我该怎么办？ <br> <br> 回答：<br> <br> 其实很多数据都可以分类（分层）来选择，而且我们可以预先筛选数据。<br> 以下这个示例就是用重复打开同一个窗体类来完成多层次数据的选择。<br> 当然，还包括预先筛选数据功能。 <br> <br> 好了，现在开始：<br> 1、建立一个窗体(testForm)，里面有一个文本框(text0)，一个按钮(Command2)。<br> 2、建立一个窗体(selectForm)，里面有一个列表框(list0)。<br> 3、在testForm中的文本框的“更新后”事件中写入以下代码以打开品名选择窗体(selectForm)，并对其中的列表框(list0)的行来源(RowSource)进行赋值。<br> Private Sub Text0_AfterUpdate()<br> DoCmd.OpenForm "selectform"<br> '这行代码就实现了BTYPE表的模糊检索，使用的是 WHERE 子句中的 LIKE 关键字进行通配<br> Forms("selectform").List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE btype.fullname like '*" & Text0.Value & "*' "<br> End Sub <br> <br> <br> 4、在testForm中的命令按钮的“单击”事件中写入以下代码以打开品名选择窗体，按分类检索<br> 5、然后再在testForm中输入以下代码以完成多次打开窗体本身并显示子类中数据的功能。<br> 为了能够使代码重复利用，写了两个通用过程<br> <br> Option Compare Database<br> Dim f <br> <br> Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br> '先设定窗体的“键预览”属性为“是”<br> '本过程将加快你的输入速度<br> '如果按 ESCAPE 键，就关闭窗体<br> If KeyCode = vbKeyEscape Then<br> closeAllSelectForm "SelectForm"<br> End If<br> End Sub<br> <br> Private Sub List0_DblClick(Cancel As Integer)<br> checkYouSelect<br> End Sub<br> <br> Private Sub List0_KeyPress(KeyAscii As Integer)<br> '本过程实现全键盘操作<br> If KeyAscii = 13 Then<br> checkYouSelect<br> End If<br> End Sub<br> <br> Sub closeAllSelectForm(strFormName As String)<br> '通用过程1<br> '本过程用来关闭所有的指定名称的窗体<br> For Each objForm In Forms<br> If objForm.Name = strFormName Then<br> DoCmd.Close acForm, objForm.Name<br> End If<br> Next objForm<br> End Sub<br> <br> Sub checkYouSelect()<br> '通用过程2<br> '检测你的选择<br> '如果发现 suncount 列为 0（表示没有下一层了）<br> '就可以把你选定的产品名称放到文本框中了<br> On Error Resume Next<br> Set f = New Form_SelectForm<br> Dim objForm As Form<br> If List0.Column(0) = 0 Then<br> Forms("testform").Text0.Value = List0.Column(2)<br> closeAllSelectForm "SelectForm"<br> Else<br> f.Visible = True<br> f.List0.RowSource = "SELECT btype.soncount, btype.UserCode, btype.FullName, btype.typeId FROM btype WHERE parid='" & List0.Value & "'"<br> End If<br> End Sub<br> <
页:
[1]