refresh performance in datagrid - big problem

[sp]

Hello

I have a problem with the refresh performance in datagrid –

when datagrid is being shown it is so slow that I can see one by one
cells is drawn

-datagrid contains about 35x40 of cells - they are generated through the
odswierz_frekfe ncje() function (listed below)-

-other datagrid – showing data from datasets are ok

-I suppose I have made some mistakes, could you give me a hint? which?
Sorry for crosspost!
Public Sub odswierz_frekfe ncje()

If status = True Then

' Me.DataGridView 1.BeginEdit(Fal se)

Dim miesiac, rok, liczba_dni As Integer

miesiac = Me.DateTimePick er1.Value.Month

rok = Me.DateTimePick er1.Value.Year

If miesiac = 1 Or miesiac = 3 Or miesiac = 5 Or miesiac = 7
Or miesiac = 8 Or miesiac = 10 Or miesiac = 12 Then

liczba_dni = 31

End If

If miesiac = 4 Or miesiac = 6 Or miesiac = 9 Or miesiac =
11 Then

liczba_dni = 30

End If

If miesiac = 2 And rok / 4 <Math.Floor(r ok / 4) Then

liczba_dni = 28

End If

If miesiac = 2 And rok / 4 = Math.Floor(rok / 4) Then

liczba_dni = 29

End If

Dim id_klasy, id_ucznia, i, j, liczba_ocen As Integer

'Dim pozycje() = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

Dim buttonColumn As New DataGridViewBut tonColumn

With buttonColumn

.HeaderText = "Dodaj:"

.Name = "dodaj"

.Text = "Dodaj:"

' Use the Text property for the button text for all
cells rather

' than using each cell's value as the text for its own
button.

.UseColumnTextF orButtonValue = True

End With



id_klasy = klasa.SelectedV alue.row.id_kla sy

With DataGridView1

.Rows.Clear()

.Columns.Clear( )

.Columns.Add("n r_dziennik", "Numer w dzienniku")

.Columns("nr_dz iennik").Defaul tCellStyle.Font = New
Font("Courier", 12, FontStyle.Bold, GraphicsUnit.Pi xel)

.Columns("nr_dz iennik").Width = 50

.Columns("nr_dz iennik").AutoSi zeMode =
DataGridViewAut oSizeColumnMode .None

.Columns("nr_dz iennik").SortMo de =
DataGridViewCol umnSortMode.Not Sortable

.Columns.Add("u czen", "uczen")

.Columns("uczen ").AutoSize Mode =
DataGridViewAut oSizeColumnMode .AllCells

.Columns("uczen ").DefaultCellS tyle.Font = New
Font("Verdana", 12, FontStyle.Under line, GraphicsUnit.Pi xel)

.Columns("uczen ").DefaultCellS tyle.Alignment =
DataGridViewCon tentAlignment.M iddleLeft

.Columns("uczen ").SortMode =
DataGridViewCol umnSortMode.Not Sortable

.Columns.Add("i d_ucznia", "id ucznia")

.Columns("id_uc znia").Visible = False

.Columns("id_uc znia").SortMode =
DataGridViewCol umnSortMode.Not Sortable

.Columns.Add("i d_klasy", "id klasy")

.Columns("id_kl asy").Visible = False

.Columns("id_kl asy").SortMode =
DataGridViewCol umnSortMode.Not Sortable

.Columns.Add(bu ttonColumn)

.Columns("dodaj ").Visible = False

.Columns("dodaj ").SortMode =
DataGridViewCol umnSortMode.Not Sortable

.Rows.Add()

.Rows(0).Cells( 0).ReadOnly = True

.Rows(0).Cells( 1).ReadOnly = True

.Rows(0).Cells( 2).ReadOnly = True

.Rows(0).Cells( 3).ReadOnly = True

For j = 1 To liczba_dni

.Columns.Add(St r(j), Str(j))

.Columns(Str(j) ).Width = 28

.Columns(Str(j) ).DefaultCellSt yle.Alignment =
DataGridViewCon tentAlignment.M iddleCenter

.Columns(Str(j) ).SortMode =
DataGridViewCol umnSortMode.Not Sortable

