主题：文件管理问题：指定目录下取得所有文件，赋值给文件列

Dim lst As New List(of String)
For Each fl As String In FileSys.GetFiles("c:\data")
    lst.Add(fl)    
Next
Tables("表A").Current.DataRow.Lines("文件") = lst

dim r as row

不断循环增行，停不下来

如果是2楼的代码，说明目录里文件多。或者是表事件触发了其它代码又重复获取文件

要么目录里文件多。要么是表事件触发了其它代码又重复获取文件，形成死循环

没别的代码，只有这个

多少个文件？循环增加了多少行？花了多长时间？

实验用的，没几个文件，开头没反应，重置列或者删除后就出现这个现象，一直增加行，停不下来，只能终止整个程序了

代码放到按钮里执行，不要放到表事件