VB.NET SQL篩選器does not顯示NULL

Question

Sub KlantenFilterZoeken(ByVal DataGridI As DataGridView, ByVal Tbl As String, ByVal NaamStraatHuisnummerBusnummerPostcodePlaatsTelefoon As String, ByVal DBCON As String) 
    Dim Delen() As String = NaamStraatHuisnummerBusnummerPostcodePlaatsTelefoon.Split("|") 

    Dim objConnection As New SqlConnection(DBCON) 
    Dim objDt As New DataTable 
    DataGridI.DataSource = Nothing 
    objConnection.Open() 
    Dim sSQL As String = "SELECT * FROM " & Tbl & " Where " & "KlantID Like @KlantID AND naam Like @naam AND straat Like @straat AND huisnummer Like @huisnummer AND postcode LIKE @postcode AND plaats LIKE @plaats AND telefoon LIKE @telefoon" 
    Dim objCommand As SqlCommand = New SqlCommand(sSQL, objConnection) 
    'Parameters 
    objCommand.Parameters.AddWithValue("@KlantID", "%" & Delen(0) & "%") 
    objCommand.Parameters.AddWithValue("@naam", "%" & Delen(1) & "%") 
    objCommand.Parameters.AddWithValue("@straat", "%" & Delen(2) & "%") 
    objCommand.Parameters.AddWithValue("@huisnummer", "%" & Delen(3) & "%") 
    objCommand.Parameters.AddWithValue("@postcode", "%" & Delen(4) & "%") 
    objCommand.Parameters.AddWithValue("@plaats", "%" & Delen(5) & "%") 
    objCommand.Parameters.AddWithValue("@telefoon", "%" & Delen(6) & "%") 

    Dim objAdapter = New SqlDataAdapter(objCommand) 
    Dim objAdap As SqlDataAdapter = New SqlDataAdapter(sSQL, objConnection) 
    objAdapter.Fill(objDt) 
    DataGridI.DataSource = objDt 
    DataGridI.Columns(0).Visible = True 
    objConnection.Close() 
    objConnection.Dispose() 
End Sub 

這是我的代碼來過濾datagridview，它的工作原理，但問題是電話號碼有價值NULL「隱藏」此代碼，我不想這樣做：

http://i.stack.imgur.com/VpXra.png

我怎樣才能解決這個

Answer 1

我不知道你想要做什麼。但如果你試圖避免空單元格，你可以做這樣的事情。

Dim objAdapter = New SqlDataAdapter(objCommand) 
Dim objAdap As SqlDataAdapter = New SqlDataAdapter(sSQL, objConnection 
objAdapter.Fill(objDt) 

Dim i As Integer = objDt.Rows.Count 
For i = 0 To objDt.Rows.Count Step 1 
    If (String.IsNullOrEmpty(objDt.Rows(i)("telefoon"))) Then 
     Dim phValue = "NULL" 
     objDt.Rows(i)("telefoon") = phValue 
    End If 
Next 

DataGridI.DataSource = objDt 
DataGridI.Columns(0).Visible = True 
objConnection.Close() 
objConnection.Dispose()