Dim nms3 As List(of String()) = DataTables("工资").GetValues("部门|职位", Tables("工资").filter)
Dim j As Integer =1
For i As Integer = 0 To nms3.count-1
事项1
If i = nms3.count-1
事项2
Exit For
End If
If nms3(i)(1) <> nms3(i+1)(1) Then
事项2
j=j+1
End If
Next
DataTables("速达凭证").Save()
Forms("控制平台").Close()
重复了“事项2”多了一大段代码