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


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

主题:代码怎么写

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


加好友 发短信
等级:超级版主 帖子:18963 积分:96678 威望:0 精华:6 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/7 14:36:00 [只看该作者]

没看懂你的意思。请截图或者上传实例说明实际效果

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


加好友 发短信
等级:婴狐 帖子:44 积分:339 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/7 23:13:00 [只看该作者]

代码是这样的意思:如果第1列有数字,第1列第1个数字+第1列第2个数字+第1列第3个数字再加后面所有数字的和在第2列显示(类似字符功能)。如果第1列为空则不计算。如果这样的代码可写的话,那么只求第1列第1个数字+第1列第3个数字的和等变化的代码也实现的了。

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


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

以下是引用oyei在2018/4/7 23:13:00的发言:
代码是这样的意思:如果第1列有数字,第1列第1个数字+第1列第2个数字+第1列第3个数字再加后面所有数字的和在第2列显示(类似字符功能)。如果第1列为空则不计算。如果这样的代码可写的话,那么只求第1列第1个数字+第1列第3个数字的和等变化的代码也实现的了。

 

为空不计算,参考

 

If e.DataCol.name = "第一列" Then   
    If e.DataRow("第一列") = Nothing Then       
        e.DataRow("第二列") = Nothing       
    Else
        Dim sum As Double = 0
        For Each s As String In e.DataRow("第一列")
            sum += val(s)
        Next
        e.DataRow("第二列") = sum       
    End If
End If

 


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


加好友 发短信
等级:婴狐 帖子:44 积分:339 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/8 13:10:00 [只看该作者]

谢谢甜老师

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


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

甜老师,如果计算第1列1行869950689的第1个数8加第3个数9再加第4个数9的和(8+9+9),结果显示在第2列,代码怎样写?谢谢

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


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

以下是引用oyei在2018/4/8 20:33:00的发言:
甜老师,如果计算第1列1行869950689的第1个数8加第3个数9再加第4个数9的和(8+9+9),结果显示在第2列,代码怎样写?谢谢

 

1、你每一行的逻辑都不同?

 

2、具体说明你最终要做什么?


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


加好友 发短信
等级:婴狐 帖子:44 积分:339 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/9 12:47:00 [只看该作者]

我要做不同逻辑的运算,假如第1列是数据,第2列结果是所有数总和的逻辑计算,第3列结果是所选位置数的计算比如(如果计算第1列1行869950689的第1个数8加第3个数9再加第4个数9的和(8+9+9),结果显示在第2列,代码怎样写?)。能实现吗?

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


加好友 发短信
等级:婴狐 帖子:44 积分:339 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/9 12:50:00 [只看该作者]

我要做不同逻辑的运算,假如第1列是数据,第2列结果是所有数总和的逻辑计算,第3列结果是所选位置数的计算比如(如果计算第1列1行869950689的第1个数8加第3个数9再加第4个数9的和(8+9+9),结果显示在第3列,代码怎样写?)。能实现吗?

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


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

If e.DataCol.name = "第一列" Then
    If e.DataRow("第一列") = Nothing Then
        e.DataRow("第二列") = Nothing
    Else
        Dim sum As Double = 0
        Dim i As Integer = 1
        For Each s As String In e.DataRow("第一列")
            If i=1 OrElse i=3 OrElse i=4 Then
                sum += val(s)
            End If
            i = i+ 1
        Next
        e.DataRow("第二列") = sum
    End If
End If

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


加好友 发短信
等级:婴狐 帖子:44 积分:339 威望:0 精华:0 注册:2018/4/6 15:09:00
  发帖心情 Post By:2018/4/9 22:30:00 [只看该作者]

图片点击可在新窗口打开查看,辛苦了,谢谢

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