.net2003转2005报表设置数据源出错

yunfenghan 2006-12-10 03:44:47
Dim tb4 As New BusinessDataSet.Jiesuan_SheetDataTable
For Each JiesuanData As CJiesuan In Me.arrJiesuanData
Dim strHuoNameDescr As String = ""
Dim dblHeji As Double = 0
Dim dblhuikoufei As Double = 0
Dim dblChajiaHeji As Double = 0
dblHeji = JiesuanData.dblXiaojiHeji + JiesuanData.dblChajiaHeji

If strHuoNameDescr <> "" Then
strHuoNameDescr = Mid(strHuoNameDescr, 1, strHuoNameDescr.Length - 1)
End If
tb4.AddJiesuan_SheetRow(JiesuanData.strJiesuanNo, JiesuanData.strCheHao, JiesuanData.strCheZhu, _
JiesuanData.tmJiesuanDate, JiesuanData.dblYingshouHeji, JiesuanData.dblZhufuofei, JiesuanData.dblDriverJiekuan, strHuoNameDescr, JiesuanData.dblHuikouHeji, dblHeji, JiesuanData.dblDuanbofeiHeji, JiesuanData.dblOtherHeji, JiesuanData.dblChajiaHeji, JiesuanData.dblDaofufeiHeji)
Next
Dim report As New BusinessReport4
report.SetDataSource(tb4)

report.SetDataSource(tb4) 这句出错
抱错为:
重载决策失败,原因是没有可访问的“SetDataSource”对这些参数是最特定的:
'Public Overridable Sub SetDataSource(dataTable As System.Data.DataTable)': 不是最特定的。
'Public Overridable Sub SetDataSource(enumerable As System.Collections.IEnumerable)': 不是最特定的。 E:\南大路1\WuliuSystem\UIJiesuanQuery.vb 650 9 WuliuSystem

请大虾帮忙
...全文
72 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yunfenghan 2006-12-10
  • 打赏
  • 举报
回复
已解决谢谢关注 解决方法
dim ds as new dataset
ds.tables.add(tb4)

report.SetDataSource(ds.tables(0))

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