[浏览完整版]
标题：列表项目动态增加(已上传示例)
1楼
菜鸟foxtable 发表于：2009/4/5 10:29:00如下图:当前列表项目中没有的项目,可以手动输入,如"技校",在手动输入后,第二次打开该列表项目"技校"会出现在列表项目中....我记得好象某个软件有这样的功能...狐表能实现吗?
相当于动态增加哦.
此主题相关图片如下：001.jpg
来个简单点的示例....
此主题相关图片如下：001.gif
相当于动态增加哦.此主题相关图片如下：001.jpg来个简单点的示例....
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态增加列表项目.table |
此主题相关图片如下：001.gif[此贴子已经被作者于2009-4-5 11:23:33编辑过]
2楼
狐狸爸爸 发表于：2009/4/5 10:42:00这个再简单不过了，你自己先想想做做。
3楼
菜鸟foxtable 发表于：2009/4/5 10:44:00以下是引用狐狸爸爸在2009-4-5 10:42:00的发言：
这个再简单不过了，你自己先想想做做。
这个再简单不过了，你自己先想想做做。
有空我做个示例上来...
4楼
菜鸟foxtable 发表于：2009/4/5 11:08:00来个简单的......在一楼...[此贴子已经被作者于2009-4-5 11:19:26编辑过]
5楼
实话实说 发表于：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表，也可以引用本表本列。
6楼
Coder9 发表于：2009/4/5 11:16:00不错！很实用！~
7楼
菜鸟foxtable 发表于：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表，也可以引用本表本列。
你的代码似乎与我提的要求不太一样....
8楼
程兴刚 发表于：2009/4/6 0:19:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目8.rar |
9楼
菜鸟foxtable 发表于：2009/4/6 8:29:00
精简....
If e.Col.Name = "学历" Then
e.Col.Combolist = DataTables("表A").GetComboListString("学历")
End If
10楼
擎天柱 发表于：2009/4/6 9:15:00程斑的这个估计离实用还有点差距，因为大部分的COMBOLIST取自于本列，如果本列为空，那下拉列表岂不是为空？