- 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=43343)
-- 发布时间：2013/12/4 20:21:00
-- [求助]关联表备注如何汇聚在一起的代码或表达式
我有一主表备注A,子表备注B,能不能把子表备注B的所有内容汇聚到主表备注A里,如能的话,请问代码或表达式如何写,谢谢!!!
-- 发布时间：2013/12/4 20:29:00
--
参考自己写一下。
-- 发布时间：2013/12/4 20:40:00
--
没有能看懂,我把项目传上来,请帮忙,谢谢!!!
-- 发布时间：2013/12/4 20:40:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:备注汇聚.table |
-- 发布时间：2013/12/4 20:54:00
--
如下例子
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:备注汇聚.table |
-- 发布时间：2013/12/4 21:25:00
--
非常好,谢谢甜,我再想请教一下,如果子表有一操作员列,主表在汇聚子表备注时,如能把操作员名字也录上去就更好了,请问代码如何写,把项目再传给你,请帮忙,谢谢!!!
-- 发布时间：2013/12/4 21:32:00
--
修改表A datacolchanged的代码
If e.DataCol.Name = "A备注" Then
Dim str As String = ""
For Each dr As DataRow In DataTables("表B").Select("A = \'" & e.DataRow("A") & "\'")
str += dr("B备注") & dr("操作员") & vbcrlf
Next
e.DataRow("A备注") = str
e.cancel = True
End If
-- 发布时间：2013/12/4 21:40:00
--
我试了一下,没有反应,不知为什么,请再看一看,谢谢!!!
-- 发布时间：2013/12/4 21:45:00
--
列名，表名，自己修改一下啊，照着例子做
If e.DataCol.Name = "A备注" Then
Dim str As String = ""
For Each dr As DataRow In DataTables("表B").Select("A = \'" & e.DataRow("A") & "\'")
str += dr("B备注") & ” " & dr("操作员") & vbcrlf
Next
e.DataRow("A备注") = str
e.cancel = True
End If
-- 发布时间：2013/12/4 21:50:00
--
选中列，重置列