'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
加好友 
发短信
Post By：2010/6/24 13:11:00 [显示全部帖子]
