主题：代码怎么写

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

代码是这样的意思：如果第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

 

谢谢甜老师

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

 

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

 

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

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

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

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

,辛苦了，谢谢