请教狐爸高速合并与加载两个问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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

图片点击可在新窗口打开查看此主题相关图片如下：clip_image003.jpg

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

这是报错的信息

图片点击可在新窗口打开查看此主题相关图片如下：clip_image002.jpg

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

图片点击可在新窗口打开查看此主题相关图片如下：clip_image0022.jpg

这是系统与相关文件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

忘了告诉狐爸,密码是1

第二个问题你注意一下 ACCESS和SQL的逻辑列判断是不同的,还有日期列的判断也是不同的.

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

她这个到时啰嗦的问题,我测试合并了,用狐表到时的文本文件再合并没有问题但是她这个就是不行

If DataTables("wl请购单").DataRows.Count = 0 Then '如果父表没有数据

DataTables("wl请购明细表").LoadFilter = "[_Identify] Is Null"

Else

Dim ids As String

For Each dr As DataRow In DataTables("wl请购单").DataRows

ids = ids & "," & dr("请购单号")

ids= ids.Trim(",")

DataTables("wl请购明细表").LoadFilter = "请购单号 In (" & ids & ")"

End If

DataTables("wl请购明细表").Load()

第二个问题你这样改.

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

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

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

muhua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/7/18 10:31:00 [只看该作者] 用户已被锁定

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