Hoe declareer ik in een ASP.NET-webapplicatie een variabele op toepassingsniveau? Deze heb ik nodig om informatie te geven aan de verschillende controls. Of kan ik dit beter op een andere wijze oplossen?
Heeft het soms met Client-server te maken dat dit niet werkt? Ik heb het op de volgende wijze geprobeerd:
Heeft het soms met Client-server te maken dat dit niet werkt? Ik heb het op de volgende wijze geprobeerd:
Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| 'declareren variabele sOpslaan. Dim sOpslaan As String 'Als op cmdWijzig wordt geklikt krijgt sOplaan de waarde "Wijzig" mee. Private Sub cmdWijzig_Click(ByVal sender As _ System.Object, ByVal e As System.EventArgs) Handles cmdWijzig.Click sOpslaan = "Wijzig" End Sub 'Als op cmdNieuw wordt geklikt krijgt sOplaan de waarde "Nieuw" mee. Private Sub cmdNieuw_Click(ByVal sender As _ System.Object, ByVal e As System.EventArgs) Handles cmdNieuw.Click sOpslaan = "Nieuw" End Sub 'Als hierna vervolgens op cmdOpslaan wordt geklikt kijkt het programma via 'de waarde van sOpslaan of er op cmdWijzig of cmdNieuw is geklikt. Private Sub cmdOpslaan_Click(ByVal sender As _ System.Object, ByVal e As System.EventArgs) Handles cmdOpslaan.Click If sOpslaan = "Wijzig" Then daDebiteuren.Fill(DsDebiteuren1) Dim dt As DataTable = DsDebiteuren1.Tables("Debiteuren") Dim dr As DataRow() = dt.Select("DebID = '" + " & _ "txtDebID.Text.ToString + "'") dr(0)("Naam") = txtNaam.Text dr(0)("Adres") = txtAdres.Text daDebiteuren.Update(dr) DataBind() ElseIf sOpslaan = "Nieuw" Then daDebiteuren.Fill(DsDebiteuren1) Dim dt As DataTable = DsDebiteuren1.Tables("Debiteuren") Dim dr As DataRow = dt.NewRow() dr("Naam") = txtNaam.Text dr("Adres") = txtAdres.Text daDebiteuren.Update(DsDebiteuren1) DataBind() End If End Sub |