就按着帮助里的改的,写在“运维项目”表的AFTERLOAD里
运维项目 的 “_identify” 和
运维费用明细 的 “编号” 关联
If DataTables("运维项目").DataRows.Count = 0 Then '如果订单表没有数据
DataTables("运维费用明细").LoadFilter = "编号 Is Null" '不加载订单明细
Else
Dim ids As String
For Each dr As DataRow In DataTables("运维项目").DataRows
ids = ids & "," & dr("_identify")
Next
ids= ids.Trim(",")
DataTables("运维费用明细").LoadFilter = "编号 In (" & ids & ")"
DataTables("运维费用明细").Load()
End If
报错界面上图~
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq截图20120326083818.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2012-3/20123268385187911.jpg)