表格中设置下拉 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText ="Se/ect 学校名称,班级,学生姓名,身份证件号,学籍号,户籍地址,家庭住址,联系电话,提请审核,审核锁定,是否建档立卡,留守情况,就餐分类,提请审核,审核锁定,状态,_Identify From {学生信息} where 状态 Like '%在读%'and 班级='" & e.Cookies("bj") & "' and 学校名称='" & e.Cookies("userdw") & "' order by 学校名称,班级,学生姓名"

Dim dt As DataTable = cmd.ExecuteReader(True)

wb.InsertHTML("form1", "<Table border=1 cellspacing=0 style='width:100%;text-align:center;'><tr><td style='text-align:center;font-size: 15pt;strong'>学生姓名</td><td style='text-align:center;font-size: 15pt'>就餐选择</td></tr>")

For Each dr As DataRow In dt.DataRows

wb.insertHtml("form1", "<tr style='height:20px;'><td style='width:20%;font-size:15px' >" & dr("学生姓名") & "</td><td style='width:20%'><select value='" & dr("就餐分类") & "' name='txt1_" & dr("_Identify") & "'><option value ='午餐'>午餐</option><option value ='不在学校就餐'>不在学校就餐</option></Select></td></tr>")

wb.insertHtml("form1", "</Table>")

老师，你好，我想在表格中做个下拉选择，但初始值要显示为之表中已有值，但我这样始终是显示为下拉中的第一项午餐，请问上面怎么改

不是这个意思，我是要将select的初始值为表中之前的值dr("就餐分类"), 例子中的将下拉中的某一项作为初始选项

wb.insertHtml("form1", "<tr style='height:15px;'><td style='width:20%;font-size:15px' >" & dr("学生姓名") & "</td><td style='width:20%'><select value='" & dr("就餐分类") & "' name='txt1_" & dr("_Identify") & "'><option value ='" & dr("就餐分类") &"' selected>" & dr("就餐分类") & "</option><option value ='不在学校就餐'>不在学校就餐</option><option value ='午餐'>午餐</option></Select></td></tr>")

按这个做法是可以，但选项中多了一项

根据已选择的项目，来动态添加剩余选项。比如abc，默认选中a，就只添加bc，默认选中b，就只添加ac

一两个选项这样还可以做，如果是下拉有两百项这怎么处理？

两百项一般就会通过循环添加，在循环里判断。

或者取这两百项的时候先就排除掉，已选择的项目

主题：表格中设置下拉