此主题相关图片如下: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
我按照帮助文件写的 怎么会错呢