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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么第一个内容有对应的值，第二个没有  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179887)

--  作者：qazlinle6
--  发布时间：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)

--  作者：有点蓝
--  发布时间：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
--  发布时间：2022/9/15 22:43:00
--
不是这样的，我数据显示了5行，第一行内容备注二和进货退货备注有下拉内容，第二行备注二和进货退货备注就不显示下拉内容，只有第一行要显示

--  作者：有点蓝
--  发布时间：2022/9/15 22:49:00
--
没看懂，请截图说明

--  作者：qazlinle6
--  发布时间：2022/9/15 23:05:00
--

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

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

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

--  作者：有点蓝
--  发布时间：2022/9/15 23:14:00
--
每个控件的id/name都不能和其它控件相同的
[此贴子已经被作者于2022/9/15 23:14:12编辑过]

--  作者：qazlinle6
--  发布时间：2022/9/15 23:20:00
--
那如果有几十行，这样就不能实现了是不是

--  作者：有点蓝
--  发布时间：2022/9/16 8:35:00
--
每一行的控件都使用不同的名称即可

--  作者：qazlinle6
--  发布时间：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)

那这个得加几十个吗

--  作者：有点蓝
--  发布时间：2022/9/16 13:33:00
--
不需要，这里和控件名称没有什么关系