[الطالب]

سلام


مع امكانيه تغيير جميع الارقام

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    DataGridView1.Columns.Clear()
    Dim dt As New DataTable
    Dim sql As String = "SELECT [code], SUM( SWITCH(" &
                        "VAL([number])>=" & 1 & " AND VAL([number])<=" & 10 & ", " & 500 & "," &
                        "VAL([number])>=" & 11 & " AND VAL([number])<=" & 20 & "," & 700 & "," &
                        "VAL([number])>=" & 21 & " and VAL([number])<=" & 30 & ", " & 1000 &
                        ")) AS [total] FROM [Table1] GROUP BY [code]"
    Dim c = New OleDb.OleDbDataAdapter(Sql, My.Settings.Database2ConnectionString).Fill(dt)
    DataGridView1.DataSource = dt
End Sub

موفقين