- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教：项目特征 表属性公式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66656)
-- 发布时间：2015/4/11 13:24:00
-- 请教：项目特征 表属性公式
1）在 项目特征 表 特征值 列 输入数据， 实体预算书 表 的 项目特征列 会生成相应的数据
但此列数据多出了1个空行，不知道怎样去掉。
也就是 If pr("项目特征") Is Nothing Then
pr("项目特征") = dr("特征") & ": " & dr("特征值")
不起作用。 单独执行这个代码正确。
2）在 项目特征 表 特征值 列 删除数据， 实体预算书 表 的 项目特征列 删除相应的数据
Dim dr As DataRow = e.DataRow
Dim pr As DataRow = e.DataRow.GetParentRow("实体预算书")
If e.DataCol.Name = "特征值" Then
If dr("特征值") IsNot Nothing Then
pr("项目特征") = pr("项目特征").Replace("dr(""特征"") & "":"" & " & e.OldValue & "","")
End If
End If
没有反应
-- 发布时间：2015/4/11 13:43:00
--
pr("项目特征") = dr("特征").trim() & ": " & dr("特征值").trim()
-- 发布时间：2015/4/11 13:53:00
--
Bin 版主，你好， 上面的公式只有1行还是不起作用，第2行就好了。
麻烦版主连第2个问题也给看看
谢谢了！
[此贴子已经被作者于2015/4/11 13:57:27编辑过]
-- 发布时间：2015/4/11 14:03:00
--
pr("项目特征") = pr("项目特征").Replace(dr("特征") & ": " & e.OldValue & ,"")
-- 发布时间：2015/4/11 14:32:00
--
Bin 版主，你好， 上面还是不行。
2个问题还是没有解决。麻烦你打开文件试一试
此主题相关图片如下：1.png
此主题相关图片如下：2.png
-- 发布时间：2015/4/11 14:33:00
--
你 messagebox.show(dr("特征") & ": " & e.OldValue) 看看值是什么和你要求的是否对应
-- 发布时间：2015/4/11 14:49:00
--
就是想让上面的内容为空，不知道为什么，没有换成空值。
替换后，成了： 特征 + ：
我想让它没有 特征 + ：
[此贴子已经被作者于2015/4/11 14:52:11编辑过]
-- 发布时间：2015/4/11 15:15:00
--
那里没有空?
-- 发布时间：2015/4/11 15:15:00
--
看6楼弹出值对比一下看看不就知道了