各位老师: 下列代码,如何修改可以现实跳过重复值复制?
|
Dim cmd As New SQLCommand
cmd.C
For Each dr As DataRow In DataTables("报价汇总表").DataRows
cmd.CommandText = " insert into 成本分析汇总表(报价单号,项目编号,报价人) values ( '" & dr("报价单号") & "','" & dr("项目编号") & "','" & dr("报价人") & "' )"
cmd.ExecuteNonQuery()
Next
messagebox.show( "成功插入数据 !", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)