Dim js As string = "1,2,3,4,5"
g.Filter = "[货物状态]<>'待录入'Or [货物状态]<>'待收货'Or [货物状态]<>'调库调入'Or [货物状态]<>'调库调出' AND 角色 in ('" & js.Replace(",", "','") & "')"