以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求一位干爸爸，求拆分行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116331)
--  作者：UBSS
--  发布时间：2018/3/22 21:53:00
--  求一位干爸爸，求拆分行
如下，我有3行 分别是

----------------------------
单号1   名字   件数

12A     哈儿   4
-------------------------

现在我想达到一个功能，我在单元格上点击右键选拆分，然后系统跳出一个对话框问我件数拆多少出来，然后我输入一个2，确定，就得到下边结果



----------------------------
单号1   名字   件数

12A     哈儿   2
12A     哈儿   2
-------------------------

有那有能写出代码，他就是我干爹中的干爹
--  作者：有点甜
--  发布时间：2018/3/22 22:06:00
--  
Dim count As Integer = 2
Dim r As Row = Tables("表A").current
For i As Integer = 1 To count - 1
    Dim nr As Row = r.Table.addnew
    nr.move(r.index+1)
    nr("第一列") = r("第一列")
    nr("第二列") = r("第二列")
    nr("第三列") = r("第三列") / count
Next
r("第三列") = r("第三列") / count
--  作者：UBSS
--  发布时间：2018/3/22 22:21:00
--  
干爹，我要的是能自己选择拆多少，而不是平分拆，能再写哈不       还有就是我如果又不想拆了，能返回不
--  作者：有点甜
--  发布时间：2018/3/22 22:35:00
--  
Dim count As Integer = 2
If InputValue(count, "提示", "多少?")
    Dim r As Row = Tables("表A").current
   
    Dim nr As Row = r.Table.addnew
    nr.move(r.index+1)
    nr("第一列") = r("第一列")
    nr("第二列") = r("第二列")
    nr("第三列") = count
    nr("第十列") = r("_Identify") \'记录属于哪个记录拆分
    r("第三列") = r("第三列") - count
End If