主题：表

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

多谢

当第一列数据的任何一行，左起第2到第4的数字等于“990”时就导出到表c.老师我代码该怎样改？ 此主题相关图片如下：qq图片20180519182541.png

左起第2到第4的数字等于“990”时就导出到表c.并导出行的行号。试了修改但修改不了，请老师指教，谢谢

第一句代码，改成

 

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

改了后显示了图的提示：
此主题相关图片如下：qq图片20180525125025.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:a (3) (5).table

老师帮我测试看如何改，谢谢

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

,谢谢老师