- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表引用问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136795)
-- 发布时间：2019/6/21 17:13:00
-- 跨表引用问题
老师，
跨表引用：
此主题相关图片如下：微信截图_20190621170938.png
需要在被引用的表的单元格，双击，才会被引用。
不知道是有空格还是什么原因，但是我也去除空格了。
For Each dr As DataRow In DataTables("资金日报账户表").DataRows
dr("项目") = dr("项目").trim()
Next
数据变动后代码：
If e.DataCol.name = "账户" Then
If e.NewValue Is Nothing Then
e.DataRow("上日余额") = Nothing
e.DataRow("本日增加") = Nothing
e.DataRow("本日减少") = Nothing
e.DataRow("本日余额") = Nothing
Else
\'各项目
Dim dr As DataRow
dr = DataTables("用友账户表").Find(" [项目] = \'" & e.NewValue & "\' ")
If dr IsNot Nothing
e.DataRow("上日余额") = dr("昨日余额")
e.DataRow("本日增加") = dr("今日借方")
e.DataRow("本日减少") = dr("今日贷方")
e.DataRow("本日余额") = dr("今日余额")
End If
end if
[此贴子已经被作者于2019/6/21 17:24:11编辑过]
-- 发布时间：2019/6/21 17:16:00
--
你如何测试的？用这个代码触发datacolchanged？为什么不能重置列？
For Each dr As DataRow In DataTables("资金日报账户表").DataRows
dr("项目") = dr("项目").trim()
Next
-- 发布时间：2019/6/21 17:22:00
--
就是用的重置列
这个代码放在一个按钮：
For Each dr As DataRow In DataTables("资金日报账户表").DataRows
dr("项目") = dr("项目").trim()
Next
上面是以为是空格，用来去除的，不过也没有用
DataTables("资金日报账户表").DataCols("项目").RaiseDataColChanged()
[此贴子已经被作者于2019/6/21 17:27:43编辑过]
-- 发布时间：2019/6/21 17:23:00
--
其他客户的表格是没问题的，就是他这家，看起来也一样，但是不知道为什么不能重置，需要双击项目的这个单元格进去才会被触发
[此贴子已经被作者于2019/6/21 17:23:15编辑过]
-- 发布时间：2019/6/21 17:56:00
--
老师，
datacolchanged代码是这个：
If e.DataCol.name = "账户" Then
If e.NewValue Is Nothing Then
e.DataRow("上日余额") = Nothing
e.DataRow("本日增加") = Nothing
e.DataRow("本日减少") = Nothing
e.DataRow("本日余额") = Nothing
Else
\'各项目
Dim dr As DataRow
dr = DataTables("用友账户表").Find(" [项目] = \'" & e.NewValue & "\' ")
If dr IsNot Nothing
e.DataRow("上日余额") = dr("昨日余额")
e.DataRow("本日增加") = dr("今日借方")
e.DataRow("本日减少") = dr("今日贷方")
e.DataRow("本日余额") = dr("今日余额")
End If
end if
-- 发布时间：2019/6/21 18:13:00
--
以下是引用fubblyc在2019/6/21 17:23:00的发言：
其他客户的表格是没问题的，就是他这家，看起来也一样，但是不知道为什么不能重置，需要双击项目的这个单元格进去才会被触发
其他客户的表格是没问题的，就是他这家，看起来也一样，但是不知道为什么不能重置，需要双击项目的这个单元格进去才会被触发
[此贴子已经被作者于2019/6/21 17:23:15编辑过]
把空格去掉后测试
For Each dr As DataRow In DataTables("资金日报账户表").DataRows
dr("项目") = dr("项目").trim() & chr(11)
Next
DataTables("资金日报账户表").save
For Each dr As DataRow In DataTables("资金日报账户表").DataRows
dr("项目") = dr("项目").trim(chr(11))
Next
DataTables("资金日报账户表").save
-- 发布时间：2019/6/22 10:04:00
--
甜老大，你这样的可以，解决了。
原来是有空行。
我直接简写这样：
For Each dr As DataRow In DataTables("用友账户表").DataRows
dr("科目名称") = dr("科目名称").trim() & chr(11)
dr("科目名称") = dr("科目名称").trim(chr(11))
Next
-- 发布时间：2019/6/22 10:07:00
--
chr(9) tab空格 chr(10) 换行 chr(13) 回车 Chr(13)&chr(10) 回车换行 chr(32) 空格符 chr(34) 双引号 chr(39) 单引号
那chr(11) 是什么呢？没看到。。。
-- 发布时间：2019/6/22 10:22:00
--
帮助之外的东西学会百度，百度不到的再来这里问：https://www.baidu.com/baidu?word=chr(11)
-- 发布时间：2019/6/25 6:18:00
--
恩恩，谢谢甜老师，蓝老师！