以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 将同一列的数据复制到另外一个表不同的列，如何串联。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16007)
|
-- 作者：huanghpp
-- 发布时间：2012/1/30 11:04:00
-- 将同一列的数据复制到另外一个表不同的列，如何串联。
将同一列的数据复制到另外一个表不同的列，如何串联。
代码如下：
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
|
-- 作者：狐狸爸爸
-- 发布时间：2012/1/30 11:52:00
--
没有看懂你的代码，怎么这么多：Case "C11"
只有一个会生效的。
|
-- 作者：czy
-- 发布时间：2012/1/30 12:05:00
--
这样看看行不行？
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
|
-- 作者：huanghpp
-- 发布时间：2012/1/30 13:52:00
--
就是要把各种条件组合起来，不知道怎么写代码，只好都写 Case "C11",
另外CZY写的代码提示有误，谢谢！！！
|
-- 作者：huanghpp
-- 发布时间：2012/1/30 14:13:00
--
这样就可以了
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
谢谢
|
-- 作者：huanghpp
-- 发布时间：2012/1/30 14:16:00
--
这样就可以了
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
谢谢
|