以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  要两次保存才能下一条  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123266)

--  作者:susu312
--  发布时间:2018/8/10 21:20:00
--  要两次保存才能下一条


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 


With Tables("person")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
        .Position = .Position + 1
    End If
End With

 

老师, 这个是下一条的代码

我在重置单位的时候,重置后点保存,然后点下一条不管用,再点保存 ,之后点下一条才能跳到下一条


--  作者:有点蓝
--  发布时间:2018/8/10 21:35:00
--  
保存按钮写了什么代码?
保存前加上这2句试试

e.Sender.Select
Tables("person").FinishEditing
Tables("person").save

--  作者:susu312
--  发布时间:2018/8/10 22:25:00
--  
以下是引用有点蓝在2018/8/10 21:35:00的发言:
保存按钮写了什么代码?
保存前加上这2句试试

e.Sender.Select
Tables("person").FinishEditing
Tables("person").save
OK拉