- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]重复输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120595)
-- 发布时间：2018/6/20 10:54:00
-- [求助]重复输入
此主题相关图片如下：2.png
RT··我设置了·产品编号·和子编号·不允许重复···现在输入001 005··在输入001还是能输入·请问老师·如何实现·禁止输入·
另外如果批号设定是1-100··子编号下拉框·除了1-100·外别的就禁止勾选·请问如何实现·
[此贴子已经被作者于2018/6/20 10:55:02编辑过]
-- 发布时间：2018/6/20 10:55:00
--
参考
http://www.foxtable.com/webhelp/scr/2481.htm
-- 发布时间：2018/6/20 10:57:00
-- 回复：（有点甜）参考 http://www.foxtable....
此主题相关图片如下：1.png
类似·但是还是能输入同样的数据··
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2018/6/20 11:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
-- 发布时间：2018/6/20 13:02:00
-- 回复：（有点甜）[upload=foxdb,管理项目1.foxdb]view...
··谢谢甜老师···非常感谢···完美解决·
-- 发布时间：2018/6/21 8:29:00
-- 回复：（liumiao123）回复：（有点甜）[upload=foxdb,...
我如果想要通过DropDownBox·实现上面操作·绑定到窗口·怎么就不能实现了··
此主题相关图片如下：001.png
此主题相关图片如下：002.png
老师请问·是哪里错了·
-- 发布时间：2018/6/21 8:48:00
--
dropdownopened事件
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim str = ""
If e.Form.droptable IsNot Nothing Then
str = e.Form.DropTable.Current("批号")
Else
str = Tables("操作表").Current("批号")
End If
If str = "" Then
trv.BuildTree("子件数","子件批次数|子件")
Else
Dim i1 As String = format(val(str.split("-")(0)), "000")
Dim i2 As String = format(val(str.split("-")(1)), "000")
trv.BuildTree("子件数","子件批次数|子件", "子件>=\'" & i1 & "\' and 子件<=\'" & i2 & "\'")
End If