专家坐堂-招标信息，全局表事件,CurrentChanged代码出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：2.0.50727.8762

Foxtable 版本：2018.10.9.1

错误所在事件：招标信息,CurrentChanged

详细错误信息：

DataBinding 无法在列表中找到适合所有绑定的行。

\'关联表同步加载

If e.Table.Current IsNot Nothing Then

Dim filt As String = "系统编号 = \'" & e.Table.Current("系统编号") & "\'"

Dim nms() As String = {"项目联系人","资料明细","任务分配"} \'表名称

For Each nm As String In nms

If DataTables(nm).Find(filt) Is Nothing Then

DataTables(nm).AppendLoad(filt)

End If

2、再提示：全局表事件,CurrentChanged出错：

.NET Framework 版本：2.0.50727.8762

Foxtable 版本：2018.10.9.1

错误所在事件：全局表事件,CurrentChanged

详细错误信息：

DataBinding 无法在列表中找到适合所有绑定的行。

\'\'希望在这个副本Table中选定一行时,主表A也能自动选定这一行

If CurrentTable.Name <> "合同管理台帐_Table5" OrElse CurrentTable.Name <> "合同管理台帐_Table1" Then \'因为与合同管理台帐有冲突,所以加了这个

If e.Table.Current Is Nothing Then \'如果Current为Nothing

Return

Else

Dim dr As DataRow = e.Table.Current.DataRow

Dim t As Table = Tables(e.Table.DataTable.name)

Dim wz As Integer = t.FindRow(dr)

If wz >= 0 Then

Systemready = False

t.Position = wz

Systemready = True

End If