[求助]自定义录入界面扩展问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用意：要把人员加到各个单位下面去。

要求：（1）分人员时，已经在本单位下增加的人员不显示出来——这个已经做到了。

（2）在选择人员界面里，可以连续添加，意思是这次在txtbox中输入10>复选符合条件的人>添加，然后再在这个txtbox中输入20>复选符合条件的人>添加，而不需要关闭窗口再加——现在就是在这个界面上出了问题。

（3）一个人不能在一个单位里添加多次。——这个也有问题，连续点添加就会把这个人在同一个单位里添加多次。

（4）本来还有一个想法比（2）使用更方便的，就是在txtbox里输入10>复选符合条件的人；再在这个txtbox里输入20>复选符合条件的人；最后点一次添加，就把符合要求的包括10、20的相关人一起加到单位里去，这样避免频繁去点添加，很麻烦。

在帮助里、论坛里也找了一些帖，也试验了多次，不甚理想。

有个帖说是增加一个临时表，但论坛里和帮助里对类似的临时表的内容不太多。

也有一个说是增加一个逻辑列，但我在想可能会导致多人局域网里同时操作的时候，会干扰其他人的使用。因为表是共享的，一个人操作别人可能会错误过滤其他人的数据。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:条件框输入出错.table

请各位狐仙指点。

另外，我以前在论坛里看到有一个帖，是一个窗口里左右两个表，复选左边的数据行>按钮“添加到右边”>右边表中会增加数据；复选右边的数据行>按钮“添加到左边“>左边表中会增加数据。我在想是否可以用类似的方法来实现这种功能，但这个帖找了N久，没找着，哪位记得是哪个帖么？

[此贴子已经被作者于2012-9-19 14:52:14编辑过]

我接触狐表时间不长，一些东西还不是太了解。

已经下载了，正在学习，非常感谢，以后还会继续麻烦各位狐仙。

Post By：2012-9-19 17:46:00 [只看该作者]

呃，楼主，我在你原来的代码里修改了一下。自己看看代码哈。

说明一下，增加了两个临时列，记录操作人和是否选中。

方法很不错，又学了一招——动态加载列，以往对这一部分内容忽略了。

有个小问题，就是在机构选人的的弹出窗口里，如果右键>取消筛选，那么所有的人都会显示出来。这个可如何是好？

我又想用这个筛选功能——有了这个功能，就不用再去输入框里写代码了，直接套用这个功能其实挺爽的，有点象EXCEL里的Ctrl+F，方便。

但我又不想因为这个功能导致不合法的内容因为“取消筛选”而显示出来。

如何解决呢？

[此贴子已经被作者于2012-9-21 11:52:11编辑过]

追问一个并发问题。

假如是局域网应用，共享一个数据库文件。AB两个用户都在本机的客户端上使用系统。

那么A用户正准备把张三加到甲机构里去，此时B用户能不能在本机上也选择张三加到甲机构里去？

本质上来讲，我觉得是否可以理解为：AB两个用户在客户端增加的临时列，是会反映在共享的数据库文件中，还是在本机的客户端里？

此主题相关图片如下：并发的选择问题.png

[此贴子已经被作者于2012-9-21 17:11:45编辑过]

那也就是说，同一条数据，A在操作，B就不能操作？

有什么办法来做到上例所说的AB两个人同时都想把张三加到某一个机构去这种情况————我只是举个例子来说这种情况，可能例子不恰当。

如果不想数据被独占，应当如何操作呢？或者说取消哪些限制条件？

但单用户使用的时候，仍然要满足操作上的方便性。

包括单用户操作时：

（1）分人员时，已经在本单位下增加的人员不显示出来——这个已经做到了。

（2）就是在txtbox里输入10>复选符合条件的人；再在这个txtbox里输入20>复选符合条件的人；最后点一次添加，就把符合要求的包括10、20的相关人一起加到单位里去。————现在也做到了

（3）一个人不能在一个单位里添加多次。——现在也做到了

但A用户操作时，不影响B用户对此业务的操作。——这一点好象不行，因为数据独占

[此贴子已经被作者于2012-9-22 17:24:01编辑过]

仅仅只注释掉 BeforeCheckRow好象不行。

注释掉这一事件代码之后，用户张三进入系统，已经复选的名单，在用户李四进入系统之后仍然处于复选状态。如果李四取消部分复选名单，那张三界面中同样这些取消的名单就处于非选择状态。

这样各个用户互相干扰，不能满足要求。

如果要各个用户互不干扰，在窗口中就不能绑定表？

[此贴子已经被作者于2012-9-27 11:23:17编辑过]

再请教。

就是如果是想用外部数据源的ID，该如何处理？

Dim ids As String

For Each r As Row In Tables("TbOrg.TbOrgUser").Rows

ids = ids & "'" & r("UserCode") & "'," 把它一段改为ids = ids & "'" & r("UserID") & "',"

If ids > "" Then

ids = ids.trim(",")

t.Filter= "Code Not In (" & ids & ") " 把它一段改为t.Filter= ""_Identify Not In (" & ids & ") "

End If

这样运行之后，提示“未找到列 [_Identify]。”

如何使用外部数据库的ID？我看了一下，外部ACCESS数据库的主键也是_Identify

我是这样操作的。先建的内部表，然后把它杂项>toACCESS，然后再外部数据源进来的

是我的错，没有加连接外部数据库的名称。

再试没有报错了。

非常感谢两位。…………

[此贴子已经被作者于2012-9-27 17:17:02编辑过]

主题：[求助]自定义录入界面扩展问题