如何合併在數據表中的行其中有相同的值（VB）

Question

我有值的一個數據表tempDT：

Serial_No      testong 
--------------------------------------- 
DTSHCSN001205035919201   [ OUT ] <br/> Partner : 90000032 <br/> Date : 16 Feb 2012 
DTSHCSN001205035919201   [ IN ] <br/> Partner : 90000032 <br/> Date : 16 Feb 2012 
DTSHCSN001205035919201   [ OUT ] <br/> Partner : 80000869 <br/> Date : 31 Mar 2012 
DTSHCSN001205035919201   [ IN ] <br/> Partner : 80000869 <br/> Date : 31 Mar 2012 

是我想重複serial_no合併成一排，其增加新的testong的價值問題柱。

我嘗試了很多方法，但找不到解決方案。

這裏是我的代碼背後：

Dim tempDt = GetItemDataTable() 
    Dim dtData As New DataTable 

    dtData.Columns.Add("Serial_No") 
    Dim i As Integer = 0 
    Dim row As DataRow 

    For Each row In tempDt.Rows 
     i += 1 
     Dim dr As DataRow = dtData.NewRow 
     dr("Serial_No") = row(0) 
     If dr("Serial_No") = row(0) Then 
      Dim colBaru As GridViewDataTextColumn = New GridViewDataTextColumn() 
      colBaru.Caption = i 
      colBaru.FieldName = i 
      colBaru.CellStyle.HorizontalAlign = HorizontalAlign.Center 
      colBaru.HeaderStyle.HorizontalAlign = HorizontalAlign.Center 
      colBaru.Width = 150 

      colBaru.UnboundType = DevExpress.Data.UnboundColumnType.Integer 
      colBaru.VisibleIndex = grid.VisibleColumns.Count 
      colBaru.PropertiesTextEdit.DisplayFormatString = "d1" 
      colBaru.PropertiesTextEdit.EncodeHtml = True 
      grid.Columns.Add(colBaru) 
      dtData.Columns.Add(i) 
      dr(i) = row(3) 
      dtData.Rows.Add(dr) 

     Else 
      dr("Serial_No") = row(0) 
      dtData.Rows.Add(dr) 
     End If 

當我調試的結果是：

但我想要的結果是這樣的：

Answer 1

我已經更新了我的代碼，所以它會看列而不是使用變量i

Dim tempDt = GetItemDataTable() 
Dim dtData As New DataTable 

'initial the first and second columns 
dtData.Columns.Add("Serial_No") 
dtData.Columns.Add("1") 

Dim i As Integer = 0 
Dim row As DataRow 

For Each row In tempDt.Rows 
    Dim dr As DataRow 
    i += 1 
    'check if the serial no exists in the new Data Table 
    If dtData.Select("Serial_No='" & row(0) & "'").Length > 0 Then 



     'If found, then get the existing row 
     dr = dtData.Select("Serial_No='" & row(0) & "'")(0) 

     'Create new GridViewDataTextColumn 
     Dim colBaru As GridViewDataTextColumn = New GridViewDataTextColumn() 
     colBaru.Caption = i 
     colBaru.FieldName = i 
     colBaru.CellStyle.HorizontalAlign = HorizontalAlign.Center 
     colBaru.HeaderStyle.HorizontalAlign = HorizontalAlign.Center 


     colBaru.UnboundType = DevExpress.Data.UnboundColumnType.Integer 
     colBaru.VisibleIndex = grid.VisibleColumns.Count 
     colBaru.PropertiesTextEdit.DisplayFormatString = "d1" 
     colBaru.PropertiesTextEdit.EncodeHtml = False 
     grid.Columns.Add(colBaru) 

     'I assume you are adding the Number as the columns name 
     'Only need to create if the Column doesn't exist 
     If dtData.Columns.count - 1 < i Then 
      dtData.Columns.Add(i.ToString) 
     End If 

     'Use variable i here 
     dr(i) = row(3) 

     'Comment this out as you don't need to 
     'dtData.Rows.Add(dr) 
    Else 

     'reset value of i 
     i = 1 

     'If not found, then create a new row 
     dr = dtData.NewRow 
     ' i put this to add the serial_no value to datatable 
     dr("Serial_No") = row(0) 

     'for adding first value i with same row as serial_no 
     Dim colBaru As GridViewDataTextColumn = New GridViewDataTextColumn() 
     colBaru.Caption = i 
     colBaru.FieldName = i 
     colBaru.CellStyle.HorizontalAlign = HorizontalAlign.Center 
     colBaru.HeaderStyle.HorizontalAlign = HorizontalAlign.Center 


     colBaru.UnboundType = DevExpress.Data.UnboundColumnType.Integer 
     colBaru.VisibleIndex = grid.VisibleColumns.Count 
     colBaru.PropertiesTextEdit.DisplayFormatString = "d1" 
     colBaru.PropertiesTextEdit.EncodeHtml = False 
     grid.Columns.Add(colBaru) 

     'dtData.Columns.Add("1") 

     'Would be better to use back variable i if you have reset it 
     dr(i) = row(3) 


     dtData.Rows.Add(dr) 
    End If 
Next