Resender
Legacy Member
mdat dropdownlists in een gridview te veel van het goede vereisen ben ik voor mijn lidgegevens updaten over een ander lijn gegaan
IK hergebruik de form die ik had voor leden toe te voegen om de gevens up te daten
aan het begin van de pagina komt een dropdownlist met daarin als text lidNummer - LidNaam
& als value de primairy key van de tabel leden
Bij het kiezen van een lid uit den dropdownlist moeten de gegevens dus worden ingevuld in de serie textboxen
IK heb hier vannemorgen al aan gewerkt maar er gebeurd niets bij het event
Kan iemand me helpen
--------------------------------------------------------------------------------------------------
<%@ Page Language="VB" MasterPageFile="~/LCARS.master" Title="Admin leden pagina" %>
<%@ import Namespace="BVC_Site_doodads" %>
<%@ import Namespace="MyGeneration.dOOdads" %>
<%@ import Namespace="System.Data" %>
<script runat="server">
'DataKeyNames
Public Sub LeesRecords()
'Dim rank As Ranken = New Ranken
Dim lid As Leden = New Leden
'If lid.loadAllFromLeden Then
' LedenEditView.DataSource = lid.DefaultView
' LedenEditView.DataBind()
'End If
With lid
.Query.AddResultColumn(.ColumnNames.LidPseudoniem)
.Query.AddResultColumn(.ColumnNames.LidNummer)
.Query.AddResultColumn(.ColumnNames.Nummer)
.Query.AddOrderBy(.ColumnNames.Nummer, WhereParameter.Dir.ASC)
.Query.Load()
End With
'bind to drop-down list
With dllLid
.DataSource = lid.DefaultView
.DataTextField = lid.ColumnNames.LidNummer
.DataValueField = lid.ColumnNames.Nummer
.DataBind()
End With
End Sub
Protected Sub dllLid_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim lid As Leden = New Leden
Dim n As Integer
lid.LoadByPrimaryKey(1)
txtTest.Text = "111"
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'DirectCast(Master, lcars_master).IsAdmin()
DirectCast(Master, lcars_master).TakenMenu(False, False, True, False)
If Not Me.IsPostBack Then
LeesRecords()
End If
End Sub
---------------------------------------------------------------------------------------------------
IK hergebruik de form die ik had voor leden toe te voegen om de gevens up te daten
aan het begin van de pagina komt een dropdownlist met daarin als text lidNummer - LidNaam
& als value de primairy key van de tabel leden
Bij het kiezen van een lid uit den dropdownlist moeten de gegevens dus worden ingevuld in de serie textboxen
IK heb hier vannemorgen al aan gewerkt maar er gebeurd niets bij het event
Kan iemand me helpen
--------------------------------------------------------------------------------------------------
<%@ Page Language="VB" MasterPageFile="~/LCARS.master" Title="Admin leden pagina" %>
<%@ import Namespace="BVC_Site_doodads" %>
<%@ import Namespace="MyGeneration.dOOdads" %>
<%@ import Namespace="System.Data" %>
<script runat="server">
'DataKeyNames
Public Sub LeesRecords()
'Dim rank As Ranken = New Ranken
Dim lid As Leden = New Leden
'If lid.loadAllFromLeden Then
' LedenEditView.DataSource = lid.DefaultView
' LedenEditView.DataBind()
'End If
With lid
.Query.AddResultColumn(.ColumnNames.LidPseudoniem)
.Query.AddResultColumn(.ColumnNames.LidNummer)
.Query.AddResultColumn(.ColumnNames.Nummer)
.Query.AddOrderBy(.ColumnNames.Nummer, WhereParameter.Dir.ASC)
.Query.Load()
End With
'bind to drop-down list
With dllLid
.DataSource = lid.DefaultView
.DataTextField = lid.ColumnNames.LidNummer
.DataValueField = lid.ColumnNames.Nummer
.DataBind()
End With
End Sub
Protected Sub dllLid_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim lid As Leden = New Leden
Dim n As Integer
lid.LoadByPrimaryKey(1)
txtTest.Text = "111"
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
'DirectCast(Master, lcars_master).IsAdmin()
DirectCast(Master, lcars_master).TakenMenu(False, False, True, False)
If Not Me.IsPostBack Then
LeesRecords()
End If
End Sub
---------------------------------------------------------------------------------------------------
)