Foxtable(狐表)用户栏目专家坐堂 → 代码怎么写


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

主题:代码怎么写

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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 15:55:00 [只看该作者]

 老师,当表格有相同数值好几个时,我要转到另外的数据表里并统计它的个数,比如图片点击可在新窗口打开查看90的数值。意图是新建一个数据表有异常值时就导入到表并统计个数。比如显示90(6)
图片点击可在新窗口打开查看此主题相关图片如下:011.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:67205 积分:337123 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 16:00:00 [只看该作者]

异常的逻辑是什么?连续出现3次以上的数据?还是说出现了3次的都统计?统计个数是连续还是不连续的?

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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 16:03:00 [只看该作者]

异常的逻辑是:连续出现5次以上的数据,统计个数是连续的。

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


加好友 发短信
等级:版主 帖子:67205 积分:337123 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 16:11:00 [只看该作者]

DataColChanged事件

 

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    For i As Integer = idx+1 To t.rows.count-1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
msgbox(count)
    if count >= 5 then
        Dim ndr = DataTables("表C").AddNew
        ndr("第一列") = e.datarow("第一列")
        ndr("第二列") = count
    end if
End If


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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 16:38:00 [只看该作者]

老师
统计个数只统计连续的。相同的数据不连续也不转入数据表该怎样改?


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


加好友 发短信
等级:版主 帖子:67205 积分:337123 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 16:50:00 [只看该作者]

以下是引用oyei在2018/4/26 16:38:00的发言:
老师
统计个数只统计连续的。相同的数据不连续也不转入数据表该怎样改?

 

不用改,如果有问题,具体项目发上来测试。


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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 17:24:00 [只看该作者]

只有一个异常值的,表c却重复导入了6行

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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 17:24:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:a.table
只有一个异常值的,表c却重复导入了6行

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


加好友 发短信
等级:版主 帖子:67205 积分:337123 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/26 17:54:00 [只看该作者]

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    For i As Integer = idx+1 To t.rows.count-1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
        Else
            Exit For
        End If
    Next
    If count >= 5 Then
        Dim ndr = DataTables("表C").find("第一列 = '" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

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


加好友 发短信
等级:幼狐 帖子:52 积分:403 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/26 19:03:00 [只看该作者]

谢谢,老师辛苦了

 回到顶部
总数 82 上一页 1 2 3 4 5 6 7 8 9 下一页