主题：对账代码问题

代码不要写到表事件里面去啊，单独做一个按钮，写到按钮里面啊。

 要不你做个有10000行数据的例子发上来测试一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2016年上半年对账.rar

参考代码

 

For Each dr As DataRow In DataTables("财务fa piao").Select("")
    Dim dt As DataTable = DataTables("业务fa piao")
    Dim je As Double =  dr("贷方")
    If dt IsNot Nothing Then
        Dim d As Date = dr("日期")
        d = new Date(d.Year, d.Month, 1)
        Dim drs As List(of DataRow) = dt.Select("供应商编码 = '" & dr("供应商编码") & "' and fa piao号 = '" & dr("fa piao号") & "' and 金额 = " & je & "" )
        For Each r As DataRow In drs
            If r("日期").Year = d.Year AndAlso r("日期").Month = d.Month Then
                dr("核对") = True
                Exit For
            End If
        Next
    End If
Next

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

 单独做一个窗口，做一个按钮啊

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2016年上半年对账.zip

大红袍老师，如果取消按月核对，其他核对条件不变。我把改写的代码如下，但点按钮没有反应，麻烦看一下，应该怎么改。

Dim dt As DataTable = DataTables("业务fa piao")
DataTables("财务fa piao").StopRedraw
dt.StopRedraw
dt.ReplaceFor("核对", False)
DataTables("财务fa piao").ReplaceFor("核对", False)
Dim ls As new List(of DataRow)
For Each dr As DataRow In DataTables("财务fa piao").Select("")
    Dim je As Double =  dr("贷方")
    If dt IsNot Nothing Then
        Dim d As Date = dr("日期")
        d = new Date(d.Year, d.Month, 1)
        Dim drs As List(of DataRow) = dt.Select("供应商编码 = '" & dr("供应商编码") & "' and fa piao号 = '" & dr("fa piao号") & "' and 金额 = " & je & "" )
        For Each r As DataRow In drs
            dr("核对") = True
            ls.add(r)
            Exit For
        Next
    End If
Next
For Each r As DataRow In ls
    r("核对") = True
Next
DataTables("财务fa piao").ResumeRedraw
dt.ResumeRedraw

谢谢大红袍老师。