Foxtable(狐表)用户栏目专家坐堂 → 数组上行与下行是否相同的判断


  共有3972人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zhuxinhui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
数组上行与下行是否相同的判断  发帖心情 Post By:2019/8/9 10:54:00 [显示全部帖子]

Dim nms3 As List(of String()) = DataTables("工资").GetValues("月份|部门", Tables("工资").filter) 
从工资表生成二维数组后,因为有多个月份存在,现在想按数组月份、部门进行汇总并进行相关处理,如何才能判别生成的数组月份不相同的这种情况呢??就是数组上一行与下一行不同时,再判别进行相关处理


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 11:50:00 [显示全部帖子]

nms()这个怎样定义


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:15:00 [显示全部帖子]

for i as integer = 1 to nms3.count - 1
if nms3(i-1)(0) <> nms3(i)(0) then
'某某处理
end if
next
或者改 为
for i as integer = 0 to nms3.count 
if nms3(i+1)(0) <> nms3(i)(0) then
'某某处理
end if
next
还是出现索引超出范围的情况,第一个就少计了一个数值 

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:15:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190809161129.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:23:00 [显示全部帖子]

就是数组会出现这种情况,数据表其他按钮就没有出现索引超出范转的情况


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:30:00 [显示全部帖子]

解决了,使用了强制退出循环及重复多写一段代码


 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:33:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:34:00 [显示全部帖子]

老师看看还有没有其他办法

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 16:54:00 [显示全部帖子]

这样就少处理一个事项了

 回到顶部
帅哥哟,离线,有人找我吗?
zhuxinhui
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1995 积分:6338 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2019/8/9 17:12:00 [显示全部帖子]

实践证明判断后是处理不了

 回到顶部
总数 12 1 2 下一页