主题：日期空值实例

Dim rq = e.Form.Controls("rq").value

Dim bh As String = e.Form.Controls("bh").value

Dim cp As String = e.Form.Controls("cp").value

Dim kh As String = e.Form.Controls("kh").value

Dim gy As String = e.Form.Controls("gy").value

Dim dj As  Double = e.Form.Controls("dj").value

Dim zk As  Double = e.Form.Controls("zk").value

Dim sl As  Double = e.Form.Controls("sl").value

Dim cmd As new sqlcommand

cmd.C

cmd.CommandText="insert into {订单} ([编号],[产品],[客户],[雇员],[单价],[折扣],[数量],[日期]) "

cmd.CommandText &= "values ('" & bh & "','" & cp & "','" & kh & "','" & gy & "','" & dj & "','" & zk & "','" & sl & "'," & iif(rq Is Nothing,"null","'" & rq & "'") & ") "

cmd.ExecuteNonQuery