以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  BUG收集  (http://foxtable.net/bbs/list.asp?boardid=12)
----  日期控件取值导致的错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=12&id=158978)

--  作者:kb9702
--  发布时间:2020/12/9 9:39:00
--  日期控件取值导致的错误
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的时候就运行就正常了。。
折腾了半个多小时。。