Hi jcom39201,

You could test your scenario with a simple DataSet and see if the issue still occurs. 

I will try to get a running example, but may be time consuming. Database is DB2 on a remote server.

Hi jcom39201,

Your code seems to be correct. I am not able to tell what is causing the issue. Is it possible for you to provide me with a running sample, that reproduces this behavior? Thank you.

Thank you for your reply.

This is my first level dataset...

cmd.CommandText ="SELECT distinct PCASE_EMS_RUN_NUM,pcase_start_dt,pcase_dpo_loc,pcase_comments " + _            

" FROM pcase_file " + _            

" WHERE upper(PCASE_EMS_RUN_NUM)='" + UCase(TextBox3.Text) + "' and pcase_pat_acct=" + Session("acctid").ToString 

            cb.DataAdapter = da

            da.SelectCommand = cmd

            da.Fill(ds2,"tr")

I do not want to load the second tier dataset yet because that it what makes this page take so long to load. The user only needs to load a child tier if needed. So, I found on web to do this...

ds2.Tables.Add()

ds2.Tables(1).Columns.Add("PCASE_EMS_RUN_NUM", GetType(String))

ds2.Relations.Add(ds2.Tables(0).Columns("PCASE_EMS_RUN_NUM"), ds2.Tables(1).Columns("PCASE_EMS_RUN_NUM"))

 Me.ug1.DataSource = ds2.Tables("tr").DefaultView

Me.ug1.DataBind()

The above allows a dummy tier to be added in order to show the + indicator to each row.

I then have my rowisland routine as below and this loads the second tier of data per the parent ID.

Protected Sub ug1_RowIslandsPopulating(ByVal sender As Object, ByVal e As infragistics.Web.UI.GridControls.ContainerRowCancelEventArgs) Handles ug1.RowIslandsPopulating

        e.Cancel =True

Dim x = e.Row.Items(0).Value

Dim cnnn As New Odbc.OdbcConnection

' Get the data key

Dim key As Integer = CInt(e.Row.DataKey(0))

        ds3.Clear()

        ds3.Tables.Clear()

Dim cmd As New Odbc.OdbcCommand

Dim da As New Odbc.OdbcDataAdapter

Dim cb As New Odbc.OdbcCommandBuilder

        cmd.Connection = cnnn

        cmd.CommandTimeout = 500

             cnnn.ConnectionString =

"Provider=IBMDADB2;DSN=DISC" + Session("onpart") + ";Hostname=RSG2;Protocol=TCPIP;Port=50000;Uid=db2;Pwd=db2admin;"

             cnnn.Open()

              cmd.CommandText =

"SELECT  distinct PCASE_EMS_RUN_NUM,trn_enc_num,enc_tot,enc_pbal,enc_ibal,TRN_POST_DT, SVC_DESC1,  TRN_AMT, trn_rmk,INS_NM1" + _

 " FROM ((((trn_FILE inner JOIN enc_file on trn_file.trn_enc_num = enc_file.enc_num) LEFT JOIN TRH_FILE ON trn_file.TRN_HDR_NUM = TRH_FILE.TRH_NUM) LEFT JOIN PCASE_FILE ON TRH_FILE.TRH_JN_TO_PCASE = PCASE_FILE.PCASE_JN_FROM)  left join svc_file on trn_file.trn_svc_cd = svc_file.svc_cd) left join ins_file on trn_file.trn_ins_cd=ins_file.ins_cd " + _

" WHERE PCASE_EMS_RUN_NUM <> '' and PCASE_EMS_RUN_NUM = '" + x.ToString + "' and trn_PAT_ACCT = " + Session("acctid").ToString + _          

" ORDER BY trn_ENC_NUM,TRN_POST_DT"

         cb.DataAdapter = da

        da.SelectCommand = cmd

         da.Fill(ds3,"enc")

        cnnn.Close()

' Create Container Grid

 Dim childGrid As New ContainerGrid()

        childGrid.AutoGenerateColumns =

True

         childGrid.DataKeyFields ="PCASE_EMS_RUN_NUM"

         e.Row.RowIslands.Add(childGrid)

' Bind Grid

         childGrid.DataSource = ds3.Tables("enc")

        childGrid.DataBind()

end sub

As stated in original post. It works some of the time. I can load the top tier with 20 records and as I click on the expansion + it will run the rowisland routine good. If i select a different row the ajax indicator may flash for a second but the rowisland does not run. I can select another row and it runs fine. Select another row and I get error. Very random.

Thanks!