Foxtable(狐表)用户栏目专家坐堂 → WEUI如何获取到列表输入的值进行编辑。


  共有5068人关注过本帖平板打印复制链接

主题:WEUI如何获取到列表输入的值进行编辑。

帅哥哟,离线,有人找我吗?
wh420
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1107 积分:10562 威望:0 精华:0 注册:2014/2/19 16:32:00
WEUI如何获取到列表输入的值进行编辑。  发帖心情 Post By:2021/11/26 17:57:00 [只看该作者]

填加新记录使用的是如下方法:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1",
"
动态列表")
            With .AddSelect("xh",
"
型号","|" & DataTables("A").GetComboListString("型号"))
                .Attribute = """
            End With
            With .AddSelect("gg",
"
规格","")
                .Attribute = """
            End With
            .AddSelect("ys",
"
颜色","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1",
"
确定", "submit")
        End With
        e.WriteString(wb.Build)
'
生成网页
    Case  "getProducts.htm"
        Dim vals As String
        If e.PostValues.Count = 1 Then
            vals  = "|" & DataTables(
"
A").GetComboListString("规格","型号='" & e.PostValues("xh") & "'")
        ElseIf e.PostValues.Count = 2 Then
            Dim Filter As String =
"
型号='" & e.PostValues("xh") & "' And 规格='" & e.PostValues("gg") & "'"
            vals = "|" & DataTables(
"
A").GetComboListString("颜色", Filter)
        End If
        e.WriteString(vals)

End
Select

那么编辑该记录时如何获取到列表输入框的值?怎么写

 回到顶部
总数 62 1 2 3 4 5 6 7 下一页