- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这个备注列的代码怎么写？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47581)
-- 发布时间：2014/3/12 20:32:00
-- 这个备注列的代码怎么写？
此主题相关图片如下：20140312202619.jpg
如图 有数据列 “黑色 大红 梅红 蓝色” 和 备注列 “备注“
要想数字为 0 的 不显示在备注列中
这个备注列的代码怎么写？
谢谢
-- 发布时间：2014/3/12 20:52:00
--
用表事件：DataColChanged
-- 发布时间：2014/3/12 20:55:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按列顺序拼接备注内容.table |
[此贴子已经被作者于2014-3-12 20:57:37编辑过]
-- 发布时间：2014/3/12 20:55:00
--
我的是最新的开发版，打不开 
[此贴子已经被作者于2014-3-12 21:00:35编辑过]
-- 发布时间：2014/3/12 21:09:00
--
开发版，可以下载商业版，能打开。
-- 发布时间：2014/3/12 21:11:00
--
提示要激活
，麻烦把代码贴上来下好吗，谢谢了
[此贴子已经被作者于2014-3-12 21:11:35编辑过]
-- 发布时间：2014/3/12 21:12:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按列顺序拼接备注内容.foxdb |
-- 发布时间：2014/3/12 21:13:00
--
Select Case e.DataCol.Name
Case "黑红","大红","梅红","蓝色"
e.DataRow("备注") = ""
For Each s As String In "黑红|大红|梅红|蓝色".Split("|")
If e.DataRow.IsNull(s) = False AndAlso e.DataRow(s) <> 0 Then
e.DataRow("备注") + = s & ":" & e.DataRow(s) & vbcrlf
End If
Next
End Select
-- 发布时间：2014/3/12 21:13:00
--
谢谢
-- 发布时间：2014/3/12 21:16:00
--
下次提问题，上传项目例子，会省不少时间。