主题：代码怎么写

DataColChanged事件

 

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

 

 

重置列　http://www.foxtable.com/webhelp/scr/1469.htm

 

 

为空不计算，参考

 

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、你每一行的逻辑都不同？

 

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

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

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

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

 

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

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

代码一模一样