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


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

主题:代码怎么写

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


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

老师,文字的异常值代码要怎样改?比如如图
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看,导出“有”的异常值

 回到顶部
帅哥,在线噢!
有点甜
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码一模一样


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


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

甜老师,帮我看看附件的代码该怎样改?一个表异常值有几个的,导出一个就终止了。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:a (3).table


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


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

还有这个表的数据是不断导入的,拜托了老师

 回到顶部
帅哥,在线噢!
有点甜
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:71133 积分:356763 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/13 21:26: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
    Dim j As Integer = idx
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
            j = i
        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("第一列 = '" & j & "-" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = j & "-" & e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If


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


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

老师,如果要把行号也导出来呢?比如数据20是6次,20的第一个异常值终止行号是7行,在加一列终止行号可以吗?

 回到顶部
帅哥,在线噢!
有点甜
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用oyei在2018/5/13 21:46:00的发言:
老师,如果要把行号也导出来呢?比如数据20是6次,20的第一个异常值终止行号是7行,在加一列终止行号可以吗?

 

35楼(j值)得到的是【起始行】,如果需要终止行,参考代码

 

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim count As Integer = 0
    Dim j As Integer = idx

    Dim j As Integer = z
    For i As Integer = idx To 0 Step -1
        If t.rows(i)("第一列") = e.DataRow("第一列") Then
            count += 1
            j = i
        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

            z = i
        Else
            Exit For
        End If
    Next
    If count >= 5 Then
        Dim ndr = DataTables("表C").find("第一列 = '" & z & "-" & e.DataRow("第一列") & "'")
        If ndr Is Nothing Then ndr = DataTables("表C").addnew
        ndr("第一列") = z & "-" & e.DataRow("第一列")
        ndr("第二列") = count
    End If
End If

 

 


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


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

谢谢老师,万分感谢

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


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

老师,如果("表C")每导入一次异常值,("表C")以图片或文档发到微信上,开发版可完成这功能吗?谢谢

 回到顶部
帅哥,在线噢!
有点甜
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用oyei在2018/5/16 11:34:00的发言:
老师,如果("表C")每导入一次异常值,("表C")以图片或文档发到微信上,开发版可完成这功能吗?谢谢

 

如果要发到微信上,需要接入【公众号】【企业号】才行的。微信目前不开放个人给个人发送信息的接口。

 

代替的方案:1、可以改成发邮件;2、可以改成发短信;3、可以改成发qq信息(前提是你要在电脑上运行了QQ)


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