【发布时间】:2015-05-18 17:24:45
【问题描述】:
我用这个在 Vb.Net 代码中创建了一个动态按钮
Private Sub getreport()
Using conn As New SqlConnection()
conn.ConnectionString = ConfigurationManager _
.ConnectionStrings("Connectionstring").ConnectionString()
Using cmd As New SqlCommand()
'cmd.CommandText = "SELECT [UserName],[ReportName] FROM [BizView_Dev2].[dbo].[ReportPrivilege] where username = '" & Session("UAuthen") & "'"
cmd.CommandText = "SELECT * from report"
cmd.Connection = conn
conn.Open()
Using sdr As SqlDataReader = cmd.ExecuteReader()
While sdr.Read()
Dim BtnRepName = New Button
BtnRepName.Style.Add("text-align", "center")
BtnRepName.Style.Add("verticle-align", "middle")
BtnRepName.Style.Add("display", "table-cell")
BtnRepName.Style.Add("margin", "17px")
BtnRepName.Style.Add("border-radius", "0%")
BtnRepName.CssClass = "btn btn-lg btn-scb "
BtnRepName.Width = 300
BtnRepName.Height = 100
AddHandler BtnRepName.Click, AddressOf BtnRepName_Click
BtnRepName.Text = sdr("rep_name").ToString()
PlaceHolder1.Controls.Add(BtnRepName)
End While
End Using
conn.Close()
End Using
End Using
End Sub
但是我不知道如何从每个按钮中获取值,当我单击按钮时,如果我单击生成为“TReport”的按钮,它将从每个按钮中获取一个值,然后它将在这样的文本框中显示 Treport
Private Sub BtnRepName_Click(ByVal sender As Object, ByVal e As EventArgs)
txtrep.text = BtnRepName.text
End Sub
【问题讨论】:
标签: vb.net