主题：[求助]如何将查询到内容选择部分保存到另表中

If e.Row.Checked  Then
    Dim cs1() As String = {"项目编号","报告编号","标准","检测项目","检测方法"}
    Dim cs2() As String = {"项目编号","报告编号","标准","检测项目","检测方法"}
    Dim fdr As DataRow = DataTables("T_Item").find("项目编号 = '" & e.Row("项目编号") & "' and 报告编号 = '" & e.Row("报告编号") & "'")
    If fdr Is Nothing Then
        fdr = Tables("T_Report.T_Item").addnew.DataRow
    End If
    For i As Integer = 0 To cs1.Length - 1
        fdr(cs1(i)) = e.Row(cs2(i))
    Next
End If