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


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

主题:单选列表的编辑怎么写

帅哥哟,离线,有人找我吗?
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

如上帮助中的实例,现在处于编辑阶段,怎样提取上一次已经勾选的选项,并自动勾选?

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230823093649.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部