以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 数据会重复出现,怎样搞成后台对比就不会有重复的出现了 (http://foxtable.net/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 |