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


  共有2628人关注过本帖树形打印复制链接

主题：跨表引用问题
帅哥哟，离线，有人找我吗？
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()    
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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()    
Next
上面是以为是空格，用来去除的，不过也没有用

DataTables("资金日报账户表").DataCols("项目").RaiseDataColChanged()
[此贴子已经被作者于2019/6/21 17:27:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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) 是什么呢？没看到。。。
 回到顶部
帅哥哟，离线，有人找我吗？
fubblyc
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2355 积分：16187 威望：0 精华：0 注册：2013/9/1 8:09:00 		  发帖心情 Post By：2019/6/25 6:18:00 [显示全部帖子]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04810 秒, 5 次数据查询