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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表生成对应行

共有3507人关注过本帖树形打印复制链接主题：跨表生成对应行

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/16 17:02:00 [显示全部帖子]

Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开piao")

Dim arys() As String = {"月收,两月收,季收", "月收", "", "", "月收,年收", "", "", "", "", "", "", ""}
Dim filter As String = "收租方式 in ('" & arys(Date.Today.Month-1).replace(",", "','") & "')"
msgbox(filter)
dt2.DataRows.Clear
For Each dr As DataRow In dt1.Select(filter)
    Dim ndr As DataRow = dt2.AddNew
    ndr("合同号") = dr("合同号")
    ndr("收款方式") = dr("收租方式")
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/17 10:31:00 [显示全部帖子]

1、这句代码去掉

msgbox(filter)

2、4楼的代码，单独写到一个按钮里面去，不要写在你的表事件里面啊。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/17 15:15:00 [显示全部帖子]

Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开piao")

Dim arys() As String = {"月收,两月收,季收", "月收", "", "", "月收,年收", "", "", "", "", "", "", ""}
Dim filter As String = "收租方式 in ('" & arys(Date.Today.Month-1).replace(",", "','") & "')"

For Each dr As DataRow In dt1.Select(filter)
    Dim ndr As DataRow = dt2.Find("合同号 = '" & dr("合同号") & "'")
    If ndr Is Nothing Then ndr = dt2.AddNew
    ndr("合同号") = dr("合同号")
    ndr("收款方式") = dr("收租方式")
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 15:22:00 [显示全部帖子]

看8楼。根据合同号判断是否存在啊

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/20 16:33:00 [显示全部帖子]

Dim dt1 As DataTable = DataTables("合同管理")
Dim dt2 As DataTable = DataTables("本期开piao")

Dim 月份 As String = Date.Today.Month & "月"
For Each dr As DataRow In dt1.Select(filter)
    Dim ndr As DataRow = dt2.Find("合同号 = '" & dr("合同号") & "' and 月份 = '" & 月份 & "'")
    If ndr Is Nothing Then ndr = dt2.AddNew
    ndr("合同号") = dr("合同号")
    ndr("月份") = 月份
    ndr("收款方式") = dr("收租方式")
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/25 10:12:00 [显示全部帖子]

上传实例说明。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/25 10:20:00 [显示全部帖子]

请上传正确的例子。

获取不到数据，说明你查询的条件有问题啊。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/25 10:50:00 [显示全部帖子]

'取BQKP中累计欠款作为新一期的前期欠款
If e.DataCol.name = "收租月" OrElse e.DataCol.name = "收款方式" Then
    If e.DataRow("收款方式") = "月收" AndAlso e.DataRow.isnull("收租月") = False Then
        Dim dr As DataRow
        dr = DataTables("BQKP归档").Find("[具体位置] = '" & e.DataRow("具体位置") & "' And 收租月 = '" & val(e.DataRow("收租月").replace("月", ""))-1 & "月'")

        If dr IsNot Nothing Then
            e.DataRow("上期累计欠款") = dr("本期累计欠款")
        End If
    End If
End If