水晶报表 数据显示问题 请高手指点

[b3727180]

我的代码如下

Cursor = Cursors.WaitCursor
Dim dsGrid As New DataSet
Dim DsGridSub As New DataSet
Dim DsAll As New DataSet
Dim obj As New EQP_MAINTAIN_VO
Dim objdal As New EQP_MAINTAIN_EXPENSE_VO
Dim wcf As wcfEQP.IwcfEQPClient
wcf = CreateWCF.wcfEQP
Try
Dim frmMessage As New frmStatus
frmMessage.StartPosition = FormStartPosition.CenterScreen
frmMessage.Show("报表生成中,请稍等...")
Dim dtsub As New DataTable
obj.EQP_MAINTAIN_NO = strTxNo

objdal.EQP_MAINTAIN_NO = strTxNo
dsGrid = wcf.GetMainTainReportMain(obj)
DsGridSub = wcf.GetMainTainReportDal(objdal)
DsAll.Tables.Add(dsGrid.Tables(0).Copy())

'If DsGridSub.Tables(0).Copy().Rows.Count > 0 Then
DsAll.Tables.Add(DsGridSub.Tables(0).Copy())



'声明并建立一个报表对象()

Me.eqP_RPT_01501.Database.Tables("EQP_MAINTAIN").SetDataSource(dsGrid.Tables(0).Copy())
Me.eqP_RPT_01501.Database.Tables("EQP_MAINTAIN_EXPENSE").SetDataSource(DsGridSub.Tables(0).Copy())
'Me.eqP_RPT_01501.SetDataSource(DsAll)
frmMessage.Close()


Me.CrV0150.ReportSource = eqP_RPT_01501



Cursor = Cursors.Default
Me.WindowState = FormWindowState.Maximized

Catch ex As Exception
log.Error("查询打印数据错误:" & ex.Message)
MessageBox.Show(MSG_NetBusiness, MSGC_OperateInfo, MessageBoxButtons.OK, MessageBoxIcon.Warning)
Finally
wcf.Close()
End Try
在数据齐全 既 dsGrid.Tables(0).Copy()) 和DsGridSub.Tables(0).Copy()) 都有数据时 报表正常显示
但是 当dsGrid.Tables(0).Copy())有数据 而 子表DsGridSub.Tables(0).Copy()) 没数据时报表 不显示
其中 建立的dataset 集合 2个表关系也设置了 就是没结果 着急啊
环境是 .net 2008 自带报表

[b3727180]

搞定了

[Big鹏]

up !

[b3727180]

Public Overloads Sub Show(ByVal Message As String)
lblStatus.Text = Message
Me.Show()
Application.DoEvents()
End Sub