[سعود]

PHP كود :

if isdbnull(dt.Rows(BindingContext(dt).Position).Item(7))=false then

هنا تسند اي كونترول

else
 اما تفرغ الكونترول او تكتفي بافراغه اول الحدث


end if 


---

لقد لاحظت ان النتيجة هي نفسها
الحل ان تخفي الاداة عند عدم وجود قيمة مخزنة.

---

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & CurDir() & "\db.accdb"
    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If TextBox1.Text.Trim <> "" Then
            Dim sql As String = ""
            sql = "select * from tb tb where tid=" & Val(TextBox1.Text) & " or tname='" & TextBox1.Text & "'"
            Using con As New OleDb.OleDbConnection(str)
                Using cm As New OleDb.OleDbCommand("", con)
                    cm.CommandText = sql
                    If con.State = ConnectionState.Closed Then con.Open()
                    Dim dr As OleDb.OleDbDataReader = cm.ExecuteReader
                    If dr.Read Then
                        If IsDBNull(dr.Item("dob")) = False Then
                            d1.Visible = True
                            d1.Value = dr.Item("dob")
                        Else
                            d1.Visible = False
                        End If
                    End If
                    If con.State = ConnectionState.Open Then con.Close()
                End Using
            End Using
        End If
    End Sub
End Class