7,763
社区成员
发帖
与我相关
我的任务
分享
Set DE = Nothing
DE.CT.ConnectionString = strCnn
DE.Commands("gas_money").CommandText = "SELECT * FRO........"
Set drpGas_Public_Money.DataSource = DE
..........
drpGas_Public_Money.Show
dim rs as new recordset
with rs
.fields.append "fld",adinteger,4
.open
end with
set rpt.datasource=rs
rpt.show