[الطالب]

سلام

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    DataGridView1.Columns.Clear()
    Using dt As New DataTable
        Dim c = New OleDb.OleDbDataAdapter("SELECT [code],SUM((FIX([number]/10)+1)*10) AS [total] FROM [Table1] GROUP BY [code]", My.Settings.Database2ConnectionString).Fill(dt)
        DataGridView1.DataSource = dt
    End Using
End Sub

موفقين