下面是从多个数据库查询读出来的数据,在input文本框里显示出来的编号 PK团队 总分数 本周PK人数 平均分数
复选框 1 196 文本框空值
复选框 2 59 文本框空值
复选框 3 100 文本框空值
当点击提交上面表单时,可以同时插入以上循环读出来的数据(N多条)到table1表格
而且本周PK人数文本框可以填写,当第一条数据PK人数写10 平均分数自动显示19.6,也可以在后台执行算出平均分再插入表格。
小弟以下插入代码 没用,请高手看看。
Set rs = Server.CreateObject("ADODB.Recordset")for i=1 to request.form("id").count
UserLevel(PK团队)=request.form("UserLevel")(i)
TotalPoint(总分数)=request.form("TotalPoint")(i)
sql="insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')"
rs.open sql,conn,1,3
next
rs.close
set rs=nothing
复选框 1 196 文本框空值
复选框 2 59 文本框空值
复选框 3 100 文本框空值
当点击提交上面表单时,可以同时插入以上循环读出来的数据(N多条)到table1表格
而且本周PK人数文本框可以填写,当第一条数据PK人数写10 平均分数自动显示19.6,也可以在后台执行算出平均分再插入表格。
小弟以下插入代码 没用,请高手看看。
Set rs = Server.CreateObject("ADODB.Recordset")for i=1 to request.form("id").count
UserLevel(PK团队)=request.form("UserLevel")(i)
TotalPoint(总分数)=request.form("TotalPoint")(i)
sql="insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')"
rs.open sql,conn,1,3
next
rs.close
set rs=nothing
'在此前应有打开连接的语句
'Set rs = Server.CreateObject("ADODB.Recordset")for i=1 to request.form("id").count
UserLevel(PK团队)=request.form("UserLevel")(i)
TotalPoint(总分数)=request.form("TotalPoint")(i)
sql="insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')"
conn.execute(sql)
next
'rs.close
'set rs=nothing
%>
--UserLevel(PK团队)=request.form("UserLevel")(i)
--TotalPoint(总分数)=request.form("TotalPoint")(i)
declare @count int,@i intset @count=10
set @i=0
while @i<@count
begin
insert into TotalAvg(UserLevel,TotalPoint) values('"&UserLevel&"','"&TotalPoint&"')
set @count=@count+1
end
vb里一般都是loop循环哇,看起来怪怪的,哈哈