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


  共有2323人关注过本帖树形打印复制链接

主题：对账代码问题
帅哥哟，离线，有人找我吗？
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 [显示全部帖子]

请大红袍老师帮忙。

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/19 14:39:00 [显示全部帖子]

大红袍老师，是放在哪个事件里？

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/19 15:10: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
        Else
            dr("核对") = False
            fdr("核对") = False
        End If
    End If


我改了一下，如果对不上，则核对由选中变为未选中，但代码不知哪出错了，请大红袍老师指教。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/19 16:58:00 [显示全部帖子]

感谢大红袍老师。

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/20 15:20:00 [显示全部帖子]

大红袍老师，麻烦问一下，我的这个表有10000行，结果运行这个代码核对，不是死机，就是闪退。怎样解决呀。

 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/20 16:11:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:2016年上半年对账.rar

我这两个表财务fa piao与业务fa piao核对，核对关系是：以供应商编码、fa piao号、金额，日期为当月。核对上的，核对列自动选中。谢谢大红袍大师。
 回到顶部
帅哥哟，离线，有人找我吗？
feixianzhi
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：503 积分：4002 威望：0 精华：0 注册：2016/6/7 7:45:00 		  发帖心情 Post By：2016/7/20 16:39:00 [显示全部帖子]

大红袍老师，我把代码放在财务fa piao—表属性—Datacolchanged事件中，在财务fa piao—核对列，重置列后，马上闪退了。是我哪做错了吗。

 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 7 次数据查询