以文本方式查看主题

-  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、请您帮我写一个高速合并的代码,我的需求是选择需合并的数据日期,点击合并按扭能自动的将需要的数据合并进系统,不出现选择文件的对话框;


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

 

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

这是报错的信息


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


 

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


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

 


 


--  作者:小猪鑫鑫
--  发布时间:2012/7/18 9:46:00
--  

这是系统与相关文件

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.zip


--  作者:小猪鑫鑫
--  发布时间: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
mg
.SourcePath = "c:\\data\\" \'指定数据文件所在目录
mg.Format =
"Delimited" \'指定格式
mg
.SourceTableName = "订单" \'指定要合并的文件,无需扩展名
mg
.DataTableName = "订单" \'指定接收数据的表
mg
.Merge() \'开始合并

合并文本文件的时候,最好配合有schema.ini文件。  应该是这个问题