以下是引用jspta在2013-5-5 10:42:00的发言：一定要建立编号表的，否则你这样弄编号肯定会重复。
你这种方法我以前也用过，存在跟你一样的问题，无法获得最大identify，但是可以要先获取最大值。但是当多人使用的时候，编号也会重复。
使用identify来关联编号是非常不靠谱的，以后迁移，拆分表的时候，就痛苦死你了
所以你还是不要想其他方法了，按照教程的修改下吧。
你说的这个 按照教程修改下吧,是指那个教程？
不是这个么?
再谈_Identify
我们知道内部表有一个_Identify，这是一个整数型列，每增加一行，该列的值就会自动加1。
该列的值是只读的，我们没有办法使用常规的代码去修改_Identify值。
可以将_Identify值看作是行的身份证号码，因为新增行一旦保存，其_Identify值将终生不变。
这个“身份证号码”就是主键，系统就是根据这个值来识别不同的行的。
实际使用的时候，我们是看不到_Identify列的，但是可以在代码中使用该列，例如：
Dim
id1 As Integer = Tables("订单").Current("_Identify")
Dim id2 As Integer = Tables("订单").Rows(0)("_Identify")
Dim id3 As Integer = DataTables("订单").DataRows(1)("_Identify")
也可以在表达式中使用该列，例如可以增加一个表达式列，将其表达式设为：
[_Identify]
这样即可通过此列查看_Identify的值。
可以看出_Identify列除了不可见，使用起来和普通的列并无差别。
_Identify值类似行的编号，这个编号表示数据录入的顺序，也就是某个DataRow在DataTable中的顺序。
下面是一个根据输入顺序进行流水账计算的例子，设置在DataColChanged事件中即可：
Dim Val1 As Double
Dim Val2 As Double
Select
Case e.DataCol.Name
Case "收入","支出"
For Each dr As DataRow In e.DataTable.Select("[_Identify] >= " & e.DataRow("_Identify") )
Val1 = e.DataTable.compute("Sum(收入)","[_Identify] <= " & dr("_Identify"))
Val2 = e.DataTable.compute("Sum(支出)","[_Identify] <= " & dr("_Identify"))
dr("余额") = Val1 - Val2
Next
End Select
加好友 
发短信
Post By：2013/5/5 9:22:00 [只看该作者]
