主题：合并模式怎么自定义标题

参考：http://www.foxtable.com/webhelp/topics/1964.htm

 For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup '如果是分组行
     dim dr as datarow = currenttable.datatable.find....
    End If

 For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i, True)
    If r.IsGroup Then
        r("total结余") = r("发货结余") + r("待验结余")
       
    End If
     If r.level = 1 Then
         Dim dr As DataRow = CurrentTable.DataTable.Find("成品编码='" & r("成品编码") & "'")
         If dr IsNot Nothing Then
             
       r("成品编码")= r("成品编码") & dr("成品描述")
       End if
    End If