如下,在给报表设置数据源后,如何在报表上动态添加表users的字段
Dim adoRs As ADODB.RecordsetPrivate Sub Report_Initialize()dim SQL as string SQL = "select * from users"Set adoRs = CreateObject("adodb.recordset")adoRs.Open SQL$, "Provider=MSDASQL.1;Persist Security Info=False;Data Source=test", adOpenKeyset, adLockBatchOptimisticDatabase.SetDataSource adoRsEnd Sub
Dim adoRs As ADODB.RecordsetPrivate Sub Report_Initialize()dim SQL as string SQL = "select * from users"Set adoRs = CreateObject("adodb.recordset")adoRs.Open SQL$, "Provider=MSDASQL.1;Persist Security Info=False;Data Source=test", adOpenKeyset, adLockBatchOptimisticDatabase.SetDataSource adoRsEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货