Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单选列表项


  共有2777人关注过本帖树形打印复制链接

主题：单选列表项
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		单选列表项  发帖心情 Post By：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来获取是否有选择，可以这么写吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/24 11:51:00 [只看该作者]

新增的时候，这样写没问题。

 

当找到对应行的时候，你不能那样写了。对于本来有值的列，不需要再赋值

 

If dr("消费早餐") = nothing Then

    dr("消费早餐") = e.PostValues("消费早餐")

End If
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/26 15:02:00 [只看该作者]

msgbox各个值看一下， 如

 

msgbox(e.PostValues("消费早餐"))

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2019/5/26 21:07:00 [只看该作者]

复选列表是：
                            If e.PostValues("消费中餐")="on"
                                hdr("消费中餐") = "on"
                            End If
单选列表不是这么写：
                            If   消费早餐.checked = True
                                hdr("消费早餐") = True
                            End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/5/27 10:26:00 [只看该作者]

这样写

 

 

msgbox(e.values("选择"))

                        Dim dr As DataRow = DataTables("报餐").AddNew() '新增一行,录入各列数据
If e.values("选择") = "消费早餐" then
                        dr("消费早餐") = true
End if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询