If e.DataCol.Name = "逻辑列" AndAlso e.DataRow("逻辑列") = True Then
Dim nma() As String = {"货号"} '表数据来源列
Dim nmb() As String = {"货号"} '表数据接收列
Dim dr As DataRow = DataTables("进销存").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
End If
加好友 
发短信
Post By：2011/12/31 19:30:00 [显示全部帖子]
