请教大红袍老师,关于自动复制行等几个问题
1. 我参照帮助自动复制行,同列名的数据已经复制过去了,不同列名(多层表头)没有复制过去 (自己已解决)
2. 其中要复制过去的是多文件型的,也没有把数据复制过去(存放目录是同一个已经设置了) (自己已解决)
3. 另外,如果多个文件放在多文件列中,查询的时候如何查询出多文件中的一个文件(每行都有不同的任务编号)????
自动复制行的代码:
If e.DataCol.Name = "已上传" AndAlso e.DataRow("已上传") = True Then '逻辑列打钩该行数据复制到前期成果审核
Dim nma() As String = {"任务编号","项目名称","招/投标名称","项目负责人","执行部门","执行人员","文件上传_设计图纸","文件上传_商务文本","文件上传_其他文件"} '待审资料表数据来源列
Dim nmb() As String = {"任务编号","项目名称","招/投标名称","项目负责人","执行部门","执行人员","图纸_设计图纸","商务_商务文本","其他_其他文件"} '成果审核表数据接收列
Dim dr As DataRow = DataTables("成果审核").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
[此贴子已经被作者于2016/2/1 11:37:56编辑过]