主题：[求助]副本Table之行位置联动

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
If e.Table.rows.count = 0 Then
    Return
End If
If wz >=0 Then
    Tables("窗口1_Table1").Position = wz
    If e.Table.rows.count = 0 Then
        Return
    End If
End If

 

这句话帮忙看一下哪里有错了

 

此主题相关图片如下：212.png

黑框里的副本表没有任何行的时候就提示出错，求教应该怎么改

没有任何行的时候就没有当前行,  没有当前行你获取当前行当然会报错

还是上例子最好了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

这个代码是放在窗口Table控件里的

If Forms("窗口1").Opened AndAlso e.Table.rows.count > 0 Then
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
    If wz > = 0 Then
        Tables("窗口1_Table1").Position = wz
    Else
        Return
    End If
End If

此主题相关图片如下：212.png

但是处于这种没行的状态下  添加一行的话还是报同样的错误

谢谢大家了我找到原因了