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

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

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

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

主题：批量复制表格