|
Tak kod vypada nasledovne,bohuzel stale problem s jednou veci. Vypis default.aspx
<form id="form1" runat="server">
<div>
<br />
<br />
<asp:GridView ID="GvEmployee" runat="server" ShowFooter="True">
</asp:GridView>
<br />
<br />
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br />
<br />
<br />
<br />
</div>
</form>
Vypis default.aspx.vb
Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim con As SqlConnection
Dim ada As SqlDataAdapter
'Dim dst As DataSet
Dim dst As DataTable
con = New SqlConnection("Data Source=MICHAL-FUJITSU\SQLEXPRESS;Initial Catalog=demo;Integrated Security=True")
ada = New SqlDataAdapter("select * from Zaci", con)
'dst = New DataSet
dst = New DataTable
con.Open()
'ada.Fill(dst, "Zaci")
ada.Fill(dst)
con.Close()
dst.Columns.Add(New DataColumn(("Price"), GetType(Single)))
'dst.Rows.Add()
Dim duData As New DataView(dst)
'gvEmployee.DataSource = dst.Tables("Zaci")
'gvEmployee.DataSource = dst.DefaultView
duData.RowFilter = "Jmeno = 'Petr'"
GvEmployee.DataSource = duData
GvEmployee.DataBind()
TextBox1.Text = GvEmployee.Rows.Count
Dim soucet As Integer = 0
For i As Integer = 0 To GvEmployee.Rows.Count - 1 'projít všechny řádky
If GvEmployee.Rows(i).RowType = DataControlRowType.DataRow Then 'pouze pokud to je řádek s daty, nechceme záhlaví ani zápatí
soucet += CInt(GvEmployee.Rows(i).DataItem("IdZak")) 'přičteme do součtu hodnotu z každého řádku ze druhého sloupce
End If
Next
GvEmployee.FooterRow.Cells(0).Text = "Celkový počet:"
GvEmployee.FooterRow.Cells(5).Text = soucet
End Sub
End Class
Pokud spustim tak mam chybu s popisem: Objektová proměnná nebo proměnná bloku With nebyla nastavena. Popis: Při provádění aktuálního webového požadavku došlo k neošetřené výjimce. Další informace o chybě a o jejím původu v kódu naleznete v trasování zásobníku. Podrobnosti o výjimce: System.NullReferenceException: Objektová proměnná nebo proměnná bloku With nebyla nastavena. Zdrojová chyba: Řádek 61: For i As Integer = 0 To GvEmployee.Rows.Count - 1 'projít všechny řádky Řádek 62: If GvEmployee.Rows(i).RowType = DataControlRowType.DataRow Then 'pouze pokud to je řádek s daty, nechceme záhlaví ani zápatí Řádek 63: soucet += CInt(GvEmployee.Rows(i).DataItem("IdZak")) 'přičteme do součtu hodnotu z každého řádku ze druhého sloupce Řádek 64: End If Řádek 65: Next Nechapu v cem je problem kdyz v databazi mam sloupec s timto nazvem IdTrida, ktery je typu int.
|