主题：按钮代码报错问题

以下内容为程序代码:

1 DataTables("fa piao发货出库跟踪表").DataRows.clear()
2 Dim SQL As String
3 SQL = " select * from V_FPFHCK_FOXTABLE "
4 SQL = SQL & " WHERE [发货日期] BETWEEN '" & replace(e.Form.Controls("DateTimePicker1").text,"-","") & "'"
5 SQL = SQL & " AND '" & replace(e.Form.Controls("DateTimePicker2").text,"-","") & "'"
6 SQL = SQL & " AND ([发货合同供方编号] in (select list from getinstr('" & e.Form.Controls("TextBox1").value & "'))"
7 SQL = SQL & "OR '" & e.Form.Controls("TextBox1").value & "' = '' )"
8 SQL = SQL & " AND ([发货合同购方编号] IN(SELECT LIST FROM GETINSTR('" & e.Form.Controls("TextBox3").value & "'))"
9 SQL = SQL & "OR '" & e.Form.Controls("TextBox3").value & "' = '' )"
10 'messagebox.show(SQL)
11 DataTables("fa piao发货出库跟踪表").Fill(SQL,"生产机",True)

以下内容为程序代码:

1
2 create VIEW V_FPFHCK_FOXTABLE
3 AS
4 select
5
6 -------------------上面为fa piao信息
7 kh3.ZWWLDW_DWMC 发货合同供方,
8 kh2.ZWWLDW_DWMC 发货合同购方名,
9 B.LSWLZD_WLMC 发货物料名称,
10 XSTDMX_ZSL 发货数量,
11 XSTDMX_YZHSJ 发货含税价,
12 XSTDMX_YZXSJ 发货不含税价,
13 XSTDMX_YHSE 发货含税额,
14 XSTDMX_YXSE 发货不含税金额,
15 XSTD_TDBH 发货单号,
16 XSTD_YWRQ 发货日期,
17 XSTDMX_WLBH 发货物料编号,
18 XSTD_HTGF 发货合同供方编号,
19 XSTD_SHDKH 发货合同购方编号,
20 -------------------上面为发货单信息
21
22 KCCKD2_SL 出库数量,
23 KCCKD1_SJDH 出库单号,
24 KCCKD1_KCYWRQ 出库日期,
25 ------------fa piao信息
26 xsfp_fpbh fa piao单号,
27 XSFPMX_FPFL fa piao分录,
28 xsfp_pjhm fa piao号码,
29 xsfp_ywrq 开piao日期,
30 XSFPMX_YZXSJ fa piao不含税价,
31 XSFPMX_YZHSJ fa piao含税价,
32 XSFPMX_ZSL fa piao数量,
33 XSFPMX_SL fa piao税率,
34 XSFPMX_YSE fa piao税额,
35 XSFPMX_YXSE fa piao不含税金额,
36 xsfpmx_YHSE fa piao含税金额
37 from
38 XSTD WITH(NOLOCK)LEFT JOIN XSTDMX WITH(NOLOCK) ON XSTD_TDLS = XSTDMX_TDLS
39 LEFT JOIN (SELECT * FROM XSFP WITH(NOLOCK) INNER JOIN XSFPMX WITH(NOLOCK) ON XSFP_FPLS = XSFPMX_FPLS WHERE XSFP_JZBZ = '1')D
40 ON XSTDMX_TDLS = XSFPMX_TDLS AND XSTDMX_TDFL = XSFPMX_TDFL
41
42 LEFT JOIN (SELECT * FROM KCCKD1 WITH(NOLOCK) INNER JOIN KCCKD2 WITH(NOLOCK) ON KCCKD1_LSBH = KCCKD2_LSBH WHERE KCCKD1_KCJZ = '1')E
43 ON XSTDMX_TDLS = KCCKD2_TDLS AND XSTDMX_TDFL = KCCKD2_TDFL
44 left join zwwldw kh1 with(nolock) on kh1.zwwldw_dwbh=xsfp_shdkh
45 left join zwwldw kh2 with(nolock) on kh2.zwwldw_dwbh = xstd_shdkh
46 left join zwwldw kh3 with(nolock) on kh3.zwwldw_dwbh = xstd_htgf
47 left join lswlzd A WITH(NOLOCK) on XSFPMX_WLBH=a.LSWLZD_WLBH
48 left join LSWLZD B WITH(NOLOCK) ON XSTDMX_WLBH = b.LSWLZD_WLBH
49 LEFT JOIN LSWLZD C WITH(NOLOCK) ON KCCKD2_WLBH = C.LSWLZD_WLBH
50 left join XSFPZL WITH(NOLOCK) ON XSFPZL_ZLBH=XSFP_ZLBH
51 WHERE XSTD_JZBZ = '1'
52