主题：[求助]如何根据表查询结果得到的记录动态生成按钮？

Dim cjr1 As String = User_Name

Dim cmd1 As New SQLCommand

cmd1.CommandText = "S-elect 语音话术标题 From {YW_话术管理语音记录} Where 创建人 = '" & cjr1 & "'"

Dim dt As DataTable = cmd1.ExecuteReader()

Dim idx As Integer = 0

For Each dr As DataRow In dt.DataRows

    Dim bt As WinForm.Button

    bt = e.Form.CreateControl(dr("语音话术标题"), ControlTypeEnum.Button)

    bt.Left = 30 + idx*200

    bt.Top = 30

    bt.Width = 200

    bt.Height = 45

    bt.text = dr("语音话术标题")

    e.Form.Controls("TabControl1").Tabpages(0).AddControl(bt)

    idx = idx +1

Next