如何方便地填入表格中的数据？

[dreamcube]

我现在在做的表格行列很多18×15，行为厂家，列为型号，在中间框要填入利润，利润是由厂家和型号综合查询得到的各条数据相加得到的。
比如其中一个我要填入的是rs=select lr from table where cj=? and xh=?
zlr=0
while not rs.eof
zlr(总利润）＝zlr＋lr
中间的框中要填入的就是总利润，但是每个框都去根据不同型号和厂家写这段asp也很麻烦，有270个框，由于没什么经验，不知大家有什么方法可以省事一些，不用每个都这么写？

[dreamcast]

定义一个函数如何

[ChinaOk]

不错。

[dreamcube]

有没有具体一些的？

[karma]

cannot you do
select sum(lr) as 'sum' from table where cj=? and xh=?

or better yet, do
select cj, xh, sum(lr) as 'sum' from table group by cj, xh

[tripofdream]

dim cj(17)
dim xh(14)
'给cj和xh赋值
for i=0 to ubound(cj)-1
for j=0 to ubound(xh)-1
sql="select sum(lr) as 'sum' from table where cj='" & cj(i) & "' and xh='" & xh(j) & "'"
set rs=conn.execute(sql)
'表格
response.write rs("sum")
next
next