主题：上移一行 下移一行 表PositionChanged事件报错！提示：未将对象引用设置到对象的实例

上移一行

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index > 0 Then
    CurrentTable.Current.move(CurrentTable.Current.Index-1)
End If

-------------

 下移一行

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index < CurrentTable.Rows.count-1 Then
    CurrentTable.Current.move(CurrentTable.Current.Index+1)
End If

PositionChanged代码  【运行提示：未将对象引用设置到对象的实例。】

Dim zs1 As Integer = Tables(e.form.name & "_table1").Count
If zs1 > 0 Then
    If Tables(e.form.name & "_table1").Current("uuid") <> "" Then
        vars("会议议题") = Tables(e.form.name & "_table1").Current("议题标题")
        vars("议题附件uuid") = Tables(e.form.name & "_table1").Current("uuid")
        Tables(e.form.name & "_table2").Filter = "uuid='" & Tables(e.form.name & "_table1").Current("uuid") & "'and 会议主题='" & vars("会议主题") & "' and 会议议题='" & vars("会议议题") & "'"
    Else
        Tables(e.form.name & "_table2").Filter = "uuid='XXXXXXX' and 会议议题='" & vars("会议议题") & "'and 会议主题='" & vars("会议主题") & "'"
        vars("议题附件uuid") = ""
        vars("会议议题") = ""
    End If
Else
    Tables(e.form.name & "_table2").Filter = "uuid='XXXXXXX' and  会议议题='" & vars("会议议题") & "'and 会议主题='" & vars("会议主题") & "'"
End If