同一个表格编号对应的物资自动编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "表格编号" Then
    If e.OldValue <> Nothing Then
        Dim drs As List(Of DataRow) = e.DataTable.Select("表格编号 = '" & e.OldValue & "'", "_sortkey")
        For i As Integer = 1 To drs.count
            drs(i-1)("物资编号") = i
        Next
    End If
    If e.NewValue <> Nothing Then
        Dim drs As List(Of DataRow) = e.DataTable.Select("表格编号 = '" & e.NewValue & "'", "_sortkey")
        For i As Integer = 1 To drs.count
            drs(i-1)("物资编号") = i
        Next
    End If
End If

主题：同一个表格编号对应的物资自动编号