'Functions.Execute("副本表定位行",tb)
Dim tb As Table = Args(0)
If tb.Current IsNot Nothing Then
Dim strTableName As String = tb.DataTable.name
Dim wz As Integer
Dim dr As DataRow
dr = DataTables(strTableName).Find("[_Identify] = " & tb.Current("_Identify"))
If dr IsNot Nothing Then
wz = Tables(strTableName).FindRow(dr)
If wz >= 0 Then
Tables(strTableName).Position = wz
End If
End If
End If
在窗口副本表的 CurrentChanged 事件 中 Functions.Execute("副本表定位行",CurrentTable) 这里测试运行流畅
在项目事件 的全局表事件的 CurrentChanged 事件中Functions.Execute("副本表定位行",e.Table) 这里测试确运行有时比较卡