计划将表H_MKQRecord未同步的数据以SQL的方式插入SQL表CardDate的时候出现以下的问题,请问如何处理?
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:窗口,ERP仓库定时设置,考勤同步,Click
详细错误信息:
已添加了具有相同键的项。
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
dt = cmd.ExecuteReader()
Dim drs As List(of DataRow) = DataTables("H_MKQRecord").SQLSelect("是否同步 = 0")
For Each dr As DataRow In drs
cmd.CommandText = "Insert Into CardData (OriginalData, CardMachineID, CardDate, CardID, EmpNosid, CardTime, YYMMDD, IsUsed, IsOk, createtime) Values(?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@OriginalData",dr("OriginalData"))
cmd.Parameters.Add("@CardMachineID",dr("CardMachineID"))
cmd.Parameters.Add("@CardDate",dr("CardDate"))
cmd.Parameters.Add("@CardID",dr("CardID"))
cmd.Parameters.Add("@EmpNosid",dr("EmpNosid"))
cmd.Parameters.Add("@CardTime",dr("CardTime"))
cmd.Parameters.Add("@YYMMDD",dr("YYMMDD"))
cmd.Parameters.Add("@IsUsed",1)
cmd.Parameters.Add("@IsOk",1)
cmd.Parameters.Add("@createtime",Date.Now)
cmd.ExecuteNonQuery
dr("是否同步") = True
dr("同步日期") = Date.Now
dr.save
Next