0

If在 my 之前运行一个语句INSERT,以比较是否输入了日期。如果输入了一个值,我将这个值分配给一个变量(用作参数值),但是如果没有输入任何值,我需要字面上什么都不输入,这样在加载数据时,格式仍然是__ /__ /__

但是,当使用datevar = Nothing它插入它时,它会将其插入为 01/01/2001。我也尝试过使用 DBNull.Value,但这一直在说DBNull.Value cannot be converted to type 'Date'

如何让查询不插入任何内容/null 以返回 __ /__/ __?

Dim delDate As Date

If dr.Item("Goods_Delivered") = False Then
    delivVal = 0
    delivVol = 0
    sino = ""
    delDate = DBNull.Value
Else
    Try
        delivVal = dr.Item("deliveryVal")
        delivVol = dr.Item("deliveryVol")
        sino = dr.Item("Supplier_Invoice_Number")
        delDate = dr.Item("Final_Delivery")
    Catch ex As Exception
        delivVal = 0
        delivVol = 0
        sino = 0
    End Try
End If
4

1 回答 1

0

将 delDate 初始化为 DateTime.MinValue

Dim delDate as Date = #1/1/0001 12:00:00 AM#

然后当你构造你的插入语句时,检查 delDate = DateTime.MinValue。如果是,则插入 NULL。否则插入 delDate。

于 2016-09-17T12:57:55.250 回答