[求助]窗口中二张表联动的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表1的DataColChanged事件

Dim tb As WinForm.Table = e.Form.Controls("Table_表2")

Dim t As Table = tb.Table

t.Rows(CurrentTable.Current.Index)("选中标记") = e.DataRow("选中标记")

窗口中有二张表，我希望选择表1中的选中标记（逻辑型），表2的对应行记录的选中标记也发生相应更改

用了以上代码，我如果在表1中一个一个点选，是可以实现想要的功能的，可我如果用 CTRL + D 的方法一次性更改表1中选中标记多条记录，表2中只能实现第一条记录联动，后面的就不变了，请老师看下，谢谢！

先看看：http://www.foxtable.com/webhelp/topics/1522.htm

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "选中标记"
dim dr as datarow = e.Form.Controls("Table_表2").table.datatable.find("关联列=‘" & e.DataRow("关联列") & "’")

if dr isnot nothing then

dr("选中标记") = e.DataRow("选中标记")

end if

End Select

老师，二张表没有直接的关联列，唯一的关联就是在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

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

此主题相关图片如下：11.jpg

[此贴子已经被作者于2020/4/26 23:32:23编辑过]

还要保证加载的行数是一致的

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 idx as integer = e.Form.Controls("Table_内转出库").table.findrow(e.DataRow)

Dim tb As WinForm.Table = e.Form.Controls("Table_内转入库")

Dim t As Table = tb.Table

t.Rows(idx)(e.DataCol.Name) = e.DataRow(e.DataCol.Name)

End If

蓝板，搞定了,还有一个问题，也请帮忙下

二个窗口的记录宽度超过窗口宽度时，下方就会有横向滚动条（这个叫法可能不对），如何也能做到联动，比如在表格1上滚动条向右一点，下方的表格2也会向右一点，因为只是在出入库方名字互换了下，上下二条记录的总长度必定是一致的，当然，我也设置了禁止调整列宽

主题：[求助]窗口中二张表联动的问题