列表框数据显示

来源：互联网发布：nano接收器配对软件编辑：程序博客网时间：2024/05/17 04:46

Private Sub Combo0_GotFocus()

Dim i As Long
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
If (Me.Check6.Value = -1) Then
    rs.Open "select DISTINCT 证券代码 from 施朝辉华泰交割单 ", CurrentProject.Connection, 3, 3
Else
    rs.Open "select DISTINCT 证券代码 from 施朝辉华泰交割单 where 结算汇率=0 ", CurrentProject.Connection, 3, 3
    End If
'Me.Combo0.Requery

Me.Combo0.RowSourceType = "值列表" '设置行来源类型
If Me.Combo0.ListCount > 0 Then '先删除,方便后继添加
    For i = Me.Combo0.ListCount - 1 To 0 Step -1
        Me.Combo0.RemoveItem i
    Next
End If
With Me.Combo0
    .ColumnCount = 2 '设置列数为了2
    .Width = 4 * 567 '组合框的宽度为4cm,567为1cm=567缇(像素单位)
    .ColumnWidths = "4CM" '第一列宽0cm,第二列宽2cm
    If .ColumnHeads = True Then '设置列标题
        .AddItem "证券代码"
    End If
    '.AddItem "无"
    rs.MoveFirst
    For i = 0 To rs.RecordCount - 1
        .AddItem rs("证券代码")
    rs.MoveNext
    Next
   ' .AddItem "全部"
   ' .DefaultValue = "全部"
End With

End Sub

在这个Combo0_GotFocus()输入代码

0 0