不应该
If e.form.Controls("textbox1").text > "" Then s1 = e.form.Controls("textbox1").text & ";"Else s1 = "" End If
If dr.IsNull("销售日期") Then
或者
If dr("销售日期") = Nothing Then