已解决：如何在模块中定义这个函数（红色字体为变量）

luhao

Private Sub xlistview(openDB as string,xlistview as control)
    Dim startTime, endTime As Date
    Dim s As Single
    startTime = Now()

    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim rstCount As New ADODB.Recordset
    Dim intNow, intTotal As Integer
    Set cn = CurrentProject.Connection
    rst.ActiveConnection = cn
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open openDB  '      

    Dim i, n As Integer
    i = rst.Fields.Count - 1
    Debug.Print "I="; i
    For n = 0 To i
        Debug.Print CStr(rst.Fields(n).Name)
        xListView.ColumnHeaders.Add , , CStr(rst.Fields(n).Name)
    Next n

    Dim ItmX As ListItem
    Dim intx As Integer
    For intx = 1 To 1             '做50次循环的目标是得到更多的数据，花更多的时间，其他没有意义
        rst.MoveFirst
        Do Until rst.EOF
            Set ItmX = xListView.ListItems.Add()
       '     ItmX.Icon = 1
       '     ItmX.SmallIcon = 1
            ItmX.Text = rst.Fields(0).Value
            For n = 1 To i
                ItmX.SubItems(n) = Nz(rst.Fields(n).Value)
            Next n
            intNow = intNow + 1
            xListView.Requery
            rst.MoveNext
        Loop
    Next intx
    ListView.View = lvwReport
    Debug.Print xListView.ListItems.Count()
End Sub

ui

问题你的函数,哪些是参数, 如果是固定的,将过程直接改为函数就行了

luhao

1# luhao

想把这个定义一个函数后，不用每打开一个窗体时，代码就重复。
自己顶顶，希望有老师可以解决。。。。。

luhao

1# luhao
自己顶一顶

luhao

1# luhao
自己顶一顶