此主题相关图片如下：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

我按照帮助文件写的 怎么会错呢