说起来很简单。就是在用户输入时,可以在输入框下面显示数据库中这部分已存在的 和用户输入内容一致的数据。
举个例子,数据库中的姓名项,存在数据“张三”“李四”“张三一”。在用户输入“张”时,下面会有显示“张三”“张三一”供选择。等输入“张三一”时,就只提示“张三一”了;如果输入“张三二”,则下次再输入“张”字,这条显示也会出现。类似于现在百度搜索是下面显示的内容。
不知有没有说明白 还有就是哪位朋友可以帮忙 谢谢
举个例子,数据库中的姓名项,存在数据“张三”“李四”“张三一”。在用户输入“张”时,下面会有显示“张三”“张三一”供选择。等输入“张三一”时,就只提示“张三一”了;如果输入“张三二”,则下次再输入“张”字,这条显示也会出现。类似于现在百度搜索是下面显示的内容。
不知有没有说明白 还有就是哪位朋友可以帮忙 谢谢
' Combobox 是Microsoft Form 2.0 Object Library 装了Office2000后才有
Public Sub SettingComboBox(CmbName As Object, SelectSql As String, FieldCount As Integer, _
Optional iBoundColumn As Integer = 2, Optional iTextColumn As Integer = 1)Dim i As Integer, j As IntegerCmbName.ColumnCount = FieldCount '设置显示列数
CmbName.Font.Size = 10 '设置字体大小
CmbName.BoundColumn = iBoundColumn '设置返回数据的实际数据的列 Me.txtProve
CmbName.TextColumn = iTextColumn '显示的数据的列
CmbName.BorderStyle = fmBorderStyleSingle '显示样式
strSQL = SelectSql '动态SQL语句
adoRsState (False) '关闭数据集
adoRs.Open strSQL, ConStr, adOpenKeyset, adLockReadOnly
Do While Not adoRs.EOF
CmbName.AddItem adoRs.Fields(0)
For j = 1 To FieldCount - 1
CmbName.Column(j, i) = adoRs.Fields(j)
Next
i = i + 1
adoRs.MoveNext
Loop
adoRsState (False) '关闭数据集
End Sub