[abumuhannadzym]

(07-10-16, 03:46 PM)tifagreet كتب : نضع شرط في جملة الاستعلام الخاص ب da
رجاء وضع كود الحدث كامل و إن شاء الله نقوم بالتصحيح

 Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & SLibro & ";" & " Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"

        Dim dAdapter As New OleDbDataAdapter("Select * From  [" & sHoja & "$]  ", cs)
        Dim datos As New DataSet
        dAdapter.Fill(datos)
        Dim dt As DataTable = datos.Tables(0)

        For i As Integer = 0 To dt.Columns.Count - 1
            dt.Columns(i).ColumnName = dt.Rows(0).Item(i)
        Next
        Dim dr As DataRow = dt.Rows(0)
        dr.Delete()
        With index.DataGridView
            .Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomLeft
            .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(0).Width = 100
            .Columns(1).Width = 100


        End With
        index.DataGridView.DataSource = dt

        For Each rc As DataGridViewRow In index.DataGridView.Rows
            sumc1 = Val(rc.Cells(0).Value) - Val(rc.Cells(1).Value)
            rc.Cells(2).Value = Format(sumc1, "###.##")
        Next