以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教狐爸高速合并与加载两个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21587) |
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 9:46:00 -- 请教狐爸高速合并与加载两个问题 狐爸:您好!现有两个问题请教您; 1、请您帮我写一个高速合并的代码,我的需求是选择需合并的数据日期,点击合并按扭能自动的将需要的数据合并进系统,不出现选择文件的对话框;
2、还有个问题我问过两次了,就是我把系统数据源从ACCESS转为SQL SERVER后,就出现了这样一个问题,当两个表是建立了关系的,同时在主表中的AFTERLOAD事件中加入了父子同步加载的代码后,当主表加载了数据,我想清屏时,系统就报错,或者我模糊加载了一个系统不存在的订单时,系统也会报错,但如果说数据源是ACCESS的话,这两种情况它都不报错,现在我做了一个请购单与请购明细表,并有一点数据,麻烦您将这两个表重定向到SQL SERVER中再试一下清屏与加载一个不存在的请购单号,看看系统报错的情况,麻烦您了,谢谢! 这是报错的信息
这是我做的请购单的一个简易窗口
|
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 9:46:00 -- 这是系统与相关文件
|
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 9:50:00 -- 忘了告诉狐爸,密码是1 |
||||
-- 作者:blackzhu -- 发布时间:2012/7/18 10:23:00 -- 第二个问题 你注意一下 ACCESS和SQL的逻辑列判断是不同的,还有日期列的判断也是不同的. |
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 10:30:00 -- 谢谢blackzhu狐神的提醒,我都注意到了,但还是解决不了,烦请狐爸帮帮忙! |
||||
-- 作者:blackzhu -- 发布时间:2012/7/18 10:53:00 -- 她这个到时啰嗦的问题,我测试合并了,用狐表到时的文本文件 再合并没有问题 但是她这个就是不行 |
||||
-- 作者:blackzhu -- 发布时间:2012/7/18 10:56:00 -- 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("请购单号") Next ids= ids.Trim(",") DataTables("wl请购明细表").LoadFilter = "请购单号 In (" & ids & ")" End If DataTables("wl请购明细表").Load() 第二个问题你这样改.
|
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 11:02:00 -- 按6楼的朋友的提示,做了一个按扭,能增加行,但没有数据显示,不知道是不是没有这个文件,[合并文本文件的时候,最好配合有schema.ini文件,以便于指定列的类型和宽度。],这个文件怎么找啊 |
||||
-- 作者:小猪鑫鑫 -- 发布时间:2012/7/18 11:19:00 -- 非常感谢blackzhu狐神,第二个问题按您的意思已得到解决,谢谢您! 但我的第一个问题还是不行,再请赐教 |
||||
-- 作者:blackzhu -- 发布时间:2012/7/18 11:37:00 -- Dim mg As New Merger 合并文本文件的时候,最好配合有schema.ini文件。 应该是这个问题 |