主题：[求助] 表中的记录进行拆分和合并

 

只能用这种方法勾选

 

http://www.foxtable.com/webhelp/scr/1776.htm

 

如果你要复杂的，参考这里

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127220&skin=0

 

老师，现在可以用光标挑选了，可以合并不可以，能帮忙看看选中如何合并吗？另外那个黑色的单元格背景不需要可以吗？ 代码如下：

 

If vars("stop") = True Then Return
If ModifierKey <> Keys.Control Then
    For Each p As String In ps
        Dim ary() As String = p.Split(",")
        If ary(0) >= 0 AndAlso ary(1) >= 0 Then
            e.Table.Grid.SetCellStyle(ary(0)+1, ary(1)+1, "")
        End If
    Next
    ps.clear
End If

For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
    For j As Integer = e.NewRange.LeftCol To e.NewRange.RightCol
        Dim p As String = i & "," & j
        If i >= 0 AndAlso j >= 0 AndAlso ps.contains(p) = False Then
            ps.add(p)
        End If
    Next
Next

Dim sum As Double = 0
For Each p As String In ps
    Dim ary() As String= p.Split(",")
    If ary(0) >= 0 AndAlso ary(1) >= 0 Then
        Dim s As C1.Win.C1FlexGrid.CellStyle = e.Table.grid.Styles.Add("selected")
        s.backcolor = Color.red '背景
        e.Table.Grid.SetCellStyle(ary(0)+1, ary(1)+1, s)
        e.Table.DataTable.SysStyles("Focus").BackColor = Color.black
       
        '各种计算
        Dim cval = e.Table(cint(ary(0)), cint(ary(1)))
        sum += val(cval)
    End If
Next

StatusBar.Message1 = "累计:" & sum

 

 

合并代码如下：

 

 

Dim t As Table = Tables("表A")
Dim cr = t.Rows(t.BottomPosition )
For i As Integer = t.BottomPosition-1 To t.TopPosition Step -1
    If cr("产品") = t.Rows(i)("产品") AndAlso cr("单位") = t.Rows(i)("单位")
        cr("数量") += val(t.Rows(i)("数量"))
        t.Rows(i).delete
    Else
        cr = t.Rows(i)
    End If
Next

 

 

 

此主题相关图片如下：捕获.png

改成

Dim t As Table = Tables("表A")
Dim cr = t.current
Dim ls As new List(Of Integer)
For Each p As String In ps
    Dim i = p.split(",")(0)
    If ls.contains(i) = False Then
        ls.add(i)
        If cr("产品") = t.Rows(i)("产品") AndAlso cr("单位") = t.Rows(i)("单位")
            cr("数量") += val(t.Rows(i)("数量"))
        Else
            cr = t.Rows(i)
        End If
    End If
Next
ls.Sort
For i As Integer = ls.count-1 To 0 Step -1
t.Rows(ls(i)).Delete
Next

老师，这个不对，一并全部没有了。

 

建议还是使用这个http://www.foxtable.com/webhelp/scr/1776.htm

 

具体实例发上来测试。