主题：关于按顺序自动录入行内容

Dim s As string = FileSys.ReadAllText("d:\a\" & e.name,Encoding.Default)
Dim t As Table = Tables("表A")
Dim r As Row = t.Current
Dim b As Boolean

If r.IsNull(8) = False Then

    r = CurrentTable.Rows.InsertNew()

End If

For Each c As Col In t.Cols
    if b = False Then
        if r.IsNull(c.Name) Then
            r(c.Name) = s
            b = True
        End If
    End If
Next

这个插入行无关，其他事件代码造成的。