' レポート定義をロードします
C1FlexReport1.Load("reportFile", "reportName")
C1FlexReport2.Load("reportFile", "subreportName")

' SubreportFieldを取得します
Dim subRpt As C1.Win.FlexReport.SubreportField
subRpt = CType(C1FlexReport1.Fields("Field1"), C1.Win.FlexReport.SubreportField)

' サブレポートを変更します
subRpt.Subreport = C1FlexReport2

// レポート定義をロードします
c1FlexReport1.Load(@"reportFile", "reportName");
c1FlexReport2.Load(@"reportFile", "subreportName");

// SubreportFieldを取得します
C1.Win.FlexReport.SubreportField subRpt;
subRpt = (C1.Win.FlexReport.SubreportField)c1FlexReport1.Fields["Field1"];

// サブレポートを変更します
subRpt.Subreport = c1FlexReport2;

' データを取得します
Dim dt As DataTable = GetMyDataTable()

' DataTable をデータソースとして使用します
subRpt.Subreport.DataSource.Recordset = dt

// データを取得します
DataTable dt = GetMyDataTable();

// DataTable をデータソースとして使用します
subRpt.Subreport.DataSource.Recordset = dt;