Foxtable(狐表)用户栏目专家坐堂 → [求助]如何根据表查询结果得到的记录动态生成按钮?


  共有2254人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
lunengcheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2125 威望:0 精华:0 注册:2018/8/13 9:55:00
[求助]如何根据表查询结果得到的记录动态生成按钮?  发帖心情 Post By:2019/1/30 16:07:00 [只看该作者]

各位老师前辈好,我写了下面的代码,想根据查询结果得到的记录动态生成按钮,下面的代码可以动态生成按钮,但是只能生成一个按钮,查询得到的记录结果是有多条记录的,现在查不出什么原因,希望老师能帮忙看一下!

'动态添加语音按钮
Dim ld1 As String
Dim cjr1 As String = User_Name
Dim cmd1 As New SQLCommand
cmd1.CommandText = "S-elect 语音话术标题 From {YW_话术管理语音记录} Where 创建人 = '" & cjr1 & "'"
ld1 = cmd1.ExecuteScalar()
If ld1 <> Nothing Then
    Dim bt As WinForm.Button
    bt = e.Form.CreateControl(ld1, ControlTypeEnum.Button)
    bt.Left = 30
    bt.Top = 30
    bt.Width = 200
    bt.Height = 45
    bt.text = ld1
    e.Form.Controls("TabControl1").Tabpages(0).AddControl(bt) 
End If
[此贴子已经被作者于2019/1/30 16:07:12编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107523 积分:546900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/1/30 17:38:00 [只看该作者]

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

 回到顶部