其实并不复杂:
Dim strline as string, strclass as string, strtype as string, strdate as stringstrline = iif(comline = '全部', 'True', '生产线=' & comline)
strclass = iif(comclass = '全部', 'True', '班组=' & comclass)
......
strsql = "select * from input where " & strline & " and " & strclass & _
         " and " & strtype & " and " & strdate