Dim Vals As List(of String())
Vals = DataTables(e.Form.Name & "_Table1").GetValues("fdate|fexp|faccountid2|facctidside|fdebit|fcredit")
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("现金日记账").AddNew()
dr("fdate") = Vals(i)(0)
dr("fexp") = Vals(i)(1)
dr("faccountid2") = Vals(i)(2)
dr("facctidside") = Vals(i)(3)
dr("fdebit") = Vals(i)(4)
dr("fcredit") = Vals(i)(5)
Next
DataTables("现金日记账").replacefor("_Locked",True) '锁定行
Forms("保存窗口").show
Tables("现金日记账").save
Forms("保存窗口").close
Dim cnt As Integer
cnt = DataTables("现金日记账").SQLReplaceFor("fexp", True)
MessageBox.Show("合计勾联了" & cnt & "条记录!","提示")
以上代码如何跳过重复值，帮忙修改一下代码。谢谢了！
加好友 
发短信
Post By：2017/7/13 14:10:00 [只看该作者]
