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

老师好， 窗体中的两个按钮能帮忙实现吗？

 

拆分，只要选中的记录进行拆分，要提示拆分几笔 ？如办输入2，就分成二笔，输入3，就3笔，数量按输入的数量分配，其它不变

合并，只要光标选中的记录两条记录进行合并，数量加总，其它不变。

 

以上，请帮忙一下，附实例。谢谢了。

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:diff.table

交货期不考虑。

 

老师， 以下合并的，是不是可以帮忙加个条件，产品，单位相同的记录才可以进行合并，否则提不能合并，谢谢了！

 

Dim t As Table = Tables("表A")
Dim cr = t.Rows(t.TopPosition)
For i As Integer = t.BottomPosition To t.TopPosition+1 Step -1
    cr("数量") += val(t.Rows(i)("数量"))
    t.Rows(i).delete
Next

老师，还有个问题表中的记录怎么一定要连续选择的， 不能隔开选行吗？ 能不能帮忙加个如果没有选中，提醒选一下，如果不能合并，也提醒一下。不好意思，又麻烦了。

谢谢了。

能不能帮忙加个如果没有选中，提醒选一下，如果不能合并，也提醒一下

老师，那个隔开不合适，用光标隔开点选吗？

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

 

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

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