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