- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]数据互相引用的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132663)
-- 发布时间：2019/3/26 23:51:00
-- [求助]数据互相引用的问题
亲们晚上好！学了一阵子foxtable 惭愧啊 发现还是啥都不会求教！感谢大神！在此祝大神们事事顺利！
以下是我解决不了的问题
1.此行的数据为2241.01.03 其他应付款 - 代收代付 - 住宅水费/07 我想提取空格前的科目代码让存在另一行中要怎么写代码？
2.要使卓越项目汇总表的会计科目列等于卓越科目表中的科目列这个代码要怎么写？我自己写的代码也有编译错误，那里要改
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("卓越项目汇总")
Dim zykm As DataTable =DataTables("卓越科目")
If e.DataCol.Name = "收费项目" And dr.IsNull("收费项目") = False Then
dr("会计科目") = zykm("科目")
End If
然后弱弱的问一下这些代码都要写在DataColChanged里吗？
第三步是要添加汇总让我核对这两个系统的数据，这个我可以从帮助中复制代码研究研究自己写。
-- 发布时间：2019/3/27 8:53:00
--
上例子
-- 发布时间：2019/3/27 9:09:00
--
附件已添加
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2019/3/27 9:27:00
--
1、参考
Dim str = "2203.01.01 预收账款 - 物业费 - "
Dim ary = str.split(" ")
msgbox(ary(0))
2、跨表引用，参考
http://www.foxtable.com/webhelp/scr/1451.htm
3、统计，参考
http://www.foxtable.com/webhelp/scr/00143.htm
[此贴子已经被作者于2019/3/27 11:05:12编辑过]
-- 发布时间：2019/3/27 9:48:00
--
感谢大神的回复，第一个问题不是处理一个字符串是处理数据表的一列数据
-- 发布时间：2019/3/27 11:06:00
--
DataColChanged事件
If e.DataCol.name = "对方科目" Then
Dim str = e.DataRow("对方科目")
Dim ary = str.split(" ")
e.DataRow("会计科目") = ary(0)
End If