[فراس الغزي]

(18-08-18, 01:41 AM)elgokr كتب :

حتى اقدر افيدك وضح اولاً اى طريقة تقوم باستخدامها فى البحث

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

وثانياً وضح اين تستخدم الكود فى اى حدث بضبط

لانك اذا استخدمت حدث تحديد الكمبو مع استخدام فلتر الداتا جريد 

لن يحدث معك اى مشكلة فى كل مرة تقوم به فى تحديد اسم المندوب

تحياتى لك

وتمنياتى لك التوفيق

اخي العزيز  

  انا استخدمت  هذا الكود  في  الموديل  

كود :

Public Sub load_sale_viewsOne(ByVal namee As String, ByVal saledate As Date, ByVal saledate2 As Date)
        dt_sal_view.Clear()
        Dim cmd As New SqlCommand("select * from View_2 where MN_NAME Like %@namee% and SALEDATE>=@saledate and SALEDATE<=@saledate2 ", SqlConn)
        cmd.Parameters.Add("MN_NAME", SqlDbType.NVarChar).Value = namee
        cmd.Parameters.Add("saledate", SqlDbType.Date).Value = saledate
        cmd.Parameters.Add("saledate2", SqlDbType.Date).Value = saledate2
        dt_sal_view.Load(cmd.ExecuteReader)
        cmd = Nothing
    End Sub

واستخدمت هذا الكود في الفورم الخاص بعرض البيانات  

كود :

Public Class FRM_MANDOB_MONY

    Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click
        Close()

    End Sub

    Private Sub SimpleButton4_Click(sender As Object, e As EventArgs) Handles SimpleButton4.Click
        load_sale_views(D1.Value, D2.Value)
        total_sales()
        'load_sale_viewsOne(D1.Value, D2.Value, Name)
    End Sub

    Private Sub FRM_MANDOB_MONY_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        load_sale_views(D1.Value, D2.Value)
        DataGridView1.DataSource = dt_sal_view
        Load_MANDOB(CMB_MANDOB, Me)
        total_sales()
        'load_sale_viewsOne(D1.Value, D2.Value, Name)


    End Sub

    Private Sub D1_ValueChanged(sender As Object, e As EventArgs) Handles D1.ValueChanged
        load_sale_views(D1.Value, D2.Value)
        total_sales()
    End Sub


    Public Sub total_sales()
        Dim sum As Double
        For s As Integer = 0 To DataGridView1.RowCount - 1
            sum = sum + DataGridView1.Item("TOTAL", s).Value

        Next
        TXT_SUM_TOTAL.Text = sum

    End Sub

    Private Sub D2_ValueChanged(sender As Object, e As EventArgs) Handles D2.ValueChanged
        load_sale_views(D1.Value, D2.Value)
        total_sales()
    End Sub
    Sub GET_MANDOB()
        load_sale_views_MANDOB(D1.Value, D2.Value, CMB_MANDOB.SelectedItem)
        DataGridView1.DataSource = dt_sal_view
    End Sub
    Sub getm()
        Dim dv As DataView = DirectCast(DataGridView1.DataSource, DataTable).DefaultView

        dv.RowFilter = "MN_NAME like '%" + CMB_MANDOB.SelectedValue + "%'"
        DataGridView1.DataSource = dv
    End Sub
    Private Sub CMB_MANDOB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMB_MANDOB.SelectedIndexChanged
        getm()
    End Sub


    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick



        Dim dv As DataView = DirectCast(DataGridView1.DataSource, DataTable).DefaultView

        dv.RowFilter = "MN_NAME like '%" + TextBox1.Text + "%'"
        DataGridView1.DataSource = dv
    End Sub

    'Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    '        Dim dv As DataView = DirectCast(DataGridView1.DataSource, DataTable).DefaultView
    '        dv.RowFilter = "MN_NAME like '%" + TextBox1.Text + "%'"
    '        DataGridView1.DataSource = dv



    'End Sub
End Class