如何增加空值日期到数据库存，超急！！！！！！

[qifachen]

在数据库里面面有个FIELD位是日期类型，我定义了一个日期类型的变量，界面有个TEXTBOX1，用来输日期的，
变量=DATETIME。PARSE（TEXTBOX1。TEXT），增加，这样就一定要输，如果不输就出错，但我这个日期不一定要输啊，请大家帮帮啊

[ejoe313]

那你判断下
if TEXTBOX1.TEXT.Trim<>"" then
变量=DATETIME。PARSE（TEXTBOX1。TEXT）
else
变量=Nothing
endif

[qifachen]

If txt_submitDate.Text = "" Then
strCRF.SubmitDate = Nothing
Else
strCRF.SubmitDate = DateTime.Parse(txt_submitDate.Text.Trim)
End If

我的是这样，不行啊，郁闷啊

[CloneCenter]

像1楼那样，可以先判断是否输入了内容，没有输入则将数据保存为dbnull。

[qifachen]

不行啊

[qifachen]

请高手们出出招啊，有没有人遇到这种问题啊

[xldata]

将日期字段绑定到日期类型时要这样
绑定要手动绑定

Dim b As New Binding("Text", Me.mBindingSource, "字段名")
'b.ControlUpdateMode=
AddHandler b.Parse, AddressOf ParseTextBox

TextBox1.DataBindings.Add(b)

Private Sub ParseTextBox(ByVal obj As Object, ByVal e As ConvertEventArgs)
'将显示输出转为数据库值
Select Case e.DesiredType.ToString
Case "System.Date", "System.DateTime"
If String.IsNullOrEmpty(e.Value) Then
e.Value = DBNull.Value
Else
End If
End Select


End Sub

[CloneCenter]

举个例子：

SQL语句：

insert into Table1(field1) values(@field1)

Dim obj As Object

If IsDate(TextBox1.Text) Then
  obj = DateTime.Parse(Text1.Text)
Else
  obj = DbNull.Value
End If

' 将插入语句的参数值填充为 obj
Dim sql As String = "insert into Table1(field1) values(@field1)[/"
Dim cmd As New SqlCommand(sql, connectionString)
cmd.Parameters.Add("@field1", SqlDBType.DateTime).Value = obj
cmd.ExecuteNonQuery

上面的代码只是一个意思，自己改改吧。