时间戳

首页 > 解决方案 > vb6 标签未更新

vba - vb6 标签未更新

问题描述

代码工作正常，但标签没有更新

Dim rs As New ADODB.Recordset
Dim totalmytd As Long

totalmytd = 0
Label1(4).Caption = ""

rs.Open "Select Count(*) as mytdTot from dt_table Where [date] Between DateSerial(Year(Date()), 1, 1) And Date()", cn, adOpenDynamic, adLockOptimistic

totalmytd = rs!mytdTot

Label1(4).Caption = "YTD: " & totalmytd

标签： vbams-access

解决方案

推荐阅读