列表项目动态增加(已上传示例) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 列表项目动态增加(已上传示例)

共有26894人关注过本帖树形打印复制链接主题：列表项目动态增加(已上传示例)

菜鸟foxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

列表项目动态增加(已上传示例) 发帖心情

Post By：2009/4/5 10:29:00 [只看该作者]

如下图:当前列表项目中没有的项目,可以手动输入,如"技校",在手动输入后,第二次打开该列表项目"技校"会出现在列表项目中....我记得好象某个软件有这样的功能...狐表能实现吗? 图片点击可在新窗口打开查看

相当于动态增加哦.

此主题相关图片如下：001.jpg

来个简单点的示例....

下载信息 [文件大小：下载次数： ]
点击浏览该文件:动态增加列表项目.table

此主题相关图片如下：001.gif

[此贴子已经被作者于2009-4-5 11:23:33编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/4/5 10:42:00 [只看该作者]

这个再简单不过了，你自己先想想做做。

菜鸟foxtable

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/4/5 10:44:00 [只看该作者]

以下是引用狐狸爸爸在2009-4-5 10:42:00的发言：
这个再简单不过了，你自己先想想做做。

图片点击可在新窗口打开查看有空我做个示例上来...

菜鸟foxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/4/5 11:08:00 [只看该作者]

来个简单的......在一楼...

[此贴子已经被作者于2009-4-5 11:19:26编辑过]

实话实说

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19396 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：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表，也可以引用本表本列。