Question

VB datareport问题 <50分>

做了个表 report里边有四个字段 分别是
dayic（dayincome 日收入）
moic(月收入）
allic（总收入）
date（日期）
在VB里边做了个datareport
点击按钮的时候显示报表
报表如图
可是代码怎么都写不对 应该怎么写能把report里边所有数据分条显示出来呢？
'DataReport1.Sections("Section1").Controls("Text1").DataField = dayic
DataReport1.Sections("Section1").Controls("Text1").DataField = rs1.Fields("dayic")
'DataReport1.Sections("Section1").Controls("RptTextBox1").DataField = dayic
不会用这个控件 各种出问题。。。

Answer 1

给你个参考代码：
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bizhub.mdb;Mode=ReadWrite;Persist Security Info=False"
SqlStr = "Select * From 拆件"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataReport1.DataSource = rst
DataReport1.Sections("Section1").Controls("Text1").DataField = "机器型号"
DataReport1.Sections("Section1").Controls("Text2").DataField = "包装条形码"
DataReport1.Show
实在不行的话留个QQ我给你看看

追问

参数类型不正确 或不在可以接收的范围之内 或与其他参数冲突
rs1.Open sql, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
这句
（我自己改的变量名）

追答

SqlStr = "Select * From 拆件"
这句需要修改成你的才行

追问

我知道 我又不傻
代码：
定义跟连接字符没写 不够地方了
sql = "Select * From report"
rs1.CursorLocation = adUseClient
rs1.Open sql, cn, adOpenDynamic, adLockOptimistic, adCmdText
Set DataReport1.DataSource = rs1
DataReport1.Sections("Section1").Controls("Text1").DataField = "dayic"
DataReport1.Sections("Section1").Controls("Text2").DataField = "moic"
DataReport1.Show

追答

留个QQ我给你看看

追问

1485290517

Answer 2

DataReport1.Sections("Section1").Controls("Text1").DataMember=report
DataReport1.Sections("Section1").Controls("Text1").DataField = dayic

追问

错了 提示如图