以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内容复制到另一个表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=15588)
--  作者：kevin
--  发布时间：2012/1/1 12:51:00
--  内容复制到另一个表
在表A中 的 "配料"列内容:A,B,C,D,E 能否将这些内容复制到表B的"配料"列,并且是每行形式: 1 A 2 B 3 C 4 D 5 E 请老师帮忙
--  作者：jianjingmaoyi
--  发布时间：2012/1/1 14:09:00
--  
Dim Multi As String = Tables("表A").Current("地点")
Dim Values() As String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
    Dim r As Row =Tables("差旅费率表").AddNew()
    r("出差地")= Values(Index)
Next
--  作者：小猪鑫鑫
--  发布时间：2012/1/1 18:24:00
--  

楼主：在表A的datacolchanged中加入代码

If e.DataCol.name ="配料" Then
Dim pl As String =e.DataRow("配料")
Dim plj As String() =pl.Split(",")
For i As Integer =0 To plj.length -1
Dim dr As DataRow =DataTables("表B").addnew()
dr("配料") = (i+1) & plj(i)
Next
End If