兄弟实在没有办法,请大家出手!! 给主从报表附上dataset 时，不起作用，请执教

[fxmaster01]

给主从报表附上dataset 时，不起作用，请执教

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Dim mySqlCommand As SqlCommand
Dim myDSet As New DataSet()
Dim myDt As DataTable
Dim myDa As New SqlDataAdapter()

'Dim objRpt As CrystalDecisions.CrystalReports.Engine.ReportClass
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportClass

Dim strConnect As String = System.Configuration.ConfigurationSettings.AppSettings("ConnString")

Dim strSql As String

strSql = "Select * from PIFJFA where kannum='0605192772'"
myDSet = SelectSqlSrvRows(myDSet, strConnect, strSql, "PIFJFA")

' strSql = "Select * from [Order details] "
strSql = "Select * from PIFJFA_01 where kannum='0605192772' "
myDSet = SelectSqlSrvRows(myDSet, strConnect, strSql, "PIFJFA_01")

strSql = "Select B.*,A.urikbn from PIFJFA as A "
strSql += " inner join PIFJFA_02 as B "
strSql += " On A.kannum=B.kannum And A.bumcod=B.bumcod where A.kannum='0605192772'"
myDSet = SelectSqlSrvRows(myDSet, strConnect, strSql, "vew_PIFJFA_02")

strSql = "Select * from PIFJFA_03 where kannum='0605192772'"
myDSet = SelectSqlSrvRows(myDSet, strConnect, strSql, "PIFJFA_03")

rpt = New RF_PIFJFAM()

rpt.SetDataSource(myDSet.DefaultViewManager)

rpt.Refresh()
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.RefreshReport()

Else

End If
Page.DataBind()
End Sub

[Radar2006]

帮顶，mark

[lbmshiwo]

MARK,,,代码有点长,,可惜没用过ASP.NET

[gpyrbn]

是的 没有把 dataset和报表绑定,应该把字段拖到报表上,然后给dataset 进行输入值!

[分享大哥]

数据未绑定，怎么会显示？