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

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

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

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

复制表

Post By：2012/5/21 0:29:00 [只看该作者]

我想把统计窗口_Table1 表里的内容，点击按钮复制到计划表，我用了以下代码出现错误，请老师帮忙修改，谢谢！！！

Dim r As Row = Tables("统计窗口_Table1").Current
Dim dr As DataRow = DataTables("计划表").Find("产品型号 = '" & r("产品型号") & "' And 数量 = '" & r("需求数量") & "'")
If dr Is Nothing Then
    dr = DataTables("生产计划表").Find("产品型号 Is NUll And 产品型号 Is NuLL")
    If dr Is Nothing Then
        dr = DataTables("生产计划表").AddNew
    End If
    dr("产品型号") = r("产品型号")
    dr("数量") = r("需求数量")
    dr("下单员") = user.name
    dr("下单日期") = Date.today
End If

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/5/21 0:33:00 [只看该作者]

统计窗口_Table1 是个数据统计窗口

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/5/21 7:48:00 [只看该作者]

Dim r As Row = Tables("统计窗口_Table1").Current
Dim dr As DataRow = DataTables("计划表").Find("产品型号 = '" & r("产品型号") & "' And 数量 = '" & r("需求数量") & "'")
If dr Is Nothing Then
Dim dr1 As Datarow= DataTables("生产计划表").Find("产品型号 Is NUll And 产品型号 Is NuLL")
If dr1 Is Nothing Then

         Dim dr2 As Datarow = = DataTables("生产计划表").AddNew
    dr2("产品型号") = r("产品型号")
    dr2("数量") = r("需求数量")
    dr2("下单员") = user.name
    dr2("下单日期") = Date.today
End If

End if

wilson

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

加好友

发短信

等级：一尾狐帖子：419 积分：3316 威望：0 精华：0 注册：2012/3/21 10:44:00

Post By：2012/5/21 19:50:00 [只看该作者]

谢谢 blackzhu 我的问题已基本解决，

如果要复制统计窗口_Table1的所有行要如何修改代码

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

主题：复制表