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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未知错误

共有4525人关注过本帖树形打印复制链接主题：未知错误

有点灰2

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

加好友

发短信

等级：幼狐帖子：104 积分：785 威望：0 精华：0 注册：2022/5/7 19:05:00

未知错误

Post By：2022/5/31 16:33:00 [显示全部帖子]

图片点击可在新窗口打开查看此主题相关图片如下：201.png

If e.DataCol.Name = "批准开发" AndAlso e.DataRow("批准开发") = True Then
    Dim nma() As String = {"客户名称", "产品名称", "图号", "项目组长", "项目组员"} 'A表数据来源列
    Dim nmb() As String = {"策划_客户名称", "策划_产品名称", "策划_图号", "策划_项目组长", "策划_项目成员"} 'B表数据接收列
    Dim drt As DataRow = DataTables("样件制作管理系统").AddNew
    For i As Integer = 0 To nma.Length - 1
        drt(nmb(i)) = e.DataRow(nma(i))
    Next
End If