Dim StrDate As WinForm.DateTimePicker = e.Form.Controls("StrDate")
If Tables("总装焊接指令_Table1").Rows.Count > 0 And Strdate.Text <> ""
Dim cmd As New SQLCommand
cmd.C
Dim sql As String = "INSERT INTO [焊接指令] ( [开工日期], [序号],[计划日期], [需求分类], [产品图号], [生产], [CreatedTime]) OUTPUT Inserted._Identify VALUES( '"
For Each r As Row In Tables("总装焊接指令_Table1").Rows
If r("ID") = 0 Then
cmd.CommandText = sql & StrDate.Value & "','" & r("序号") & "','" & r("计划日期") & "','" & r("需求分类") & "','" & r("产品图号") & "','" & r("生产") & "',Getdate())"
r("ID") = cmd.ExecuteScalar()
Else
MessageBox.Show(1)
End If
Next
End If
这个语句只插入表里的第一条数据，并且将后面的数据多删除了。。
将CommandText语句里的StrDate.Value 替换成StrDate.Text的时候就运行就正常了。。
折腾了半个多小时。。
加好友 
发短信
Post By：2020/12/9 9:39:00 [只看该作者]
