[Ghassanff]

السلام عليكم
انا عندي واجهة مبيعات فاتورة (رأس الفاتورة + تفاصيل الفاتورة) والمفروض تفاصيل الفاتورة تظهر بداخل الداتا كريد فيو 
المشكلة الي عندي اريد من اكتب اسم الصنف بحقل الصنف بالداتا كريد فيو يعمل اكمال تلقائي واذا غير موجود يعطيني رسالة ويرسلني لواجهة الاصناف

[asemshahen5]

دروس إنشاء فاتورة مبيعات سريعة .

[Ghassanff]

اشكرك جدا على الرد
لكن اخي محتاج من اكتب بحقل اسم الصنف والموجود اصلا بالداتا كريد فيو يظهرلي الاسم وياحبذا لو اكتب اي مقطع من الاسم واضغط مثلا على زر F5 يظهرلي الاسم او يظهرلي قائمة فيها اقتراحات مشابهه مثل COMBO BOX
علاوة ان الكريد كنترول الي استخدمتها حضرتك بالفيديو لااستطيع ايجادها عندي

وشكرا جزيلا

[asemshahen5]

الاكمال التلقائي بجزء من الكلمه .

[Ghassanfff]

يحفظك الله استاذ عاصم
اذا امكن اكون طماع نفس الموضوع اكدر اعمله بالداتا كريد فيو؟؟
بحيث من اكتب بالسطر الي بداخل الداتا كريد فيو تظهرلي الاقتراحات؟؟

[asemshahen5]

موفق انشاء الله .

[Ghassanff]

استاذ عاصم اتحملني شوية
المطلوب الاكمال التلقائي بجزء من الكلمة بس نطبقه على الداتا كريد فيو فقط بدون تيكست بوكس يعني من اكتب prod يجدلي المقترحات
ومن اكتب oduc من كلمة product يجدلي المقترحات كذلك

[asemshahen5]

انظر الى الفيديو من الاول الى الاخر به ما طلبت لقد شاهدته قبلك و اعجبني و استفدت منه .

و هذا كود عن طريقة استخدم الكود الموجود في الفيديو مع التعديل ليستخدم مع قواعد البيانات .

PHP كود :

   Dim Connect As SqlConnection()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' create connection using ODBC connection'
        Connect = New SqlConnection("Server =(local);database=ALASEMXT;integrated security=true")
        ' query to Database'
        Dim sql As String = "SELECT * FROM as_products"
        ' use dataadapter'
        Dim da As New SqlDataAdapter(sql, Connect)
        ' use dataset'
        Dim ds As New DataSet
        ' open connection'
        Connect.Open()
        da.Fill(ds, "as_products")
        ' set datasource and datamember for a datagridview'
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "as_products"
        ' close dataadapter and connection'
        da.Dispose()
        Connect.Close()
    End Sub
    Private Sub DataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
        Dim tb As New TextBox
        Dim dt As New DataTable
        Dim cmd As New SqlCommand
        Connect.Open()
        cmd.Connection = Connect
        cmd.CommandText = "SELECT productName from as_products"
        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        da.Fill(dt)
        Dim r As DataRow
        For Each r In dt.Rows
            If TypeOf e.Control Is TextBox Then
                tb = e.Control
                tb.AutoCompleteCustomSource.Add(r.Item("productName").ToString)
                tb.AutoCompleteMode = AutoCompleteMode.Suggest
                tb.AutoCompleteSource = AutoCompleteSource.CustomSource
            End If
        Next
        da.Dispose()
        cmd.Dispose()
        Connect.Close()
    End Sub