主题：[求助]修改行

“修改”窗口中“Table1”控件CurrentChanged事件设置以下代码。

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = Tables("窗口1_Table1").DataTable.Find("[menuid] = '" & e.Table.Current("menuid") & "'")
If dr IsNot Nothing Then
    wz = Tables("窗口1_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("窗口1_Table1").Position = wz
    End If
End If