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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 对账代码问题

共有2289人关注过本帖树形打印复制链接主题：对账代码问题

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

对账代码问题 发帖心情

Post By：2016/7/19 12:43:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:对账.rar

此项目里有三个表，总账、付款和fa piao。要按月核对总账与付款和fa piao表的内容。核对关系是当月，公司编码和金额相同的行，总账与付款或fa piao的核对列自动选中。代码怎么写，请各位大师帮忙。总账的日期与付款或fa piao的日期不同，核对当月就行。

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/7/19 12:43:00 [只看该作者]

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

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/7/19 13:17:00 [只看该作者]

请各位大师帮忙，急用。

feixianzhi

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

加好友

发短信

等级：二尾狐帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00

Post By：2016/7/19 13:57:00 [只看该作者]

请大红袍老师帮忙。

大红袍

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

加好友

发短信

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

Post By：2016/7/19 14:38:00 [只看该作者]

For Each dr As DataRow In DataTables("总账").Select("")
    Dim dt As DataTable = Nothing
    Dim je As Double = 0
    If dr.Isnull("借方") = False
        dt = DataTables("付款")
        je = dr("借方")
    ElseIf dr.IsNull("贷方") = False
        dt = DataTables("fa piao")
        je = dr("贷方")
    End If
    If dt IsNot Nothing Then
        Dim d As Date = dr("月份")
        d = new Date(d.Year, d.Month, 1)
        Dim fdr As DataRow = dt.Find("公司编码 = '" & dr("公司代码") & "' and 金额 = " & je & " And 月份 >= #" & d & "# and 月份 < #" & d.AddMonths(1) & "#")
        If fdr IsNot Nothing Then
            dr("核对") = True
            fdr("核对") = True
        End If
    End If
Next