主题：将同一列的数据复制到另外一个表不同的列，如何串联。

将同一列的数据复制到另外一个表不同的列，如何串联。

代码如下：

Select Case e.DataCol.Name
    Case "C11"
    Dim dr As DataRow = DataTables("o").Find(" B11 = " & "'" & e.DataRow("C114") & "' And G = " & "'" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
       dr("O")=e.DataRow("C11")
       dr("P")=e.DataRow("C12")
    End If
    Case "C11"
    Dim dr As DataRow = DataTables("o").Find(" B11 = " & "'" & e.DataRow("C114") & "' And W = " & "'" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
       dr("A1")=e.DataRow("C11")
       dr("B1")=e.DataRow("C12")
    End If
    Case "C11"
    Dim dr As DataRow = DataTables("o").Find(" B11 = " & "'" & e.DataRow("C114") & "' And C1 = " & "'" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
       dr("G1")=e.DataRow("C11")
       dr("H1")=e.DataRow("C12")
    End If
    Case "C11"
    Dim dr As DataRow = DataTables("o").Find(" B11 = " & "'" & e.DataRow("C114") & "' And I1 = " & "'" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
       dr("M1")=e.DataRow("C11")
       dr("N1")=e.DataRow("C12")
    End If
End Select

没有看懂你的代码，怎么这么多：Case "C11"

只有一个会生效的。

这样看看行不行？

Select Case e.DataCol.Name
    Dim dt As DataTable = DataTables("o")
    Dim s As String = "B11 = '" & e.DataRow("C114") & "'"
Case "C11"
    Dim dr As DataRow = t.Find(s & " And G = '" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
        dr("O")=e.DataRow("C11")
        dr("P")=e.DataRow("C12")
    End If
    Dim dr1 As DataRow = t.Find(s & " And W = '" & e.DataRow("C4") & "'" )
    If dr1 IsNot Nothing'如果找到,则设置各列内容
        dr1("A1")=e.DataRow("C11")
        dr1("B1")=e.DataRow("C12")
    End If
    Dim dr2 As DataRow = t.Find(s & " And C1 = '" & e.DataRow("C4") & "'" )
    If dr2 IsNot Nothing'如果找到,则设置各列内容
        dr2("G1")=e.DataRow("C11")
        dr2("H1")=e.DataRow("C12")
    End If
    Dim dr3 As DataRow = t.Find(s & " And I1 = '"  & e.DataRow("C4") & "'" )
    If dr3 IsNot Nothing'如果找到,则设置各列内容
        dr3("M1")=e.DataRow("C11")
        dr3("N1")=e.DataRow("C12")
    End If
End Select

就是要把各种条件组合起来，不知道怎么写代码，只好都写 Case "C11",

另外CZY写的代码提示有误，谢谢！！！

这样就可以了

Dim dt As DataTable = DataTables("o")
Dim s As String = "B11 = '" & e.DataRow("C114") & "'"
  Select Case e.DataCol.Name
  Case "C11"
    Dim dr As DataRow = dt.Find(s & " And G = '" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
        dr("O")=e.DataRow("C11")
        dr("P")=e.DataRow("C12")
    End If
    Dim dr1 As DataRow = dt.Find(s & " And W = '" & e.DataRow("C4") & "'" )
    If dr1 IsNot Nothing'如果找到,则设置各列内容
        dr1("A1")=e.DataRow("C11")
        dr1("B1")=e.DataRow("C12")
    End If
    Dim dr2 As DataRow = dt.Find(s & " And C1 = '" & e.DataRow("C4") & "'" )
    If dr2 IsNot Nothing'如果找到,则设置各列内容
        dr2("G1")=e.DataRow("C11")
        dr2("H1")=e.DataRow("C12")
    End If
    Dim dr3 As DataRow = dt.Find(s & " And I1 = '"  & e.DataRow("C4") & "'" )
    If dr3 IsNot Nothing'如果找到,则设置各列内容
        dr3("M1")=e.DataRow("C11")
        dr3("N1")=e.DataRow("C12")
    End If
End Select

谢谢

这样就可以了

Dim dt As DataTable = DataTables("o")
Dim s As String = "B11 = '" & e.DataRow("C114") & "'"
  Select Case e.DataCol.Name
  Case "C11"
    Dim dr As DataRow = dt.Find(s & " And G = '" & e.DataRow("C4") & "'" )
    If dr IsNot Nothing'如果找到,则设置各列内容
        dr("O")=e.DataRow("C11")
        dr("P")=e.DataRow("C12")
    End If
    Dim dr1 As DataRow = dt.Find(s & " And W = '" & e.DataRow("C4") & "'" )
    If dr1 IsNot Nothing'如果找到,则设置各列内容
        dr1("A1")=e.DataRow("C11")
        dr1("B1")=e.DataRow("C12")
    End If
    Dim dr2 As DataRow = dt.Find(s & " And C1 = '" & e.DataRow("C4") & "'" )
    If dr2 IsNot Nothing'如果找到,则设置各列内容
        dr2("G1")=e.DataRow("C11")
        dr2("H1")=e.DataRow("C12")
    End If
    Dim dr3 As DataRow = dt.Find(s & " And I1 = '"  & e.DataRow("C4") & "'" )
    If dr3 IsNot Nothing'如果找到,则设置各列内容
        dr3("M1")=e.DataRow("C11")
        dr3("N1")=e.DataRow("C12")
    End If
End Select

谢谢