以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问如何求上一条记录某列的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54737)
--  作者：瞩望星空
--  发布时间：2014/8/3 22:15:00
--  [求助]请问如何求上一条记录某列的值

设想A表的第一列（字符型）输入后，自动与上一条记录进行比较，

正常情况后，输入的记录应该是上一条记录加1，但也可以跳跃，

只是弹出一条信息，提醒一下而已。

 
--  作者：land089
--  发布时间：2014/8/3 22:21:00
--  

参考帮助“自动编号生成方法”思路
--  作者：有点甜
--  发布时间：2014/8/3 23:24:00
--  

DataRowAdded事件

 

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx - 1 >= 0 Then
    msgbox(Tables(e.DataTable.Name).Rows(idx-1)("第一列"))
End If
--  作者：瞩望星空
--  发布时间：2014/8/4 10:17:00
--  
甜总：
我是下面这句求当前行的代码写在新增记录的按钮中

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)

但出错：
---------------------------
错误
---------------------------
编译错误:\'DataTable\' is not a member of \'ControlEventArgs\'.

错误代码：Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)

---------------------------
--  作者：有点甜
--  发布时间：2014/8/4 10:19:00
--  
 必须写到 DataRowAdded事件
--  作者：有点甜
--  发布时间：2014/8/4 10:21:00
--  

如果写在按钮，就必须指定表名

 

Dim r As Row = Tables("表A").AddNew
If r.index - 1 >= 0 Then
    msgbox(Tables("表A").Rows(r.index-1)("第一列"))
End If

[此贴子已经被作者于2014-8-4 10:21:16编辑过]
--  作者：瞩望星空
--  发布时间：2014/8/4 10:33:00
--  
哦，谢谢！