以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  下拉列表添加内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123789)

--  作者:实话实说
--  发布时间:2018/8/23 8:48:00
--  下拉列表添加内容
产品表的颜色列取值下拉列表的颜色列,如果下拉列表的颜色列没有所要的颜色,则在产品表的颜色列手工添加,这时,如何将手工添加的值传递到下拉列表的颜色列?我不想在下拉列表中手工添加。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉列表.foxdb



--  作者:有点蓝
--  发布时间:2018/8/23 9:11:00
--  
参考:http://www.foxtable.com/webhelp/scr/1453.htm
--  作者:实话实说
--  发布时间:2018/8/23 9:59:00
--  
是这样吗?可是不行.

If e.DataCol.Name = "颜色" Then 
    Dim dr As DataRow
    dr = DataTables("下拉列表").Find("[颜色] = \'" & e.NewValue & "\'")
        If dr Is Nothing Then
            dr("颜色") =  e.DataRow("颜色")
        End If
End If

--  作者:有点蓝
--  发布时间:2018/8/23 10:04:00
--  
If dr Isnot Nothing Then
--  作者:实话实说
--  发布时间:2018/8/23 10:11:00
--  
下拉列表中并不增加
--  作者:有点蓝
--  发布时间:2018/8/23 10:13:00
--  
不应该呀,都是很基础的语法

If dr Is Nothing Then
            dr = DataTables("下拉列表").addnow
        End If
dr("颜色") =  e.DataRow("颜色")

--  作者:实话实说
--  发布时间:2018/8/23 10:42:00
--  
能否直接在黄色后面添加?

图片点击可在新窗口打开查看此主题相关图片如下:snap1.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2018/8/23 11:01:00
--  
可以,再find 颜色 is null的行即可。但是感觉这样的逻辑不合理啊
--  作者:实话实说
--  发布时间:2018/8/23 11:17:00
--  
我是将一部分下拉项目集中一个表管理,每一列内容不一样,有的列会有空格存在,但每列内容之间不应有空格,虽然不影响使用,但很难看。希望能帮我解决。
--  作者:有点蓝
--  发布时间:2018/8/23 11:29:00
--  
用横表,不要使用竖表
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:下拉列表.zip