主题：数组上行与下行是否相同的判断

 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”多了一大段代码