主题：表

第一句代码

 

if e.datacol.name = "第一列" andalso e.datarow("第一列").length > 3 then

现在还报错？报错的例子发上来测试。

If e.DataCol.name = "第一列" Then
    Dim t As Table = Tables("表A")
    For i As Integer = 0 To t.rows.count-1
        Dim r2 As Row = t.rows(i)
        If r2("第一列").length > 7 AndAlso r2("第一列").substring(1,3) = "012" Then
            r2("第二列") = "是"
        Else
            r2("第二列") = "不"
        End If
    Next
End If

第一句代码，改成

 

if e.datacol.name = "第一列" andalso e.datarow("第一列").length > 3 then

If e.DataCol.name = "第一列" AndAlso e.DataRow("第一列").length > 3 Then
    Dim t As Table = Tables("表B")
    Dim idx As Integer = t.FindRow(e.DataRow)
    Dim s2 As String = t.rows(idx)("第一列")
    Dim count As Integer = 0
    Dim j As Integer = idx
    Dim z As Integer = j
    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 s2.length > 3 AndAlso s2.SubString(1,3) = 990 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