主题：自动编号问题

此主题相关图片如下：image 2.jpg

窗口一按钮代码：先选出序号为空的行，再按批号个数从高排到底，再把排序后的数据自动编码。

Dim t As Table=e.Form.controls("Table1").Table
Dim ids As String = t.DataTable.GetComboListString("_Identify", "序号 is null")
ids = "-1," & ids.Replace("|", ",")
ids = ids.trim(",")
t.Filter = "_Identify in (" & ids & ")"
t.Sort = "批号个数 DESC"

自动编号代码【这段代码不知道如何写？】