在一个项目的文件监视器中监视一个文件夹，这个文件夹里如果进来一个文本文件则将文本文件内容自动写入当前表的第一列；如果再进来一个文本文件则判断第一列是否有内容存在，若有将文本文件内容自动写入当前表的第二列。依此类推，怎样完成？

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

点击浏览该文件:管理项目12.table

上述问题如果我想在插入到第八列后（这一行记录已满）自动在此行上插入一行重新开始，怎么实现呢？

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

此主题相关图片如下：qq截图未命名.jpg

用这条命令插入一行的时候，不是应该插入一空行吗？为什么把第一列的内容也复制过去了呢？

 r = CurrentTable.Rows.InsertNew()

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