跨表引用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表引用问题

共有2622人关注过本帖树形打印复制链接主题：跨表引用问题

fubblyc

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

跨表引用问题 发帖心情

Post By：2019/6/21 17:13:00 [只看该作者]

老师，

跨表引用：

此主题相关图片如下：微信截图_20190621170938.png

需要在被引用的表的单元格，双击，才会被引用。

不知道是有空格还是什么原因，但是我也去除空格了。

For Each dr As DataRow In DataTables("资金日报账户表").DataRows

dr("项目") = dr("项目").trim()

数据变动后代码：

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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/6/21 17:16:00 [只看该作者]

你如何测试的？用这个代码触发datacolchanged？为什么不能重置列？

For Each dr As DataRow In DataTables("资金日报账户表").DataRows

dr("项目") = dr("项目").trim()

fubblyc

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/6/21 17:22:00 [只看该作者]

就是用的重置列

这个代码放在一个按钮：

For Each dr As DataRow In DataTables("资金日报账户表").DataRows

dr("项目") = dr("项目").trim()

上面是以为是空格，用来去除的，不过也没有用

DataTables("资金日报账户表").DataCols("项目").RaiseDataColChanged()

[此贴子已经被作者于2019/6/21 17:27:43编辑过]

fubblyc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/6/21 17:23:00 [只看该作者]

其他客户的表格是没问题的，就是他这家，看起来也一样，但是不知道为什么不能重置，需要双击项目的这个单元格进去才会被触发

[此贴子已经被作者于2019/6/21 17:23:15编辑过]

fubblyc

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：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

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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)

DataTables("资金日报账户表").save

For Each dr As DataRow In DataTables("资金日报账户表").DataRows

dr("项目") = dr("项目").trim(chr(11))

DataTables("资金日报账户表").save

fubblyc

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/6/22 10:04:00 [只看该作者]

甜老大，你这样的可以，解决了。

原来是有空行。

我直接简写这样：

For Each dr As DataRow In DataTables("用友账户表").DataRows

dr("科目名称") = dr("科目名称").trim() & chr(11)

dr("科目名称") = dr("科目名称").trim(chr(11))

fubblyc

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：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) 是什么呢？没看到。。。

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111416 积分：567156 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/6/22 10:22:00 [只看该作者]

帮助之外的东西学会百度，百度不到的再来这里问：https://www.baidu.com/baidu?word=chr(11)

fubblyc

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00

Post By：2019/6/25 6:18:00 [只看该作者]

恩恩，谢谢甜老师，蓝老师！

下一主题 >> << 上一主题

主题：跨表引用问题