我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