批量复制表格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量复制表格

共有2748人关注过本帖树形打印复制链接主题：批量复制表格

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

批量复制表格 发帖心情

Post By：2018/7/25 16:03:00 [只看该作者]

Dim dr As Row = Tables("订单附产品表").addnew

dr("订单号据_联订管号")=e.form.controls("Label4").text

dr("订单号据_联订平号")= Tables("订单商管选择窗口_Table3").Current("订单联号_订平编号")

如果点击按钮批量复制到另外一个表一个怎么改呀，感谢感谢

比如代码写入按钮，点击按钮，然后订单附产品表就增加订单商管选择窗口_Table3选择的行（这里是多行）增加新行的订单号据_联订管号列都得到Label4的字符，感谢感谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/25 16:05:00 [只看该作者]

参考

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

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/25 16:35:00 [只看该作者]

Dim dra As Row = Tables("商管附表").addnew

Dim t As Table = e.Tables("产品编辑窗口_Table1").

For i As Integer = t.BottomPosition To t.TopPosition Step -1

dra("商管关联号")=e.form.controls("Label4").text

dra("产品编号") = Tables("订单商管选择窗口_Table1").Current("平台属性_商品编号")

能在帮忙看看吗？实在是理解不了，感谢感谢图片点击可在新窗口打开查看

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/25 16:38:00 [只看该作者]

Dim t As Table = Tables("选择表")
For i As Integer = t.TopPosition To t.BottomPosition
    Dim dra As Row = Tables("商管附表").addnew
    dra("商管关联号")=e.form.controls("Label4").text
    dra("产品编号") = t.Rows(i)("平台属性_商品编号")
Next

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/25 17:42:00 [只看该作者]

Dim ta As Table = Tables("产品编辑窗口_Table1")

For ia As Integer = ta.TopPosition To ta.BottomPosition

Tables("产品编辑窗口_Table1").Current("平台信息_商品编号")=e.form.controls("Label3").text

Tables("产品编辑窗口_Table1").Current("平台信息_状态")="已分组"

Tables("产品编辑窗口_Table1").Current("平台信息_状态")=e.form.controls("DateTimePicker1").text

为什么只能得到输入第一行呢，感谢感谢

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/25 17:55:00 [只看该作者]

能在帮忙看看这个吗

Dim t As Table = Tables("产品编辑窗口_Table1")

For i As Integer = t.TopPosition To t.BottomPosition

If Tables("产品编辑窗口_Table1").current("实况_管理状态") = "未管理" Then

MessageBox.Show("产品有未管理行")

Return

End If

就是判断为选中的行，感谢感谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/25 20:32:00 [只看该作者]

以下是引用yangwenghd在2018/7/25 17:42:00的发言：

Dim ta As Table = Tables("产品编辑窗口_Table1")

For ia As Integer = ta.TopPosition To ta.BottomPosition

Tables("产品编辑窗口_Table1").Current("平台信息_商品编号")=e.form.controls("Label3").text

Tables("产品编辑窗口_Table1").Current("平台信息_状态")="已分组"

Tables("产品编辑窗口_Table1").Current("平台信息_状态")=e.form.controls("DateTimePicker1").text

为什么只能得到输入第一行呢，感谢感谢

Dim ta As Table = Tables("产品编辑窗口_Table1")
For ia As Integer = ta.TopPosition To ta.BottomPosition
    Dim nr = Tables("产品编辑窗口_Table1").Rows(ia)
    nr("平台信息_商品编号")=e.form.controls("Label3").text
    nr("平台信息_状态")="已分组"
    nr("平台信息_状态")=e.form.controls("DateTimePicker1").text
Next

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/25 20:33:00 [只看该作者]

以下是引用yangwenghd在2018/7/25 17:55:00的发言：
能在帮忙看看这个吗

Dim t As Table = Tables("产品编辑窗口_Table1")

For i As Integer = t.TopPosition To t.BottomPosition

If Tables("产品编辑窗口_Table1").current("实况_管理状态") = "未管理" Then

MessageBox.Show("产品有未管理行")

Return

End If

就是判断为选中的行，感谢感谢

Dim t As Table = Tables("产品编辑窗口_Table1")

For i As Integer = t.TopPosition To t.BottomPosition

If t.rows(i)("实况_管理状态") = "未管理" Then

MessageBox.Show("产品有未管理行")

Return

End If

yangwenghd

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

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/7/26 16:30:00 [只看该作者]

Dim ta As Table = Tables("产品编辑窗口_Table1")

For ia As Integer = ta.TopPosition To ta.BottomPosition

Dim nr = Tables("产品编辑窗口_Table1").Rows(ia)

nr("平台信息_商品编号")=e.form.controls("Label3").text

nr("平台信息_状态")="已分组"

nr("平台信息_日期")=e.form.controls("DateTimePicker1").text

能再帮忙看看这个吗？不知道为什么只能执行一半的行，感谢感谢是不是我在执行其他代码的时候就暂停了上面的代码执行了感谢感谢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/26 16:36:00 [只看该作者]

Dim ta As Table = Tables("产品编辑窗口_Table1")
For ia As Integer = ta.BottomPosition To ta.TopPosition Step -1
    Dim nr = Tables("产品编辑窗口_Table1").Rows(ia)
    nr("平台信息_商品编号")=e.form.controls("Label3").text
    nr("平台信息_状态")="已分组"
    nr("平台信息_日期")=e.form.controls("DateTimePicker1").text
Next

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

主题：批量复制表格