vb.net RDLC子报表提示检索失败

Private Sub frmsjdy_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.t_temptk1TableAdapter.Fill(Me.ksxtDataSet.t_temptk1) '主

        Me.t_temptkTableAdapter.Fill(Me.ksxtDataSet1.t_temptk) '子

        Me.ReportViewer1.RefreshReport()

        Me.ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("ksxtDataSet.t_temptk1", Me.ksxtDataSet.Tables("题型")))
        AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf DemoSubreportProcessingEventHandler
        ReportViewer1.LocalReport.EnableExternalImages = True
        Me.ReportViewer1.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
        Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.FullPage


    End Sub

    Public Sub DemoSubreportProcessingEventHandler(ByVal sender As Object, ByVal e As Microsoft.Reporting.WinForms.SubreportProcessingEventArgs)
        e.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("ksxtDataSet1.t_temptk", ksxtDataSet.Tables("题型")))
    End Sub


报表 VB.NET --------------------编程问答-------------------- --------------------编程问答-------------------- 自己顶一下,麻烦大家指点一下

补充：.NET技术 ,  VB.NET