要先选择国家下面品牌才有内容，有没有办法一进入网页如果国家有内容品牌就有对应的内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 要先选择国家下面品牌才有内容，有没有办法一进入网页如果国家有内容品牌就有对应的内容

共有7256人关注过本帖树形打印复制链接主题：要先选择国家下面品牌才有内容，有没有办法一进入网页如果国家有内容品牌就有对应的内容

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112472 积分：572646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/13 13:37: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("国家","国家","|[中国]|德国|日本")
                .Attribute = "font-family: 宋体; font-size: medium; color: brown;">品牌','getBrands.htm','国家',false)"""
            End With
            .AddSelect("品牌","品牌","比亚迪|奇瑞|长城|荣威|吉利")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
    Case  "getBrands.htm"
        Dim pps As String = DataTables("汽车").GetComboListString("品牌","国家='" & e.PostValues("国家") & "'")
        e.WriteString(pps)
End Select

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112472 积分：572646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/13 15:01:00 [显示全部帖子]

测试过吗！

初始的设置必须指定，因为前面默认选定的是中国。然后选不同的国家的时候，品牌仍然是会根据国家变化的

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112472 积分：572646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/13 15:45:00 [显示全部帖子]

一样的东西啊，感觉您思考问题太僵硬了

列表输入框

和文本输入框一样，列表输入框也必须添加在输入框组中。

在输入框组增加一个列表输入框的语法为：

AddSelect(ID, Label, Values)

ID	输入框ID。
Label	在输入框左侧显示的标签内容
Values	列表项目，用符号"\|"隔开，例如"大专\|本科\|硕士\|博士"。打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专\|[本科]\|硕士\|博士"，打开网页后，会自动选择本科。

取表里的数据后，看看第一个值是什么，根据第一个值取国家对应的品牌赋值不就行了

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112472 积分：572646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/13 16:09:00 [显示全部帖子]

使用原生html做的只能自己研究了，自己网上搜搜，什么默认设置一个选项

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112472 积分：572646 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/13 16:56:00 [显示全部帖子]

Dim lst As New List(Of String)

dim a as string

For Each s As String In DataTables("进货退货201609").SQLGetComboListString("对账品名", "[对账品名] <>'" & dr("对账品名") & "' And 店名= '" & dr("店名") & "'").Replace(",", "|").split("|")

If lst.count = 0 Then

lst.add("[" & dr("对账品名") & "]")

a = dr("对账品名")

Else

If lst.contains(s) = False Then

lst.add(s)

End If

.AddSelect("对账品名", "对账品名", String.join("|", lst.toarray)).Attribute = """

.AddSelect("对账品类", "对账品类", DataTables("进货退货201609").SQLGetComboListString("对账品类", "[对账品名] ='" & a & "' And 店名= '" & dr("店名") & "'"))

End With

下一主题 >> << 上一主题

主题：要先选择国家下面品牌才有内容，有没有办法一进入网页如果国家有内容品牌就有对应的内容