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编辑过]
加好友 
发短信
Post By：2020/10/27 22:36:00 [只看该作者]
