如下,在给报表设置数据源后,如何在报表上动态添加表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