- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关于AfterLoad 事件的代码 的动态数据加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19112)
-- 发布时间：2012/4/27 15:48:00
-- 关于AfterLoad 事件的代码 的动态数据加载
我想在ERP数据库中动态数据加载,按说明去做总是出错,不知原因.
比如我已从ERP外部数据原中加载了"料品资料"表,想在加载这个表时同时加载其下表
在料品资料表的AfterLoad 事件设代码如下:
Dim ids As String
Dim dt As DataTable
For Each dr As DataRow In DataTables("料品资料").DataRows
ids = ids & "," & dr("part_no")
Next
ids= ids.Trim(",")
DataTables("料品资料下表1").LoadFilter = "part_no In (" & ids & ")"
DataTables("料品资料下表1").Load()
-- 发布时间：2012/4/27 15:50:00
--
在加载时现在出现这样的提示:
此主题相关图片如下：02.jpg
-- 发布时间：2012/4/27 15:51:00
--
请问大家这是为什么?
-- 发布时间：2012/4/27 16:04:00
--
数据类型不匹配，一个是整数型，一个数字符型
-- 发布时间：2012/4/27 16:05:00
--
那如何做呢?
-- 发布时间：2012/4/27 16:07:00
--
料品资料和料品资料下表的part_no列，都改为整数型。
-- 发布时间：2012/4/27 16:08:00
--
在ERP中的part_no是字符形,而ids不也是字符形吗?
-- 发布时间：2012/4/27 16:12:00
--
ERP中的列类形不能改的
-- 发布时间：2012/4/27 17:29:00
--
用以下代码不出错了,但下表1并不能如想像中地加载,真的不知是何原因
Dim ids As String
For Each dr As DataRow In DataTables("料品资料").DataRows
ids = ids & ",\'" & dr("part_no") & "\'"
Next
ids= ids.Trim(",")
DataTables("料品资料下表1").LoadFilter = "part_no In (" & ids & ")"
DataTables("料品资料下表1").Load()
-- 发布时间：2012/4/27 17:33:00
--
现在可以了