以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]同一行克隆多次时，如何写这个输入次数的代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65163)
--  作者：huangfanzi
--  发布时间：2015/3/10 15:42:00
--  [求助]同一行克隆多次时，如何写这个输入次数的代码？

Dim r As Row = Tables("表A").Current

For i As integer = 1 to 10

   r.Clone()

Next


以上这个代码执行后，会把当前行克隆10次，如何写代码，能让我手工输入要求克隆的次数，效果就如同Syscmd.Row.AddNews()一样，执行代码后会弹出一个窗口，让我输入次数，谢谢！
--  作者：有点甜
--  发布时间：2015/3/10 15:44:00
--  
Dim count As Integer = 10
If InputValue(count, "克隆", "行数:") Then
    Dim r As Row = Tables("表A").Current
   
    For i As Integer = 1 To count
       
        r.Clone()
       
    Next
End If
--  作者：huangfanzi
--  发布时间：2015/3/10 15:47:00
--  
非常感谢！