我建立了一个库存表,我想用日期来查询出库表和出库单表的信息,我已经把文本框text1设置成日期型了,然后我的命令按钮的click中的代码如下get1=alltrim(thisform.text1.value)get2=alltrim(thisform.text2.value)get3=alltrim(thisform.text3.value)get4=alltrim(thisform.text4.value)flag1=thisform.check1.valueflag2=thisform.check2.valueflag3=thisform.check3.valueflag4=thisform.check4.valueif flag1=0 and flag2=0 and flag3=0 and flag4=0 messagebox("请输入查询条件",48,"错误")endifif flag1=1 and flag2=0 and flag3=0 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1endifif flag1=0 and flag2=1 and flag3=0 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.编号=get2endifif flag1=0 and flag2=0 and flag3=1 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.入库单号=get3endifif flag1=0 and flag2=0 and flag3=0 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库单表.入库单号=入库表.入库单号 and 入库单表.发货地点=get4endifif flag1=1 and flag2=1 and flag3=0 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库表.编号=get2endifif flag1=1 and flag2=0 and flag3=1 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库单表.入库单号=入库表.入库单号 and 入库表.入库单号=get3 and 入库表.日期=get1endifif flag1=1 and flag2=0 and flag3=0 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库单表.发货地点=get4endifif flag1=0 and flag2=1 and flag3=1 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.入库单号=get3 and 入库表.编号=get2endifif flag1=0 and flag2=1 and flag3=0 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.编号=get2 and 入库单表.发货地点=get4endifif flag1=0 and flag2=0 and flag3=1 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库单表.入库单号=get3 and 入库单表.发货地点=get4endifif flag1=1 and flag2=1 and flag3=1 and flag4=0 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库表.编号=get2 and 入库表.入库单号=get3endifif flag1=1 and flag2=0 and flag3=1 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库单表.发货地点=get4 and 入库表.入库单号=get3endifif flag1=1 and flag2=1 and flag4=0 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库表.编号=get2 and 入库单表.发货地点=get4endifif flag1=0 and flag2=1 and flag4=1 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人,sum(入库表.数量) as 总数 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库单表.发货地点=get4 and 入库表.编号=get2 and 入库表.入库单号=get3endifif flag1=1 and flag2=1 and flag4=1 and flag4=1 select 入库单表.日期,入库单表.入库单号,入库表.编号,入库表.名称,入库表.数量，入库单表.发货地点,入库单表.收货人 from 入库表,入库单表 where 入库表.入库单号=入库单表.入库单号 and 入库表.日期=get1 and 入库表.编号=get2 and 入库表.入库单号=get3 and 入库单表.发货地点=get4endif可是一运行表单后点命令按钮就提示我"函数参数的值,类型或数无效"请问这是为什么啊

太繁琐了吧