Dobrý den, pokouším se napsat jeden program. Mám v něm listbox a datagridview. Funguje to tak, že v listboxu si kliknu na příslušný řádek a potom se mi zobrazí v datagridviewu příslušná tabulka. Tohle řeším takto:
Select Case výběr
Case "1"
DataGridView1.DataSource = BindingSource1
Case "2"
DatGridVeiw1.DataSource = Bindingsource2
...
Dále mám tlačítko, pomocí které vypočítá průměr čísel z daného sloupce. Toto řeším pomocí funkce:
Function CJPrumer() As Double
Dim cj As Double
Dim pct As Double = Form1.DataGridView1.RowCount - 1
Dim clk As Double
For i = 0 To Form1.DataGridView1.RowCount - 1
cj = Form1.DataGridView1.Rows(i).Cells("Český jazyk").Value()
Next
clk = cj / pct
Return clk
End Function
Cyklus se v pořádku provede, nehodí to žádnou chybovou hlášku, ale výsledek je vždy 0. Můžete mi prosím někdo poradit, co opravit, aby mi to pořád nedávalo 0? Děkuji za odpověď
|