Y
yedixifeng
Unregistered / Unconfirmed
GUEST, unregistred user!
下面这段主要代码是汇总,虽然能运行和使用,但太难看:
……
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,sum(数量) as 库存数量,sum(金额) as 库存金额 from jhd group by 商品编码,录单日期,类别,'
+'商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,-sum(数量) as 库存数量,-sum(金额) as 库存金额 from jhthd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,-sum(数量) as 库存数量,-sum(金额) as 库存金额 from xshd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,sum(数量) as 库存数量,sum(金额) as 库存金额 from khthd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
……………
想法:能不能把商品名称,商品名称2,商品名称3……商品名称15进行合并,另取名商品名?谢谢
……
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,sum(数量) as 库存数量,sum(金额) as 库存金额 from jhd group by 商品编码,录单日期,类别,'
+'商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,-sum(数量) as 库存数量,-sum(金额) as 库存金额 from jhthd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,-sum(数量) as 库存数量,-sum(金额) as 库存金额 from xshd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
adoq1.SQL.Add('insert into kcb select 录单日期,类别,商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,'
+'商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位,sum(数量) as 库存数量,sum(金额) as 库存金额 from khthd group by 录单日期,类别,'
+'商品编码,商品名称,商品名称2,商品名称3,商品名称4,商品名称5,商品名称6,商品名称7,商品名称8,商品名称9,商品名称10,商品名称11,商品名称12,商品名称13,商品名称14,商品名称15,规格,型号,单位');
adoq1.ExecSQL;
adoq1.SQL.Clear;
……………
想法:能不能把商品名称,商品名称2,商品名称3……商品名称15进行合并,另取名商品名?谢谢