- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列表项目动态增加(已上传示例) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2292)
-- 发布时间：2009/4/5 10:29:00
-- 列表项目动态增加(已上传示例)
如下图:当前列表项目中没有的项目,可以手动输入,如"技校",在手动输入后,第二次打开该列表项目"技校"会出现在列表项目中....我记得好象某个软件有这样的功能...狐表能实现吗?
相当于动态增加哦.
此主题相关图片如下：001.jpg
来个简单点的示例....
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态增加列表项目.table |
此主题相关图片如下：001.gif
[此贴子已经被作者于2009-4-5 11:23:33编辑过]
-- 发布时间：2009/4/5 10:42:00
--
这个再简单不过了，你自己先想想做做。
-- 发布时间：2009/4/5 10:44:00
--
以下是引用狐狸爸爸在2009-4-5 10:42:00的发言：
这个再简单不过了，你自己先想想做做。
这个再简单不过了，你自己先想想做做。
有空我做个示例上来...
-- 发布时间：2009/4/5 11:08:00
--
来个简单的......在一楼...[此贴子已经被作者于2009-4-5 11:19:26编辑过]
-- 发布时间：2009/4/5 11:09:00
--
项目属性currentchanged事件代码：
If Maintable.Name = "B表" Then
Dim Items As String
Dim lst As List(Of String) = DataTables("A表").GetuniqueValues("","责任人列")
For Each Item As String In Lst
Items = Items & "|" & Item
Next
Tables("B表").Cols("责任人列").ComboList = Items
End If
以上是B表引用A表，也可以引用本表本列。
-- 发布时间：2009/4/5 11:16:00
--
不错！很实用！~
-- 发布时间：2009/4/5 11:43:00
--
以下是引用实话实说在2009-4-5 11:09:00的发言：
项目属性currentchanged事件代码：
If Maintable.Name = "B表" Then
Dim Items As String
Dim lst As List(Of String) = DataTables("A表").GetuniqueValues("","责任人列")
For Each Item As String In Lst
Items = Items & "|" & Item
Next
Tables("B表").Cols("责任人列").ComboList = Items
End If
以上是B表引用A表，也可以引用本表本列。
你的代码似乎与我提的要求不太一样....
-- 发布时间：2009/4/6 0:19:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.rar |
-- 发布时间：2009/4/6 8:29:00
--
精简....
If e.Col.Name = "学历" Then
e.Col.Combolist = DataTables("表A").GetComboListString("学历")
End If
-- 发布时间：2009/4/6 9:15:00
--
程斑的这个估计离实用还有点差距，因为大部分的COMBOLIST取自于本列，如果本列为空，那下拉列表岂不是为空？