Post
Ask Question

DataTable Adding Between Two Row in New Row

Dataset getting Value in database
  1. Dim dt As DataTable  
  2. If ds.Tables(1).Rows.Count > 0 Then  
  3.    dt = ds.Tables(0).Clone()  
  4.    ds.Tables(0).Merge(ds.Tables(1))  
  5.    ds.Tables(0).AcceptChanges()  
  6.    For Cnt = 0 To (ds.Tables(0).Rows.Count - 1)  
  7.          If ds.Tables(0).Rows(Cnt)("Columname1 ").ToString = "" Then  
  8.             dt.ImportRow(ds.Tables(0).Rows(Cnt))  
  9.          End If  
  10.       ds.Tables(0).DefaultView.RowFilter = " Columname1 =" + ds.Tables(0).Rows(Cnt)("Columname0").ToString  
  11.       If ds.Tables(0).DefaultView.ToTable().Rows.Count > 0 Then  
  12.             For iCnt = 0 To ds.Tables(0).DefaultView.ToTable().Rows.Count - 1  
  13.                   dt.ImportRow(ds.Tables(0).DefaultView.ToTable().Rows(iCnt))  
  14.             Next  
  15.       End If  
  16.   Next  
  17.   ds.Tables.Remove("Table")  
  18.    ds.Tables.Remove("Table1")  
  19.    ds.Tables.Add(dt.Copy())  
  20. End If