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

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

之前我已经依照这个修改过了，但他提醒在表M_ItemNo是不存在“报告编号”

 既然你用两个列比较，那么这两个列你两个表都必须有啊。

老师，改变思路，针对明细保存的时候进行列重复的判定，若重复将提醒：

Dim str As String = ""
For Each dr As Row In Tables("T_Item").Rows
    Dim fdr As DataRow = DataTables("T_Item").Find("报告编号 = '" & dr("报告编号") & "' And 项目编号 = '" & dr("项目编号") & "'")
    If fdr IsNot Nothing Then
        str &= fdr("报告编号") & " " & dr("项目编号") & "|"
    Else
        DataTables("T_Item").save
    End If
Next
If str > "" Then
    MessageBox.Show("已经存在相同项目!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    MessageBox.Show(str.trim("|"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If