set datareport1.datasource=rs With DataReport1.Sections("Section1") .Controls("Text1").DataField = "logname" .Controls("Text2").DataField = "sex" end with
set datareport1.datasource=rs With DataReport1.Sections("Section1") .Controls("Text1").DataField = "logname" .Controls("Text2").DataField = "sex" end with
With DataReport1.Sections("Section1")
.Controls("Text1").DataField = "logname"
.Controls("Text2").DataField = "sex"
end with
With DataReport1.Sections("Section1")
.Controls("Text1").DataField = "logname"
.Controls("Text2").DataField = "sex"
end with
类似的
我已经送了三千多分了,快到四千分了,应该叫狂送分吧。
我没有msdn,无法查询帮助,所以只能如此了。我的可用分从八千变成三千多了。如果有人分太多要送我的话,也欢迎。
如果没有set datareport1.datasource=rs
你说的答案也能执行吗?