Public Class SearchForm
Public PHONENUM
Public WORKORDERNUMSEARCH
Public SCSERVICENUM
Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
If Me.PhoneTextBox.Text <> "" Then
PHONENUM = Me.PhoneTextBox.Text
Else
PHONENUM = 0
End If
If Me.WOTextBox.Text <> "" Then
WORKORDERNUMSEARCH = Me.WOTextBox.Text
Else
WORKORDERNUMSEARCH = DBNull.Value
End If
If Me.SCServiceTextBox.Text <> "" Then
SCSERVICENUM = Me.SCServiceTextBox.Text
Else
SCSERVICENUM = DBNull.Value
End If
Me.WOTableAdapter.FillBySEARCH(Me.SearchDataSet.WO, WORKORDERNUMSEARCH, SCSERVICENUM)
End Sub
End Class
Otherwise
DIM x = NULL
If its a string,
Dim x = string.empty