主题：[求助]日志表

现在要在软件中新加一个日志功能（点击打开日志表），可以看见所有登录，操作等日志记录。现在如何将生产的日志文件Logs实时同步到日志表呢？

 每次触发登陆、操作时，记录进入日志表

方法一：logs是文本文件吧？你直接把本地的logs文件上传到服务器去(ftp)，然后记录每一个客户端的logs文件路径。需要的时候，就打开logs查看内容。

 

方法二：读取logs文件，把内容导入到你的日志表里，参考

 

http://www.foxtable.com/webhelp/scr/2629.htm

 

方法三：不要用logs文件，直接把每个操作记录到表格里面

对的，我用方法二，写入本地日志记录，但是写入第二行会报错，代码如下：

 

把你的log文件发上来测试。

 

 

日志log文件

Dim s As String = FileSys.ReadAllText("d:\log.xls")
s=s.Replace(chr(10),"")
Dim str() As String = s.Split(chr(13))
'循环写入日志
For i As Integer = 0 To str.Length - 1
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = str(i)
Next

是这样的老师，这个合并问题解决了，但是在合并中，重复的数据不会覆盖掉，而是重新再写一遍，这样造成每次读取都从头重写一遍日志，有大量重复的

加入代码判断是否重复，即可，如

 

Dim s As String = FileSys.ReadAllText("d:\log.xls")
s=s.Replace(chr(10),"")
Dim str() As String = s.Split(chr(13))
'循环写入日志
For i As Integer = 0 To str.Length - 1
    Dim dr As DataRow = DataTables("表A").find("某列='" & 某值 & "' and 某列='" & 某值 & "'")
    If dr Is Nothing Then dr = DataTables("表A").addnew
    dr("第一列") = str(i)
Next