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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据互相引用的问题

共有2609人关注过本帖树形打印复制链接主题：[求助]数据互相引用的问题

rxq_1987

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

加好友

发短信

等级：婴狐帖子：9 积分：203 威望：0 精华：0 注册：2019/2/14 14:27:00

[求助]数据互相引用的问题 发帖心情

Post By：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里吗？

第三步是要添加汇总让我核对这两个系统的数据，这个我可以从帮助中复制代码研究研究自己写。

y2287958

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

加好友

发短信

等级：狐神帖子：4841 积分：35105 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/3/27 8:53:00 [只看该作者]

上例子

rxq_1987

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

加好友

发短信

等级：婴狐帖子：9 积分：203 威望：0 精华：0 注册：2019/2/14 14:27:00

Post By：2019/3/27 9:09:00 [只看该作者]

附件已添加

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

有点甜

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

加好友

发短信

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

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

rxq_1987

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

加好友

发短信

等级：婴狐帖子：9 积分：203 威望：0 精华：0 注册：2019/2/14 14:27:00

Post By：2019/3/27 9:48:00 [只看该作者]

感谢大神的回复，第一个问题不是处理一个字符串是处理数据表的一列数据

有点甜

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

加好友

发短信

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

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

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

主题：[求助]数据互相引用的问题