cmd.CommandText = " INSERT INTO 入库记录表 (条码,类型,来源,日期,店铺,编码,数量,备注) VALUES(?,?,?,?,?,?,?,?,?)"
For Each r In T1.Rows
'+++++++如果当前行条码已轮询过,则越过++++++++++
If tms.Contains(r("条码"))= False Then
tms.Add(r("条码"))
'+++++++添加入库记录+++++++++++++++++++++
cmd.Parameters.Clear
cmd.Parameters.Add("@条码",r("条码"))
cmd.Parameters.Add("@类型",TB1.VALUE)
cmd.Parameters.Add("@来源",ZY.value)
cmd.Parameters.Add("@日期",DTP.Value)
cmd.Parameters.Add("@店铺",user.name)
cmd.Parameters.Add("@编码",bm)
cmd.Parameters.Add("@数量",m)
cmd.Parameters.Add("@备注",TB2.VALUE)
cmd.ExecuteNonQuery
End If
Next
加好友 
发短信
Post By：2018/9/4 11:37:00 [显示全部帖子]
