以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提交数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157757)
--  作者：刘林
--  发布时间：2020/10/27 22:36:00
--  提交数据
wb.AddForm("","form1","sdshsave.htm").attribute= """
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText ="Se/ect [学校名称],[班级],[学生姓名],[身份证件号],[申读学校],[申读班级],[_Identify] From {学生信息} where  [申读班级]=\'" & e.Cookies("bj") & "\' and [申读学校]=\'" & e.Cookies("userdw") & "\' and  [班级]<>\'" & e.Cookies("bj") & "\' order by [学生姓名]"
Dim dt As DataTable =  cmd.ExecuteReader(True)
wb.InsertHTML("form1", "<Table border=1 cellspacing=0 style=\'width:100%;text-align:center;\'><tr style=height:45px;color:red;\'><td style=\'text-align:center;font-size: 15px;strong\'>序号</td><td style=\'text-align:center;font-size: 15px;strong\'>学生姓名</td><td style=\'text-align:center;font-size: 15px;strong\'>同意入班</td><td style=\'text-align:center;font-size: 15px;strong\'>退回申请</td></tr>")
Dim i As Integer=1
For Each dr As DataRow In dt.DataRows
    wb.insertHtml("form1", "<tr style=\'height:45px;\'><td style=font-size:15px\' >" & i & "</td> <td style=font-size:15px\' ><a href=\'sdxsxx.htm?xssfzh=" & dr("身份证件号") & "\'>" & dr("学生姓名") & "</a></td><td><input type=\'radio\'  id=\'yes_" & dr("_Identify") & "\' name=\'radio1_" & dr("_Identify") & "\'></td><td><input type=\'radio\' id= \'no_" & dr("_Identify") & "\' name=\'radio1_" & dr("_Identify") & "\'></td></tr>")
    i=i+1
Next
wb.insertHtml("form1", "</Table>")
wb.InsertHTML("form1","<input Type=\'image\'  name=\'submit\' src=\'../tubiao/ok.png\' onc/ick=\'document.formName.submit()\' style=\'position: fixed;left:50%;transform:translate(-50%);bottom:20px;z-index:5;weight:35px;width:35px;\'></input>")
e.WriteString(wb.Build)
e.Handled=True

老师，我想做一个表格单元格中增加单选，来同意入班或退回申请，我想提交给sdshsave时能提提出每行是选提YES还是NO，并取ID值_identify后做相应处理，但用下面得到的显示为"submit.y:一个变化的数字"呢,怎样得到选择的按钮值呢

Dim str As String
For Each key As String In e.PostValues.Keys
           str= key & ":" & e.PostValues(key) & vbcrlf
        Next
messagebox.show(str)



[此贴子已经被作者于2020/10/27 22:40:59编辑过]
--  作者：有点蓝
--  发布时间：2020/10/28 9:40:00
--  
使用的是图片按钮【input Type=\'image\' 】submit.y是图片按钮的属性，不用管即可，或者改为普通按钮。

给单选框加上返回值：
wb.insertHtml("form1", "<tr style=\'height:45px;\'><td style=font-size:15px\' >" & i & "</td> <td style=font-size:15px\' ><a href=\'sdxsxx.htm?xssfzh=" & dr("身份证件号") & "\'>" & dr("学生姓名") & "</a></td><td><input type=\'radio\'  id=\'yes_" & dr("_Identify") & "\' name=\'radio1_" & dr("_Identify") & "\' value=\'y_" & dr("_Identify") & "\' ></td><td><input type=\'radio\' id= \'no_" & dr("_Identify") & "\' name=\'radio1_" & dr("_Identify") & "\' value=\'n_" & dr("_Identify") & "\' ></td></tr>")