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

ehboy860

HUI0113

    添加事件报错1004 怎么解决啊？如图所示

HUI0113

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

Public Sub 显示数据(strsql As String)
    Dim i As Integer, j As Integer
    On Error Resume Next ' 注意：在调试时可能需要移除或替换为更具体的错误处理
    Set rs = New ADODB.Recordset
    rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
   
    With ListView1
        .ListItems.Clear
        If Not rs Is Nothing Then
            If Not rs.EOF Then ' 确保记录集不为空
                Do Until rs.EOF
                    .ListItems.Add , , CStr(rs.Fields(0).Value) ' 使用CStr转换为字符串
                    For j = 1 To rs.Fields.Count - 1
                        If j = 3 Then
                            ' 确保rs.Fields(j).Value是日期或时间类型
                            .ListItems(.ListItems.Count).SubItems(j) = Format(CDate(rs.Fields(j).Value), "h:mm")
                        Else
                            .ListItems(.ListItems.Count).SubItems(j) = CStr(rs.Fields(j).Value)
                        End If
                    Next j
                    rs.MoveNext
                Loop
            End If
        End If
    End With
   
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
   
    Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
End Sub

adfs945

感谢楼主的分享，收藏学习了！！

wulin588

感谢楼主的分享，收藏了

kjy520aia

谢谢分享，我只是想看一下我能回复么

lkjhgg

我还以为是到时间会弹窗提醒呢，虽然挺好了，但是能自动弹窗就更棒了

mzlxyq

感谢楼主的软件，有个问题，点击 编辑  时，就会出错，是什么原因啊？

13181881591

Cellfarmer 发表于 2015-2-17 20:25
新年献礼:
新的窗口界面设计,Listview显示事件列表,数据库ADO操作,模糊查找......
适用于Excel2007以上版 ...

哭哭，用不了

Cellfarmer

mzlxyq 发表于 2024-7-18 17:28
感谢楼主的软件，有个问题，点击 编辑  时，就会出错，是什么原因啊？

你可能缺少一些组件，如AccessDatabaseEngine等，请浏览131楼等以前的贴子。