[求助]动态加载控件绑定出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态加载控件绑定出错

共有2595人关注过本帖树形打印复制链接主题：[求助]动态加载控件绑定出错

2425004926

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：712 积分：5553 威望：0 精华：0 注册：2019/11/14 9:36:00

[求助]动态加载控件绑定出错 发帖心情

Post By：2020/8/26 11:53:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试.zip

Dim cm As WinForm.ComboBox

cm = e.Form.CreateControl("ComboBox" & "+" & Tables("导入资料").Rows(0)("第一列"), ControlTypeEnum.ComboBox)
e.Form.AddControl(cm)

cm.SetBounds(100,30,150,21)

为什么加上以下代码，及绑定的表和列就会出错？

'cm.DisplayMember = "列标题" '设置显示列
'cm.ValueMember = "列标题" '设置取值列
'cm.DataSource = "导入" '列表项目来源的表

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107896 积分：548849 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/8/26 12:08:00 [只看该作者]

换种用法：cm.ComboList = DataTables("导入").GetComboListString("列标题")

2425004926

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：712 积分：5553 威望：0 精华：0 注册：2019/11/14 9:36:00

Post By：2020/8/26 12:18:00 [只看该作者]

因为在组合框后边还增加了一个文本框，组合框选值，自动带出文本框值

If Typeof e.sender Is WinForm.ComboBox Then
    Dim cm As WinForm.ComboBox = e.sender
    Dim dr As DataRow = cm.SelectedItem

    For Each c As Winform.Control In e.Form.Controls
        If Typeof c Is WinForm.textBox Then
            Dim d As WinForm.textBox = c             '必须要定义文本框,否则会出错,Value对应的是文本框,而不是原始控件
            Dim a As String = cm.name.Replace("ComboBox","")
            If d.Name.Contains(a) Then
                d.Value = dr("第二列")
            End If
        End If
    Next
End If

如果用上边的方法，是可以选择，但文本框带出值时会出错

我以前用静态时没有问题，现在想改成动态增加时就出错