(03-09-19, 09:32 PM)سعود كتب : بالعادة يظهر رسالة خطأ ان لم يجد قيمة الا اذا عالجت رسالة الخطأ بأي طريقة.
تحقق من الحقل IF ISDBNUL
قبل الاسناد وعند بداية الحدث افرغ المحتوى سواء لمربع نص او غيره.

(03-09-19, 09:39 PM)سعود كتب :

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