主题：关于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()

在加载时现在出现这样的提示:
此主题相关图片如下：02.jpg

在ERP中的part_no是字符形,而ids不也是字符形吗?

用以下代码不出错了,但下表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()