| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这代码能否实现，表某列自定义项目 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65320) |
| -- 作者：jhq1989 -- 发布时间：2015/3/13 16:41:00 -- 这代码能否实现，表某列自定义项目 Dim str As String = "" For Each dt As DataTable In DataTables str &= dt.Name & "|" Next Dim a As DataTable("角色权限") In DataTables e.Col.OpenDropDown("str") |
| -- 作者：jhq1989 -- 发布时间：2015/3/13 16:45:00 -- 求专家解答
|
| -- 作者：jialihaha -- 发布时间：2015/3/13 16:48:00 -- 你想实现什么效果？ |
| -- 作者：Bin -- 发布时间：2015/3/13 16:48:00 -- e.col.ComboList=str |
| -- 作者：Bin -- 发布时间：2015/3/13 16:49:00 -- 关键还要看你代码写着哪里? Dim a As DataTable("角色权限") In DataTables 这句代码语法也不对
|
| -- 作者：jhq1989 -- 发布时间：2015/3/13 16:49:00 -- 就是某列出现下拉选项，但里面的内荣是自动获取的 |
| -- 作者：jhq1989 -- 发布时间：2015/3/13 16:50:00 -- 写在 prepareEdit |
| -- 作者：Bin -- 发布时间：2015/3/13 16:51:00 -- 写到ALterOpenProject事件去吧 Dim str As String = "" For Each dt As DataTable In DataTables str &= dt.Name & "|" Next tables("表名").Cols("列名").ComboList=str
|
| -- 作者：jhq1989 -- 发布时间：2015/3/13 16:52:00 -- 好 |