月历记事本-万年历 7种配色漂亮的日历本+提醒事件

bluestorm_ty

chadwicko 发表于 2022-1-20 21:48
Public Sub 显示数据(strsql As String) '为ListView1设置各行数据
    Dim i&, j&
    On Error Resume  ...

Public Sub 显示数据(strsql As String) '为ListView1设置各行数据
    Dim i&, j&,k&
    On Error Resume Next
    Set rs = New ADODB.Recordset
    rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
    With ListView1
        .ListItems.Clear
        k=rs.RecordCount
        For i = 1 To k
增加变量k,将rs.RecordCount赋值给k,即可解决。