| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 单选列表项 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135349) |
| -- 作者：yetle -- 发布时间：2019/5/24 11:11:00 -- 单选列表项 单选列表项是这么定义的 With wb.AddRadioGroup("form2","选择","选择消费") .Add("消费早餐","消费早餐") .Add("消费中餐","消费中餐") .Add("消费晚餐","消费晚餐") End With 获取数据是这么写的： Dim hpr = DataTables("报餐").sqlFind("[姓名] = \'" & name & "\' And [工号] = \'" & gh & "\' and [报餐日期] = \'" & Date.Today & "\'") If hpr Is Nothing Then \'在这里,再处理你网页提交过来的值 Dim dr As DataRow = DataTables("报餐").AddNew() \'新增一行,录入各列数据 dr("消费早餐") = e.PostValues("消费早餐") dr("消费中餐") = e.PostValues("消费中餐") dr("消费晚餐") = e.PostValues("消费晚餐") 这里e.PostValues来获取是否有选择，可以这么写吗？ |
| -- 作者：有点甜 -- 发布时间：2019/5/24 11:51:00 -- 新增的时候，这样写没问题。
当找到对应行的时候，你不能那样写了。对于本来有值的列，不需要再赋值
If dr("消费早餐") = nothing Then dr("消费早餐") = e.PostValues("消费早餐") End If |
| -- 作者：yetle -- 发布时间：2019/5/26 13:57:00 -- 是新增的行，可是单选列表项勾选了（明明勾选了消费早餐），可还是没有获取到数据，其他列都有获取到数据。 _Identify
_Locked
_SortKey
姓名
工号
早餐
中餐
晚餐
报餐日期
报餐时间
消费早餐消费中餐消费晚餐
报餐 29
0
30.00000000000000
小王
10931NULLNULL
NULL
NULL
2019-05-26 00:00:00.000
NULL
NULL
NULL
9999 |
| -- 作者：有点甜 -- 发布时间：2019/5/26 15:02:00 -- msgbox各个值看一下， 如
msgbox(e.PostValues("消费早餐"))
|
| -- 作者：yetle -- 发布时间：2019/5/26 21:07:00 -- 复选列表是： If e.PostValues("消费中餐")="on" hdr("消费中餐") = "on" End If If 消费早餐.checked = True hdr("消费早餐") = True End If |
| -- 作者：有点甜 -- 发布时间：2019/5/27 10:26:00 -- 这样写
msgbox(e.values("选择")) Dim dr As DataRow = DataTables("报餐").AddNew() \'新增一行,录入各列数据
If e.values("选择") = "消费早餐" then
dr("消费早餐") = true
End if
|