Dim i As Integer = 1
For Each dr As DataRow In DataTables("退役").Select("海盐人年份 is not null") dr("海盐人编号") = i '设置该行数量列的值 i=i+1Next