以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据会重复出现,怎样搞成后台对比就不会有重复的出现了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143796)

--  作者:yifan3429
--  发布时间:2019/12/4 17:00:00
--  数据会重复出现,怎样搞成后台对比就不会有重复的出现了
If e.DataCol.Name = "收款人" AndAlso e.NewValue <> Nothing Then
        \'Forms("更新提示").Show
        Dim fdr As DataRow = DataTables("凭证往来账户").Find("收款人 = \'" & e.NewValue & "\'")
        If fdr Is Nothing Then
            fdr = DataTables("凭证往来账户").AddNew
            fdr("收款人") = e.DataRow("收款人")
            fdr("收款账号") = e.DataRow("收款账号")
            fdr("开户行") = e.DataRow("开户行")
            fdr("核算主体") = e.DataRow("核算主体")
            fdr("账户分类") = e.DataRow("账户分类")
        End If
    End If

--  作者:有点蓝
--  发布时间:2019/12/4 17:10:00
--  
http://www.foxtable.com/webhelp/topics/2911.htm