以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]越用越少  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10859)

--  作者:phrygia
--  发布时间:2011/6/27 19:27:00
--  [求助]越用越少

下拉菜单中有:A,B,C,D
我在第一列格中选择A

在第二列中的下拉菜单中就不会出现A

同样第二列我选择C后,在其他的列中就不会出现C

用掉一个选项,下拉菜单中就少掉一个


--  作者:mr725
--  发布时间:2011/6/27 21:09:00
--  

应该不复杂呀。 提供个例子来吧。


--  作者:blackzhu
--  发布时间:2011/6/28 7:44:00
--  
按我的智商只能这样做.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目列表逐次减少.table


--  作者:狐狸爸爸
--  发布时间:2011/6/28 8:33:00
--  

楼主要的应该是这个:

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目87.table


--  作者:程兴刚
--  发布时间:2011/6/28 8:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


--  作者:程兴刚
--  发布时间:2011/6/28 8:42:00
--  
呵呵,又马后炮了!
--  作者:狐狸爸爸
--  发布时间:2011/6/28 8:51:00
--  
以下是引用程兴刚在2011-6-28 8:42:00的发言:
呵呵,又马后炮了!

 

图片点击可在新窗口打开查看


--  作者:blackzhu
--  发布时间:2011/6/28 9:44:00
--  
哦,我理解错了.
--  作者:明丰
--  发布时间:2011/6/28 9:48:00
--  

Dim nms() As String = {"第一列","第二列","第三列","第四列"}
Select Case e.Col.name
    Case "第一列","第二列","第三列","第四列"
        Dim lst As new List(of String)
        lst.AddRange(New String() {"a","b","c","d"})
        For Each nm As String In nms
            If e.Col.Name <> nm Then
                If lst.Contains(e.Row(nm)) Then
                    lst.Remove(e.Row(nm))
                End If
            End If
        Next
        e.col.ComboList = String.Join("|",lst.ToArray)
End Select

 

上面代码的{"a","b","c","d"}内容如果来源于表B第一列,请问如何设置?


--  作者:狐狸爸爸
--  发布时间:2011/6/28 9:59:00
--  

Dim nms() As String  = DataTables("订单").GetUniqueValues("", "客户").ToArray