CODICE VB DELLA PAGINA
codice:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Transactions
Imports System.Net.Mail
Imports System.IO
Imports System.Web.Configuration
Partial Class ravizza_super_admin_it_Nuova_offerta
Inherits System.Web.UI.Page
'Dim pnlTextBox As Panel
Dim pnlDropDownList As Panel
Dim strFields As String = "id"
Public arr(1, 1) As String
Dim i As Integer
Dim elem As Integer
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
If Session("s_utente") = "" Then
End If
se_utente.Value = Session("s_utente")
se_tipo.Value = Session("s_tipo")
SqlDataSource1.SelectCommand = "SELECT CustSupp, CompanyName FROM MA_CustSupp ORDER BY CompanyName"
SqlDataSource2.SelectCommand = "SELECT id, tipo_pag FROM TIPI_PAGAMENTO ORDER BY tipo_pag"
End If
SqlDataSource1.SelectCommand = "SELECT CustSupp, CompanyName FROM MA_CustSupp ORDER BY CompanyName"
SqlDataSource2.SelectCommand = "SELECT id, tipo_pag FROM TIPI_PAGAMENTO ORDER BY tipo_pag"
'Create a Dynamic Panel
pnlDropDownList = New Panel()
pnlDropDownList.ID = "pnlDropDownList"
pnlDropDownList.BorderWidth = 0
pnlDropDownList.Width = 750
Me.blocco2.Controls.Add(pnlDropDownList)
'Create a LinkDynamic Button to Add TextBoxes
Dim btnAddDdl As New LinkButton()
btnAddDdl.ID = "btnAddDdl"
btnAddDdl.Text = "Aggiungi Articolo"
AddHandler btnAddDdl.Click, AddressOf btnAdd_Click
Me.blocco2.Controls.Add(btnAddDdl)
'Recreate Controls
RecreateControls("ddlDynamic", "DropDownList")
End Sub
Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim cnt As Integer = FindOccurence("ddlDynamic")
CreateDropDownList("ddlDynamic-" & Convert.ToString(cnt + 1))
n_articoli.Value = cnt + 1
End Sub
Private Function FindOccurence(ByVal substr As String) As Integer
Dim reqstr As String = Request.Form.ToString()
Return ((reqstr.Length - reqstr.Replace(substr, "").Length) / substr.Length)
End Function
Private Sub RecreateControls(ByVal ctrlPrefix As String, ByVal ctrlType As String)
Dim ctrls As String() = Request.Form.ToString().Split("&"c)
Dim cnt As Integer = FindOccurence(ctrlPrefix)
If cnt > 0 Then
For k As Integer = 1 To cnt
For i As Integer = 0 To ctrls.Length - 1
If ctrls(i).Contains((ctrlPrefix & "-") + k.ToString()) AndAlso Not ctrls(i).Contains("EVENTTARGET") Then
Dim ctrlID As String = ctrls(i).Split("="c)(0)
ctrlID = ctrlID.Replace("ctl00%24MainContent%24Wizard1%24", "")
'ctl00%24MainContent%24Wizard1%24
If ctrlType = "DropDownList" Then
CreateDropDownList(ctrlID)
End If
Exit For
End If
Next
Next
End If
End Sub
Private Sub CreateDropDownList(ByVal ID As String)
Dim lt2 As New Label()
lt2.Text = "<label for='" & ID & "' class='class_left' style='width:150px' >Articolo:</label><label for='listino" & ID & "' class='class_left2' style='width:100px' >Listino:</label><label for='qnt" & ID & "' class='class_left1' style='width:60px' >Quantità:</label><label for='sconto" & ID & "' class='class_left1' style='width:70px' >Sconto %:</label><label for='totale" & ID & "' class='class_left2' >Totale:</label>"
pnlDropDownList.Controls.Add(lt2)
Dim lt3 As New Literal()
lt3.Text = "<br clear='all'>"
pnlDropDownList.Controls.Add(lt3)
Dim ddl As New DropDownList()
ddl.ID = ID
ddl.Items.Add(New ListItem("--Seleziona Articolo--", ""))
Dim SQL As String = "SELECT Item, Description FROM MA_Items ORDER BY Item"
Dim cmd As SqlCommand
cmd = New SqlCommand(SQL, New SqlConnection(ConfigurationManager.ConnectionStrings("dbConnectionString").ToString))
Try
'APRE LA CONNESSIONE
cmd.Connection.Open()
'ESEGUE NLA QUERY, RESTITUISCE UN OGGETTO SqlDataReader
Dim dr As SqlDataReader = (cmd.ExecuteReader(CommandBehavior.CloseConnection))
If dr.HasRows Then
'si sposta ciclicamente attraverso i record e visualizza i valori.
Do While dr.Read
ddl.Items.Add(New ListItem(dr("Description"), dr("Item")))
Loop
End If
dr.Close()
Catch ex As Exception
'messageBox.Show("Riportare il seguente errore al programmatore: ERRORE 0161" & vbCrLf & ex.Message, "Errore sql")
Exit Sub
Finally
cmd.Connection.Close()
End Try
ddl.AutoPostBack = True
AddHandler ddl.SelectedIndexChanged, AddressOf OnSelectedIndexChanged
pnlDropDownList.Controls.Add(ddl)
Dim txt As New TextBox()
txt.ID = "listino" & ID
'txt.Attributes("class") = "class_left2"
txt.AutoPostBack = False
pnlDropDownList.Controls.Add(txt)
txt = New TextBox()
txt.ID = "qnt" & ID
'txt.Attributes("class") = "class_left1"
txt.AutoPostBack = True
AddHandler txt.TextChanged, AddressOf OnTextChanged
pnlDropDownList.Controls.Add(txt)
txt = New TextBox()
txt.ID = "sconto" & ID
'txt.Attributes("class") = "class_left1"
txt.AutoPostBack = True
AddHandler txt.TextChanged, AddressOf OnTextChanged
pnlDropDownList.Controls.Add(txt)
txt = New TextBox()
txt.ID = "totale" & ID
'txt.Attributes("class") = "class_left2"
txt.AutoPostBack = True
AddHandler txt.TextChanged, AddressOf OnTextChanged
pnlDropDownList.Controls.Add(txt)
Dim lt As New Literal()
lt.Text = "<br clear='all'>"
pnlDropDownList.Controls.Add(lt)
End Sub
Protected Sub OnSelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim ddl As DropDownList = DirectCast(sender, DropDownList)
Dim ID As String = ddl.ID
Dim C As Integer
Dim sTmp As String = ""
For C = 0 To Len(ddl.ID)
If IsNumeric(Mid(ddl.ID, C + 1, 1)) Then
sTmp = sTmp & Mid(ddl.ID, C + 1, 1)
End If
Next
ID = sTmp
'listinoddlDynamic-1
Dim txt As TextBox = Wizard1.ActiveStep.FindControl("listinoddlDynamic-" & ID)
Dim txt4 As TextBox = Wizard1.ActiveStep.FindControl("totaleddlDynamic-" & ID)
Dim SQL As String = "Select BasePrice FROM MA_Items WHERE Item='" & ddl.SelectedValue & "'"
Dim cmd As SqlCommand
cmd = New SqlCommand(SQL, New SqlConnection(ConfigurationManager.ConnectionStrings("dbConnectionString").ToString))
Try
'APRE LA CONNESSIONE
cmd.Connection.Open()
'ESEGUE NLA QUERY, RESTITUISCE UN OGGETTO SqlDataReader
Dim dr As SqlDataReader = (cmd.ExecuteReader(CommandBehavior.CloseConnection))
If dr.HasRows Then
'si sposta ciclicamente attraverso i record e visualizza i valori.
Do While dr.Read
txt.Text = dr("BasePrice")
Loop
End If
dr.Close()
Catch ex As Exception
FailureText.Text = ex.Message
Exit Sub
Finally
cmd.Connection.Close()
End Try
End Sub
Protected Sub OnTextChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim txt As TextBox = DirectCast(sender, TextBox)
Dim ID As String = ""
Dim C As Integer
Dim sTmp As String = ""
For C = 0 To Len(txt.ID)
If IsNumeric(Mid(txt.ID, C + 1, 1)) Then
sTmp = sTmp & Mid(txt.ID, C + 1, 1)
End If
Next
ID = sTmp
Dim txt1 As TextBox = Wizard1.ActiveStep.FindControl("listinoddlDynamic-" & ID)
Dim txt2 As TextBox = Wizard1.ActiveStep.FindControl("qntddlDynamic-" & ID)
Dim txt3 As TextBox = Wizard1.ActiveStep.FindControl("scontoddlDynamic-" & ID)
Dim txt4 As TextBox = Wizard1.ActiveStep.FindControl("totaleddlDynamic-" & ID)
Dim listino As Double
Dim qnt As Double
Dim sconto As Double
If IsNumeric(txt1.Text) Then
listino = txt1.Text
Else
listino = 0
End If
If IsNumeric(txt2.Text) Then
qnt = txt2.Text
Else
qnt = 0
End If
If IsNumeric(txt3.Text) Then
sconto = txt3.Text
Else
sconto = 0
End If
txt4.Text = listino * qnt - (((listino * qnt) / 100) * sconto)
End Sub
Sub GetFavoriteNumerOnActiveStepIndex(ByVal sender As Object, ByVal e As EventArgs)
If Wizard1.ActiveStepIndex >= 1 Then
End If
End Sub
End Class
Rispondi quotando
) essere SEMPRE ricreati.
esattamente quello che servirebbe a te se lo facessi a mano.
per capire perchè diavolo non funziona, quando ricrei i controlli a runtime, METTI PURE L'ID AL CONTROLLO anche se (apparentemente) sembra non servire.
Originariamente inviata da pietro09
