上移一行

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