在窗口按钮中设置了这段代码：

Dim a As String = e.Form.Controls("ComboBox1").Value
Dim biao As DataTable = DataTables("凭证录入")
biao.Fill("select * from 凭证录入 where 会计期间 = \'"& a &"\'" ,False )

凭证录入　与凭证录入明细存在关联，

在执行时，跳出“当前表存在关联，不允许有此方法加载关联”窗口

如果不能用这个方法加载，怎么变通

出错：

Dim a As String = e.Form.Controls("ComboBox1").Value
Dim biao As DataTable = DataTables("凭证录入")
biao.LoadFilter = "会计期间 = \'"& a &"\'" 
biao.Load()

Dim ids As String
For Each dr As DataRow In DataTables("凭证录入").DataRows
   ids = ids & "," & dr("凭证ID")
Next
ids= ids.Trim(",")
DataTables("凭证录入明细").LoadFilter = "凭证ID In (" & ids & ")"
DataTables("凭证录入明细").Load()

我分开两步加载（先主表后子表），也跳出5楼出错的界面，列名“PZ”我没有设置这个列啊

如果把下面的代码　删除，主表的数据可以加载，如果把下面的代码放在afterload中，程序启动，子表加载也没有问题，但是设置加载条件时（主表重新加载，子表也随主表变化而变化），就出现以上错误，不知道为何

Dim ids As String
For Each dr As DataRow In DataTables("凭证录入").DataRows
   ids = ids & "," & dr("凭证ID")
Next
ids= ids.Trim(",")
DataTables("凭证录入明细").LoadFilter = "凭证ID In (" & ids & ")"
DataTables("凭证录入明细").Load()