- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口禁止输入重复值的实现问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111577)
-- 发布时间：2017/12/25 14:15:00
-- 窗口禁止输入重复值的实现问题
老师，在表中禁止输入重复值可以做到。我现在是在窗口中对表进行写入，如图：
此主题相关图片如下：qq截图20171225140801.jpg
我想做到在窗口中的型号textbox3中输入有重复值的内容后，在其他textbox中显示表中相关字段，同时弹出一个对话框进行提示，请问如何实现。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
[此贴子已经被作者于2017/12/25 14:15:41编辑过]
-- 发布时间：2017/12/25 14:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
-- 发布时间：2017/12/25 14:47:00
--
甜老师，我是在“新添”窗口中实现这种功能，因为我不是直接在表中添加内容，
-- 发布时间：2017/12/25 14:53:00
--
以下是引用weipeng6999在2017/12/25 14:47:00的发言：
甜老师，我是在“新添”窗口中实现这种功能，因为我不是直接在表中添加内容，
甜老师，我是在“新添”窗口中实现这种功能，因为我不是直接在表中添加内容，
你不是绑定了吗？你绑定了表列，那就直接在datacolchanged事件处理最为方便。
-- 发布时间：2017/12/25 15:23:00
--
甜老师，现在是“新添”窗口中把所有textbox内容写完完成后才出现“已有重复值”的弹出框，我想只要在“型号”一个textbox中写入重复值，其他文本框就自动写入相关内容，再弹出“已有重复值，需不需要修改相关信息”的弹出框。
[此贴子已经被作者于2017/12/25 15:24:42编辑过]
-- 发布时间：2017/12/25 15:33:00
--
去看datacolchanged事件的代码，目前是根据两个列查询，你改成一个列的即可。
-- 发布时间：2018/6/6 11:03:00
--
甜老师，以下代码运行正常，但是我把“单位名称”改为多表头“基本资料_单位名称”就不行了，是不是不能使用多表头？
Select Case e.DataCol.name
Case "单位名称"
Dim fdr As DataRow = e.DataTable.find("单位名称 = \'" & e.DataRow("单位名称") & "\' And _Identify <> " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
msgbox("已存在此单位数据")
e.DataRow("产品") = fdr("产品")
e.DataRow("型号") = fdr("型号")
e.DataRow("数量") = fdr("数量")
End If
If e.DataRow("产品") = "电脑" Then
e.DataRow("单位")="台"
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:测试重复值.table |
[此贴子已经被作者于2018/6/6 11:11:57编辑过]
-- 发布时间：2018/6/6 11:16:00
--
Select Case e.DataCol.name
Case "基本资料_单位名称"
Dim fdr As DataRow = e.DataTable.find("基本资料_单位名称 = \'" & e.DataRow("基本资料_单位名称") & "\' And _Identify <> " & e.DataRow("_Identify"))
If fdr IsNot Nothing Then
msgbox("已存在此单位数据")
e.DataRow("产品") = fdr("产品")
e.DataRow("型号") = fdr("型号")
e.DataRow("数量") = fdr("数量")
End If
If e.DataRow("产品") = "电脑" Then
e.DataRow("单位")="台"
End If
End Select
-- 发布时间：2018/6/6 11:17:00
--
或者，你可以用【列标题】处理多层表头
http://www.foxtable.com/webhelp/scr/0018.htm
-- 发布时间：2018/6/6 11:56:00
--
谢谢甜老师了！改为列标题可以