以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  检测相同的内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140521)

--  作者：yangwenghd --  发布时间：2019/9/7 12:08:00 --  检测相同的内容 老师，能帮忙看看这个吗？感谢 感谢  就是点击按钮，如果 客户筛选名单窗口 的Label12控件显示的内容 在 企业档案表的名称列已经有相同了就提示，并且返回，但是为什么不能用 If Tables("企业档案").current IsNot Nothing     If forms("客户筛选名单窗口").Controls("Label12").Text = Tables("企业档案").current ("企业_名称") Then         MessageBox.Show("已经有相同的公司存在!")         Return     End If End If

--  作者：有点蓝 --  发布时间：2019/9/7 14:00:00 --   这个只比较选中的行。如果要整个表查询，请使用Find：http://www.foxtable.com/webhelp/topics/0396.htm

--  作者：yangwenghd --  发布时间：2019/9/10 18:09:00 --   老师，能帮忙看看吗？ 检测企业档案的企业名称列是否有相同，如果有检查不同的窗口，感谢 感谢  If Tables("企业档案").Filter = "企业名称 Like \'%" & e.Form.Controls("Label12").Text & "%\'"  \'  筛选出行\\     MessageBox.Show("已经有相同的公司存在!")     Return     msgbox("录入成功") End If

--  作者：有点蓝 --  发布时间：2019/9/10 19:58:00 --   请使用Find：http://www.foxtable.com/webhelp/topics/0396.htm，不是Filter

--  作者：yangwenghd --  发布时间：2019/9/10 20:56:00 --   老师能再帮忙看看吗？实在是看不懂方法。 Dim dr As DataRow dr = DataTables("企业档案").Find("企业_名称 = Controls("Label12").Text")  With DataTables("客户筛选列表")     dr = .Find("企业_名称 ="企业名称")      MessageBox.Show("已经有相同的公司存在!")     Return End With

--  作者：有点蓝 --  发布时间：2019/9/10 21:43:00 --   Dim dr As DataRow dr = DataTables("企业档案").Find("企业名称 =  \'" & e.Form.Controls("Label12").Text & "\'")  if dr isnot nothing then     MessageBox.Show("已经有相同的公司存在!")     Return end if

--  作者：yangwenghd --  发布时间：2019/9/10 22:11:00 --   感谢 感谢 可以了，谢谢