为什么第一个内容有对应的值，第二个没有 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么第一个内容有对应的值，第二个没有

共有6115人关注过本帖树形打印复制链接主题：为什么第一个内容有对应的值，第二个没有

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

为什么第一个内容有对应的值，第二个没有 发帖心情

Post By：2022/9/15 21:50:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (7).txt

为什么第一个内容有对应的值，第二个没有

Case "getBrands1.htm"

Dim vals As String

If e.PostValues.Count = 1 Then

vals = "|" & DataTables("进货退货数据表").GetComboListString("备注二", "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' ").Replace(",", "|")

ElseIf e.PostValues.Count = 2 Then

Dim Filter As String = "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' And ','+[备注二]+',' like '%," & e.PostValues("备注二") & ",%'"

vals = "|" & DataTables("进货退货数据表").GetComboListString("进货退货备注", Filter).Replace(",", "|")

End If

e.WriteString(vals)

有点蓝

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

加好友

发短信

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

Post By：2022/9/15 22:13:00 [只看该作者]

Case "getBrands1.htm"

Dim vals As String

msgbox(e.PostValues.Count)

If e.PostValues.Count = 1 Then

msgbox("','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' ")

vals = "|" & DataTables("进货退货数据表").GetComboListString("备注二", "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' ").Replace(",", "|")

ElseIf e.PostValues.Count = 2 Then

Dim Filter As String = "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' And ','+[备注二]+',' like '%," & e.PostValues("备注二") & ",%'"

msgbox(Filter )

vals = "|" & DataTables("进货退货数据表").GetComboListString("进货退货备注", Filter).Replace(",", "|")

End If

e.WriteString(vals)

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/15 22:43:00 [只看该作者]

不是这样的，我数据显示了5行，第一行内容备注二和进货退货备注有下拉内容，第二行备注二和进货退货备注就不显示下拉内容，只有第一行要显示

有点蓝

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

加好友

发短信

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

Post By：2022/9/15 22:49:00 [只看该作者]

没看懂，请截图说明

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/15 23:05:00 [只看该作者]

此主题相关图片如下：屏幕截图 2022-09-15 230205.jpg

此主题相关图片如下：屏幕截图 2022-09-15 230319.jpg

[此贴子已经被作者于2022/9/15 23:05:21编辑过]

有点蓝

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

加好友

发短信

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

Post By：2022/9/15 23:14:00 [只看该作者]

每个控件的id/name都不能和其它控件相同的

[此贴子已经被作者于2022/9/15 23:14:12编辑过]

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/15 23:20:00 [只看该作者]

那如果有几十行，这样就不能实现了是不是

有点蓝

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

加好友

发短信

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

Post By：2022/9/16 8:35:00 [只看该作者]

每一行的控件都使用不同的名称即可

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2022/9/16 12:34:00 [只看该作者]

Case "getBrands1.htm"

Dim vals As String

If e.PostValues.Count = 1 Then

vals = "|" & DataTables("进货退货数据表").GetComboListString("备注二", "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' ").Replace(",", "|")

ElseIf e.PostValues.Count = 2 Then

Dim Filter As String = "','+[备注一]+',' like '%," & e.PostValues("备注一") & ",%' And ','+[备注二]+',' like '%," & e.PostValues("备注二") & ",%'"

vals = "|" & DataTables("进货退货数据表").GetComboListString("进货退货备注", Filter).Replace(",", "|")

End If

e.WriteString(vals)

那这个得加几十个吗

有点蓝

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

加好友

发短信

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

Post By：2022/9/16 13:33:00 [只看该作者]

不需要，这里和控件名称没有什么关系

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

主题：为什么 第一个内容有对应的值，第二个没有

主题：为什么第一个内容有对应的值，第二个没有