- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]夸表录入不重复值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153673)
-- 发布时间：2020/8/19 10:26:00
-- [求助]夸表录入不重复值
表A第一列，从表B第一列不重复值中，下拉选择录入 中国 后，
表A第一列，含有 中国，下一行下拉选择时，表B第一列不重复值中，排除 中国，也就是 表A 已有值，求助
-- 发布时间：2020/8/19 10:34:00
--
表A事件PrepareEdit中。
例如：
If e.IsFocusCell Then \'如果是焦点所在单元格
If e.Col.Name = "第一列" Then
dim s as string = e.table.DataTable.GetComboListString("第一列")
if s > "" then
e.Col.Combolist = DataTables("表B").GetComboListString("第一列", "[第一列] not in(\'" & s.replace("|","\',\'") & "\'")
else
e.Col.Combolist = DataTables("表B").GetComboListString("第一列")
end if
End If
End If
-- 发布时间：2020/8/19 10:45:00
-- 回复：（有点蓝）表A事件PrepareEdit中。例如：If&nbs...
窗口，组合框，下拉选项，实现的代码，求助
以前论坛上有这个项目，找不到了
-- 发布时间：2020/8/19 10:47:00
--
用法类似：http://www.foxtable.com/webhelp/topics/1523.htm，结合2楼的逻辑即可
-- 发布时间：2020/8/19 11:12:00
-- 回复：（有点蓝）用法类似：http://www.foxtable.com/...
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
Dim s As String = DataTables("表A").GetComboListString("第一列")
cmb.ComboList = DataTables("表B").GetComboListString("第一列", "[第一列] not in(\'" & s.replace("|","\',\'") & "\')") 求助，修改为表B table当前显示行提取不重复值，不要从后台表提取
[此贴子已经被作者于2020/8/19 11:15:15编辑过]
-- 发布时间：2020/8/19 11:20:00
--
没看懂，请上传实例说明
-- 发布时间：2020/8/19 11:27:00
-- 回复：（有点蓝）没看懂，请上传实例说明
DataTables("表B").GetComboListString("第一列" 是从后台表全部提取不重复值，不是想要的效果，是只从 表B当前显示的第一列所以行提取不重复
公司网络不方便上传项目
-- 发布时间：2020/8/19 11:32:00
--
cmb.ComboList = DataTables("表B").GetComboListString("第一列", "[第一列] not in(\'" & s.replace("|","\',\'") & "\')" & IIF(Tables("表B").filter > ""," and " & Tables("表B").filter,""))
-- 发布时间：2020/8/19 12:01:00
-- 回复：（有点蓝）cmb.ComboList = DataTables("表B")....
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上楼代码没效果.foxdb |
坛主，上楼代码下拉显示为空
-- 发布时间：2020/8/19 12:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上楼代码没效果.zip |