遇到问题了,不知道该怎么办。请教(50分)

  • 主题发起人 主题发起人 yedixifeng
  • 开始时间 开始时间
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进行合并,另取名商品名?谢谢
 
没人帮忙啊。是不是我没说明白,晕。
换句话来说:
1、access中分别有15个表,它们分别是:商品名称,商品名称2,商品名称3……商品名称15
2、比如再建一个表:商品名,问题:怎么把上述15个表合并互表商品名中呢?
说明:15个表的记录数基本相同,但记录的内容不一样。比如,商品名称中记录是牙膏,商品名称2中记录的是白糖………
 
在表里加个类别码字段,再加个商品代码表.
 
不明白。
要是表中的字段进行合并呢?比如我已经改为:
1、access中分别有15个字段,它们分别是:商品名称,商品名称2,商品名称3……商品名称15,每个字段中的内容不一样,要把15个字段并到另一个字段中,如何实现呢?
 
接受答案了.
 

Similar threads

D
回复
0
查看
792
DelphiTeacher的专栏
D
D
回复
0
查看
826
DelphiTeacher的专栏
D
D
回复
0
查看
658
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部