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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 两表融合显示

共有2267人关注过本帖树形打印复制链接主题：两表融合显示

lfz123

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

加好友

发短信

等级：二尾狐帖子：530 积分：4607 威望：0 精华：0 注册：2018/3/24 18:04:00

两表融合显示 发帖心情

Post By：2019/1/6 11:32:00 [只看该作者]

请教:我想明细账新增的第一行取自会计科目表的余额数字,,剩余的行取自凭证明细里面所有的行,我写了一段代码,第一行老是把2个表的数字融合在一起了,代码如下:

For Each dr As DataRow In DataTables("明细账").DataRows

dr.Delete()

Dim txt As WinForm.TextBox = e.Form.Controls("tb科目代码")

Dim dr2 As DataRow = DataTables("会计科目").find("科目代码 = '"& txt.text & "'")

For Each dr As DataRow In DataTables("凭证明细").Select("科目代码 = '"& txt.Text & "'")

Dim dr1 As DataRow = DataTables("明细账").AddNew()

Dim dr3 As DataRow = DataTables("明细账").DataRows(0)

dr3("日期") = #01/01/2008#

dr3("余额") = dr2("期初余额")

dr3("方向") = dr2("方向")

dr3("摘要") = "期初余额"

dr1("日期") = dr("日期")

dr1("凭证ID") = dr("凭证ID")

dr1("摘要") = dr("摘要")

dr1("借方") = dr("借方金额")

dr1("贷方") = dr("贷方金额")

此主题相关图片如下：明细账.png

有点甜

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

加好友

发短信

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

Post By：2019/1/6 20:52:00 [只看该作者]

改成

DataTables("明细账").DataRows.Clear
Dim txt As WinForm.TextBox = e.Form.Controls("tb科目代码")
Dim dr2 As DataRow = DataTables("会计科目").find("科目代码 = '"& txt.text & "'")
If dr2 IsNot Nothing Then
    Dim dr3 As DataRow = DataTables("明细账").addnew
    dr3("日期") = #01/01/2008#
    dr3("余额") = dr2("期初余额")
    dr3("方向") = dr2("方向")
    dr3("摘要") = "期初余额"
End If
For Each dr As DataRow In DataTables("凭证明细").Select("科目代码 = '"& txt.Text & "'")
    Dim dr1 As DataRow = DataTables("明细账").AddNew()
    dr1("日期") = dr("日期")
    dr1("凭证ID") = dr("凭证ID")
    dr1("摘要") = dr("摘要")
    dr1("借方") = dr("借方金额")
    dr1("贷方") = dr("贷方金额")
Next

[此贴子已经被作者于2019/1/6 20:52:13编辑过]

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

主题：两表融合显示