WebRessurs.no - Webprogrammering og ressurs innen ASP, ASP.NET, PHP, SQL, HTML, CSS, Javascript, XML, C#, VB, Flash mm.

KODE EKSEMPLER

ASP.net (199)

ASP 3.0 (111)

PHP (30)

HTML (66)

SQL (89)

CSS (46)

XML (7)

JavaScript (78)

Diverse kode (13)

ARTIKLER / RESSURSER

Programmering (22)

System og drift (15)

Trafikk og inntekt (11)

Guider og tips (22)

Nyttig lesestoff (23)

Web forum (604)

Link galleri (565)

KURS / TUTORIALS

ASP.NET kurs(5)

CSS kurs (2)

JQuery kurs (2)

FILM / MEDIA

Øk trafikken (8)

Facebook App. (4)

Microsoft CEO (6)

GRATIS SOFTWARE

Server & web

Internett & epost

Systemverktøy

Sikkerhet

Fildeling

Lyd & media

Diverse software

TJENESTER

Domenesalg

Metagenerator

Websikre farger

WebMail

ANNET

Bli medlem!

Siste innlegg

Gjestebok

Tips en venn

Kontakt oss

Forsiden

INTERNETT HASTIGHET

Vise detaljinfo om en kunde ved hjelp av Item Command

av Øyvind A. Isaksen

Ved hjelp av ItemCommand kan man feks vise detaljinfo om en valgt kunde. I dette eksempelet har vi en kundeliste. Når du klikker på knappen til høyre for en kunde, vil kontaktpersonen for denne kunden vises i toppen av lista/tabellen.

-----------------------------------------
Code Behind fila "firmainfo.aspx.vb"
-----------------------------------------

Imports System.Data.SqlClient

Public Class firmainfo
Inherits System.Web.UI.Page
Protected WithEvents lblVisKontaktPerson As System.Web.UI.WebControls.Label
Protected WithEvents dtgKunder As System.Web.UI.WebControls.DataGrid

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
bindKunder()
End If
End Sub

Private Sub bindKunder()

Dim SQL As String = "select CustomerID, CompanyName, ContactName, address, city from Customers"
Dim conn As New SqlConnection(variables.ConnString)
Dim cmd As New SqlCommand(SQL, conn)

Dim DS As New DataSet()
Dim DA As New SqlDataAdapter(cmd)

DA.Fill(DS, "virKunder")

Me.dtgKunder.DataSource = DS.Tables("virKunder")
Me.dtgKunder.DataBind()

End Sub

Private Sub dtgKunder_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dtgKunder.ItemCommand

Dim KommandoNavn As String = e.CommandName

If KommandoNavn = "cmdVisKontakt" Then
Me.lblVisKontaktPerson.Text = "Kontaktpersonen heter: <b>" & e.Item.Cells(0).Text & "</b>"
End If

End Sub

End Class

-----------------------------------------
ASPX-fila "firmainfo.aspx"
-----------------------------------------

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="firmainfo.aspx.vb" Inherits="kursdag2.firmainfo"%>
<HTML>
<body>
<form id="Form1" method="post" runat="server">

<asp:Label id="lblVisKontaktPerson" runat="server" />
<asp:DataGrid id="dtgKunder" runat="server" AutoGenerateColumns="False">

<Columns>
<asp:BoundColumn Visible="False" DataField="ContactName" HeaderText="Kontaktperson"></asp:BoundColumn>
<asp:BoundColumn Visible="True" DataField="CompanyName" HeaderText="Firma"></asp:BoundColumn>
<asp:BoundColumn Visible="True" DataField="Address" HeaderText="Adresse"></asp:BoundColumn>
<asp:BoundColumn Visible="True" DataField="City" HeaderText="By"></asp:BoundColumn>
<asp:TemplateColumn HeaderText="Klikk">
<ItemTemplate>
<asp:Button Runat="server" id="btnVisKontakt" Text="Vis Kontaktperson" CommandName="cmdVisKontakt" />
</ItemTemplate>
</asp:TemplateColumn>
</Columns>

</asp:DataGrid>
</form>
</body>
</HTML>

WebRessurs.no er utviklet og drives av SoftMaker
Sett som startside: [ ]. Bokmerk denne siden: [ klikk ]. Sitemap. http://twitter.com/webressurs_no/. Antall brukersesjoner: 14122614.
Copyright WebRessurs.no © 2003 - 2018