改成 Select Case pg Case "组长" DataTables("产品信息").LoadFilter= "模具负责人 = '" & e.link.name & "' and substring([产品编号],1,4) = '" & nr & "'"
DataTables("产品信息").Load