DataTableにデータを入力し、そのDataTableのDefaultViewを並べ替えます。レポートのソースとしてDataTableを設定すると、並べ替えが機能しません。役立つ場合は、次のコードを使用します(GetDataは有効なDataTableを返します)。
Dim dt As DataTable = a.GetData(Parm1, Parm2, Parm3)
If rbtSortByField1.Checked Then
dt.DefaultView.Sort = "Field1 ASC"
ElseIf rbtSortByField2.Checked Then
dt.DefaultView.Sort = "Field2 ASC"
ElseIf rbtSortByField3.Checked Then
dt.DefaultView.Sort = "Field3 ASC"
End If
rpt.SetDataSource(dt.DefaultView.Table)
'This also doesn't work
'rpt.SetDataSource(dt)