主题：openQQ审核

代码改成

pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
PopMessage("生产计划" & pts(1) & "已由" & pts(2) & "审核通过!")
Dim filter = "请购单号 in ('" & pts(1).replace(",", "','") & "')"

DataTables("生产计划").removefor(filter)
DataTables("生产计划").AppendLoad(filter)