- 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=123789)
-- 发布时间：2018/8/23 8:48:00
-- 下拉列表添加内容
产品表的颜色列取值下拉列表的颜色列，如果下拉列表的颜色列没有所要的颜色，则在产品表的颜色列手工添加，这时，如何将手工添加的值传递到下拉列表的颜色列？我不想在下拉列表中手工添加。
-- 发布时间：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
--
用横表，不要使用竖表
