主题：如何动态生成窗口列表项目

表A列名与列标题不一致，表A列表项目来自表B，表A窗口内如何如何根据控件名称自动获取列表项目？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

嘿嘿，你的代码是根据列名称来查询列表项目的，而你的列表项目却是根据列标题设置的，前后不一，自然无效啊。

正确的：

If e.sender.gettype.name = "ComboBox" Then
    Dim t1 As WinForm.ComboBox = e.Sender
    Dim c1 As Col = t1.BindCol
    Dim dr As DataRow
    dr = DataTables("表B").Find("[项目名称] = '" & c1.Caption & "'")
    If dr IsNot Nothing Then '如果找到的话
        e.Sender.Combolist = dr("列表项目")
    Else
        e.Sender.Combolist = ""
    End If
End If

谢了