ChildTable در جانوس

[negar_s80]

من از کدهای زیر برای پرکردن grid استفاده می کنم ولی رکوردهای جدول Detail را نمایش نمی دهد
Cmd.CommandType = CommandType.Text
CommandText = "Select * From Categories"
Dim da As New SqlClient.SqlDataAdapter
Dim ds As New DataTable
da.SelectCommand = DbaseTier.Cmd
da.Fill(ds)
GridEX1.DataSource = ds
GridEX1.DataMember = "Categories"
و
Private Sub GridEX1_ExpandingRow(ByVal sender As Object, ByVal e As Janus.Windows.GridEX.RowActionCancelEventArgs) Handles GridEX1.ExpandingRow
If e.Row.RowType = Janus.Windows.GridEX.RowType.Record _
AndAlso e.Row.Table Is GridEX1.RootTable Then
If Not e.Row.ChildrenLoaded Then
Cursor = Cursors.WaitCursor

Cmd.CommandType = CommandType.Text
Cmd.CommandText = "Select productID,ProductName From products where CategoryID =" & e.Row.Cells("CategoryID").Value
Dim da As New SqlClient.SqlDataAdapter
da.SelectCommand = DbaseTier.Cmd
Dim ds1 As New DataTable
da.Fill(ds1)

GridEX1.RootTable.ChildTables("Products").DataMember = "Products"

Cursor = Cursors.Arrow
End If
End If
End Sub