[求助]增加多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加多行

共有12714人关注过本帖树形打印复制链接主题：[求助]增加多行

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/5 15:36:00 [显示全部帖子]

以下是引用lxhmax在2012-9-4 12:04:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：批量增加数据.jpg

大概意思是这样的，麻烦狐爸看看！

呃...你的意思是说：新增一行，填入数据以后，然后（自动）添加5行（依据填入的数据）？

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/6 16:07:00 [显示全部帖子]

以下是引用狐狸爸爸在2012-9-6 15:44:00的发言：

一次增加5行：

For i As Integer To 5
    If Tables("表1.表2").Rows.Count > 0 Then
        With Tables("表1.表2")
            Dim r1 Row = .Rows(.Rows.Count -1)
            Dim r2 As Row = .AddNew()
            r2("某列1") = r1("某列1")
            r2("某列2") = r1("某列3")
            r2("某列3") = r1("某列4")
        End With
    Else
        Tables("表1.表2").AddNew
    End If
Next

把 5 字改成别的数字试试？...

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/9/6 16:24:00 [显示全部帖子]

以下是引用lxhmax在2012-9-6 16:15:00的发言：
我的意思是在点按钮的时候会弹出一个窗口提示需要添加多少行！

Dim n As Integer
InputValue(n, "增加行哦", "你希望是几行？")

For i As Integer To n
    If Tables("表1.表2").Rows.Count > 0 Then
        With Tables("表1.表2")
            Dim r1 Row = .Rows(.Rows.Count -1)
            Dim r2 As Row = .AddNew()
            r2("某列1") = r1("某列1")
            r2("某列2") = r1("某列3")
            r2("某列3") = r1("某列4")
        End With
    Else
        Tables("表1.表2").AddNew
    End If
Next

http://www.foxtable.com/help/topics/2063.htm

[此贴子已经被作者于2012-9-6 16:25:29编辑过]

下一主题 >> << 上一主题

主题：[求助]增加多行