主题：行间移动

为什么单击“上一条”、“下一条”、“最后一条”、“第一条”时移动的不是本表，而是那个表打开了，移动的是那个表？怎么处理？

第一条

 

If Tables("流量卡资料").position > 0 Then
e.Form.Controls("diyitiao").Enabled=True
Tables("流量卡资料").position = 0
Else
e.Form.Controls("diyitiao").Enabled=False
End If

 

下一条

With CurrentTable
 If .Position<  Tables("流量卡资料").Rows.Count-1 Then
    .Position = .Position + 1
e.Form.Controls("diyitiao").Enabled =True
e.Form.Controls("shangyitiao").Enabled =True
e.Form.Controls("xiayitiao").Enabled=True
e.Form.Controls("zuihouyitiao").Enabled=True

Else
MessageBox.Show("已经到最后一行!", "提示")
e.Form.Controls("xiayitiao").Enabled =False
e.Form.Controls("zuihouyitiao").Enabled=False
 End If
End With

 

 

上一条

With CurrentTable
    If .Position>0 Then
        .Position = .Position - 1
     End If
End With

 

 

最后一条

With CurrentTable
    If .Position< .Rows.count-1 Then
        .Position =  .Rows.count-1
      End If
End With