主题：内容复制到另一个表

楼主：在表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