Dim s As Row =Tables("园区").current
Dim t As String = s("园区名称")
DataTables("采收压榨计划").loadtop ="100 percent"
DataTables("采收压榨计划").LoadFilter = "审核人 > \'\'"
DataTables("采收压榨计划明细").loadtop ="100 percent"
DataTables("采收压榨计划明细").LoadFilter = "园区名称 =\'" & t & " \'"
DataTables("采收压榨计划").Load()
DataTables("采收压榨计划明细").Load()
此主题相关图片如下:qq截图20150613113856.png