Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
在窗口按钮中设置了这段代码:
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()