Foxtable(狐表) → 用户栏目 → 专家坐堂 → 单选列表的编辑怎么写


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

主题：单选列表的编辑怎么写
帅哥哟，离线，有人找我吗？
ycs5801
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00 		单选列表的编辑怎么写  发帖心情 Post By：2023/8/23 9:18:00 [只看该作者]

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer")
            .Add("bw2","Google Chorme")
            .Add("bm3","FireFox")
            .Add("bm4","Safari")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

如上帮助中的实例，现在处于编辑阶段，怎样提取上一次已经勾选的选项，并自动勾选？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/23 9:24:00 [只看该作者]

比如

dim dr as datarow = datatables("xxx").find(某某条件)
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer",dr("浏览器") = "Intenet Explorer")
            .Add("bw2","Google Chorme",dr("浏览器") = "Google Chorme")
            .Add("bm3","FireFox",dr("浏览器") = "FireFox")
            .Add("bm4","Safari",dr("浏览器") = "Safari")
        End With
 回到顶部
帅哥哟，离线，有人找我吗？
ycs5801
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2023/8/23 9:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20230823093649.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110443 积分：562081 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/8/23 9:59:00 [只看该作者]

2楼代码测试有什么问题？

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


加好友 发短信
等级：五尾狐 帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2023/8/23 13:07:00 [只看该作者]

2楼代码传值是传的ID值，没有传具体的值，比如"Intenet Explorer"

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


加好友 发短信
等级：五尾狐 帖子：1065 积分：7592 威望：0 精华：0 注册：2009/6/24 9:44:00 		  发帖心情 Post By：2023/8/23 13:23:00 [只看该作者]

已搞定，  With wb.AddRadioGroup("form5", "防护等级", "防护等级")
               .Add("低级防护", "低级防护", dr("防护等级") = "低级防护").value = "低级防护"
              
                .Add("中级防护", "中级防护", dr("防护等级") = "中级防护").Value = "中级防护" 
                .Add("高级防护", "高级防护", dr("防护等级") = "高级防护").Value = "高级防护"
                
            End With
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询