共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：关于按顺序自动录入行内容
1楼
sophia 发表于：2010/6/24 12:21:00在一个项目的文件监视器中监视一个文件夹，这个文件夹里如果进来一个文本文件则将文本文件内容自动写入当前表的第一列；如果再进来一个文本文件则判断第一列是否有内容存在，若有将文本文件内容自动写入当前表的第二列。依此类推，怎样完成？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.table |
2楼
czy 发表于：2010/6/24 13:11:00'FileCreated事件代码
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
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
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
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
3楼
sophia 发表于：2010/6/25 15:14:00上述问题如果我想在插入到第八列后（这一行记录已满）自动在此行上插入一行重新开始，怎么实现呢？
4楼
狐狸爸爸 发表于：2010/6/25 15:43:00Dim 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
5楼
sophia 发表于：2010/6/25 16:00:00
6楼
sophia 发表于：2010/6/25 19:42:00
此主题相关图片如下：qq截图未命名.jpg
用这条命令插入一行的时候，不是应该插入一空行吗？为什么把第一列的内容也复制过去了呢？
r = CurrentTable.Rows.InsertNew()
7楼
狐狸爸爸 发表于：2010/6/26 9:18:00这个插入行无关，其他事件代码造成的。
共7 条记录, 每页显示 10 条, 页签:
[1]