主题：请教狐爸高速合并与加载两个问题

狐爸:您好!现有两个问题请教您;

1、请您帮我写一个高速合并的代码，我的需求是选择需合并的数据日期，点击合并按扭能自动的将需要的数据合并进系统，不出现选择文件的对话框；

此主题相关图片如下：clip_image003.jpg

 

2、还有个问题我问过两次了，就是我把系统数据源从ACCESS转为SQL SERVER后，就出现了这样一个问题，当两个表是建立了关系的，同时在主表中的AFTERLOAD事件中加入了父子同步加载的代码后，当主表加载了数据，我想清屏时，系统就报错，或者我模糊加载了一个系统不存在的订单时，系统也会报错，但如果说数据源是ACCESS的话，这两种情况它都不报错，现在我做了一个请购单与请购明细表，并有一点数据，麻烦您将这两个表重定向到SQL SERVER中再试一下清屏与加载一个不存在的请购单号，看看系统报错的情况，麻烦您了，谢谢！

这是报错的信息

此主题相关图片如下：clip_image002.jpg

 

这是我做的请购单的一个简易窗口 

此主题相关图片如下：clip_image0022.jpg

 

 

这是系统与相关文件

 

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

点击浏览该文件:测试.zip

忘了告诉狐爸,密码是1

谢谢blackzhu狐神的提醒,我都注意到了,但还是解决不了,烦请狐爸帮帮忙!

按6楼的朋友的提示,做了一个按扭,能增加行,但没有数据显示,不知道是不是没有这个文件,[合并文本文件的时候，最好配合有schema.ini文件，以便于指定列的类型和宽度。],这个文件怎么找啊

非常感谢blackzhu狐神,第二个问题按您的意思已得到解决,谢谢您!

但我的第一个问题还是不行,再请赐教

首先非常谢谢您对我的回复,您已努力了,再次感谢!但导出EXCEL表又比较麻烦,再等等狐爸看看,如再不行再说吧,谢谢您!

狐爸:真是非常感谢您,我在您的代码的基础上修改了一下,因为我是不希望出现文件路径对话框的,我是在日期框中选定日期后,自动合并数据,代码如下:

Dim rq As WinForm.DateTimePicker = Forms("窗口2").Controls("rq")
Dim rqt As String =rq.text
rqt =rqt.Replace("-","")
Dim wjm As String ="Time" & rqt & ".txt"
Tables("KQ原始数据表").StopRedraw
Dim strs As String = FileSys.ReadAllText("d:\测试\打卡数据\" & wjm)
strs = strs.Replace(vblf,"")
Dim rs() As String = strs.Split(vbcr)
For Each r As String In rs
    Dim cs() As String = r.Split(vbtab)
    If cs.Length = 4 Then
        Dim dr As DataRow = DataTables("KQ原始数据表").Addnew()
        dr("卡机号") = cs(0)
        dr("原始数据") = cs(1)
        dr("卡标") = cs(2)
        dr("卡号") =cs(3)
    End If
Next

效果很好,但又出现了一个问题,如果所选日期代表的文本文件不存在的话,系统就报错,并很难解决,比如说我选了2012-07-15这个日期,产生的文本文件名为Time20120715.txt,但这个文本文件,文件夹中并不存在,它就报错,请狐爸再帮我看看,谢谢!

狐爸:现在有个问题不知怎么回事,我的数据源是ACCESS时,您的代码效果非常好,但我一转到SQL SERVER时,系统好像能运作,合并数据后,状态栏显示新合并的行数,但就是不显示数据,随便点几下以后,整个界面变白了,点击其它的主表,其它表没问题,就是这个表,一合并数据就不显示了,请问那里出了问题,我没动什么东西啊,并且我重新删除了SQL SERVER中的数据表,重做了一个,也不行,请狐爸看看,谢谢

   问题已解决,是我没搞好,麻烦您了,非常感谢您,谢谢