VB中水晶报表如何动态添加数据库表的字段
如下,在给报表设置数据源后,如何在报表上动态添加表users的字段
Dim adoRs As ADODB.Recordset
Private 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, adLockBatchOptimistic
Database.SetDataSource adoRs
End Sub