7,785
社区成员




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