DataTables("生产计划").LoadFilter = "客户id in ('" & DataTables("客户名称").GetComboListString("客户id").replace("|", "','") & "'"DataTables("生产计划").Load
For Each r As Row In Tables("客户名称").Rows r("计划数")=DataTables("生产计划").compute("count(客户id)")Next