.Rows(0).Cells( j + 4).Style.BackCo lor =
My.Settings.Ite m("dtyg_B_" + Trim(Str(Weekda y(Str(miesiac) + "/" +
Str(j) + "/" + Str(rok)))))

.Rows(0).Cells( j + 4).Style.ForeCo lor =
My.Settings.Ite m("dtyg_F_" + Trim(Str(Weekda y(Str(miesiac) + "/" +
Str(j) + "/" + Str(rok)))))

.Rows(0).Cells( j + 4).Value =
My.Settings.Ite m("dtyg_" + Trim(Str(Weekda y(Str(miesiac) + "/" + Str(j)
+ "/" + Str(rok)))))

Next

End With

vuczniowieBindi ngSource.Filter = "id_klasy=' " +
Str(id_klasy) + "'"

vuczniowieBindi ngSource.Sort = "nr_dzienni k"

liczba_ocen = 0

Try
Me.Pobierz_frek fencjeTableAdap ter.Fill(Me.Bli zej_szkolyDataS et.pobierz_frek fencje,
New System.Nullable (Of Integer)(CType( id_klasy, Integer)), New
System.Nullable (Of Integer)(CType( miesiac, Integer)), New
System.Nullable (Of Integer)(CType( rok, Integer)))

Catch ex As System.Exceptio n

blad.pokaz(ex.M essage)

End Try

For i = 0 To vuczniowieBindi ngSource.Count - 1

id_ucznia = vuczniowieBindi ngSource.Item(i ).row.id_ucznia

With DataGridView1

.Rows.Add()

.Rows(i + 1).Cells(0).Val ue =
vuczniowieBindi ngSource.Item(i ).row.nr_dzienn ik

.Rows(i + 1).Cells(1).Val ue =
vuczniowieBindi ngSource.Item(i ).row.uczen

.Rows(i + 1).Cells(2).Val ue = id_ucznia

.Rows(i + 1).Cells(3).Val ue = id_klasy

End With

'MsgBox(Pobierz _ocenyBindingSo urce.Count)

Me.frekfencjaBi ndingSource1.Fi lter = "id_ucznia= '" +
Str(id_ucznia) + "'"

For j = 0 To Me.frekfencjaBi ndingSource1.Co unt - 1

With frekfencjaBindi ngSource1.Item( j).row

If .spoznienie = True Then

DataGridView1.R ows(i + 1).Cells(.liczb a_dni
+ 4).Value = "S"

If .status 0 Then

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor =
My.Settings.fre k_spoznienie_po szlo

Else

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor = My.Settings.fre k_spoznienie

End If

Else

If .ilosc_godzin 0 Then

Try

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Value += .ilosc_godzin

Catch ex As Exception

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Value = .ilosc_godzin

End Try

Else

DataGridView1.R ows(i + 1).Cells(.liczb a_dni
+ 4).Value = "X"

End If

If .usprawiedliwio na = True Then

If .status 0 Then

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor = My.Settings.fre k_nobecny_poszl o

Else

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor = My.Settings.fre k_nobecny

End If

Else

If .status 0 Then

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor = My.Settings.fre k_nnobecny_posz lo

Else

DataGridView1.R ows(i +
1).Cells(.liczb a_dni + 4).Style.BackCo lor = My.Settings.fre k_nnobecny

End If

End If

End If



End With

Next

Next

id_ucznia = -1

Try


Me.Pobierz_frek fencje_txtTable Adapter.Fill(Me .Blizej_szkolyD ataSet.pobierz_ frekfencje_txt,
New System.Nullable (Of Integer)(CType( id_ucznia, Integer)), miesiac, rok)

Catch ex As System.Exceptio n

blad.pokaz(ex.M essage)

End Try

Me.DataGridView 1.Visible = True

End If

End Sub

[Jeffrey Tan[MSFT]]

Hi,

I have added a reply to you in microsoft.publi c.dotnet.langua ges.vb
newsgroup, please check it there. Thanks.

Best regards,
Jeffrey Tan
Microsoft Online Community Support
=============== =============== =============== =====
When responding to posts, please "Reply to Group" via your newsreader so
that others may learn and benefit from your issue.
=============== =============== =============== =====
This posting is provided "AS IS" with no warranties, and confers no rights.