以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  行间移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103333)

--  作者:peibaomin
--  发布时间:2017/7/6 9:13:00
--  行间移动

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


--  作者:有点甜
--  发布时间:2017/7/6 9:18:00
--  

 

[此贴子已经被作者于2017/7/6 9:18:18编辑过]

--  作者:有点甜
--  发布时间:2017/7/6 9:19:00
--  

你代码怎么写的?改成这样

 

上一行 Tables("表A").Position -= 1

 

下一行 Tables("表A").Position += 1


 

http://www.foxtable.com/webhelp/scr/2263.htm

 

[此贴子已经被作者于2017/7/6 9:19:14编辑过]

--  作者:peibaomin
--  发布时间:2017/7/6 9:24:00
--  

第一条

 

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

 

 

 


--  作者:有点甜
--  发布时间:2017/7/6 9:29:00
--  
CurrentTable 改成具体的表 Tables("流量卡资料")