- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何动态生成窗口列表项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2711)
-- 发布时间：2009/5/7 11:12:00
-- 如何动态生成窗口列表项目
表A列名与列标题不一致，表A列表项目来自表B，表A窗口内如何如何根据控件名称自动获取列表项目？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2009/5/7 11:16:00
--
嘿嘿，你的代码是根据列名称来查询列表项目的，而你的列表项目却是根据列标题设置的，前后不一，自然无效啊。
正确的：
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
[此贴子已经被作者于2009-5-7 11:21:00编辑过]
-- 发布时间：2009/5/7 11:39:00
--
谢了
