msgbox("[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# " & qth & "And substring([ddlb],1,1)='c '" & " And 发货日期 Is Not null")
msgbox("[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# and [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='c '" & " And 发货日期 Is Not null")