老师，二张表没有直接的关联列，唯一的关联就是在table表中的顺序，表1中的第一行与表2中的第一行是一对，以此累推，请问应该如何写代码以下是二张表的代码，此二表已经被设置成禁止排序了，可以确保数据一但加载后顺序不会变了
If e.DataCol.Name = "选中标记" OrElse e.DataCol.Name = "数量" OrElse e.DataCol.Name = "时间" Then
Dim bt As WinForm.Button = e.Form.Controls("Button_内转生成")
If bt.Enabled = True
Dim tb As WinForm.Table = e.Form.Controls("Table_内转入库")
Dim t As Table = tb.Table
t.Rows(CurrentTable.Current.Index)("选中标记") = e.DataRow("选中标记")
t.Rows(CurrentTable.Current.Index)("数量") = e.DataRow("数量")
t.Rows(CurrentTable.Current.Index)("时间") = e.DataRow("时间")
t.Refresh
End If
End If
If e.DataCol.Name = "选中标记" OrElse e.DataCol.Name = "数量" OrElse e.DataCol.Name = "时间" Then
Dim bt As WinForm.Button = e.Form.Controls("Button_内转生成")
If bt.Enabled = True
Dim tb As WinForm.Table = e.Form.Controls("Table_内转出库")
Dim t As Table = tb.Table
t.Rows(CurrentTable.Current.Index)("选中标记") = e.DataRow("选中标记")
t.Rows(CurrentTable.Current.Index)("数量") = e.DataRow("数量")
t.Rows(CurrentTable.Current.Index)("时间") = e.DataRow("时间")
t.Refresh
End If
End If
此主题相关图片如下：11.jpg
[此贴子已经被作者于2020/4/26 23:32:23编辑过]
加好友 
发短信
Post By：2020/4/26 22:39:00 [显示全部帖子]
