你好,我有這個代碼的問題...我從我的數據庫ID和名稱,我添加每一行在一個新的RadioButton,但我怎麼可以把ID與msgbox onclick?代碼是這樣的:VB.net動態單選按鈕添加事件onclick
Imports MySql.Data.MySqlClient
Public Class Order_info
Dim conn As New MySqlConnection
Dim sqlcommand As New MySqlCommand
Dim regDate As Date = Date.Now()
Dim strDate As String = regDate.ToString("dd MMMM yyyy")
Dim dbdate As String = regDate.ToString("yyyy-M-dd")
Dim RButton As RadioButton
Private Sub Order_info_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label1.Text = strDate
connect()
End Sub
Private Sub connect()
If Not conn Is Nothing Then conn.Close()
conn.ConnectionString = String.Format("server={0};user id={1};
password={2};database={3}; pooling=false",
My.Resources.DatabaseIP,
My.Resources.DatabaseUsername,
My.Resources.DatabasePassword,
My.Resources.DatabaseName)
Try
conn.Open()
sqlcommand.Connection = conn
Dim stm As String = "SELECT o.id,s.name,o.status FROM orders o INNER JOIN supplier s ON s.id = o.id_supplier where datetim = '" + dbdate + "'"
Dim cmd As MySqlCommand = New MySqlCommand(stm, conn)
Dim reader As MySqlDataReader = cmd.ExecuteReader()
Dim x As Integer = 25
Dim y, p As Integer
Do While reader.Read()
RButton = New RadioButton
RButton.Name = "RadioButton" + x.ToString
RButton.Text = reader.GetString(1)
RButton.Top = y
y += x
p += 1
If (reader.GetInt32(2) = 1) Then
RButton.BackColor = Color.LightGreen
End If
Panel1.Controls.Add(RButton)
Loop
reader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
conn.Close()
End Sub
End Class
你要處理的'RadioButton'點擊或確定'RadioButton'是在不同的按鈕,選擇點擊? – shf301