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