以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何窗口上正常引用?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187268)

--  作者:lin98
--  发布时间:2023/7/4 15:51:00
--  如何窗口上正常引用?


实例中,不重复窗口的录入,表C关联无法正常引用产品表,如何实现窗口上正常录入?
[此贴子已经被作者于2023/7/4 17:12:41编辑过]

--  作者:有点蓝
--  发布时间:2023/7/4 16:08:00
--  
按什么步骤测试?什么地方有问题?
--  作者:lin98
--  发布时间:2023/7/4 16:31:00
--  
需求是,表B表C关联或表C的“单号、产品、型号、规格、数量、日期”的字段值不能重复。

实例中主表的单号的A2,执行不重复导入时,其明细表无法导入,报错已存在相同,而需求是表C的“单号、产品、型号、规格、数量、日期”的字段值不能重复,如何实现

图片点击可在新窗口打开查看此主题相关图片如下:不重复问题.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2023/7/4 16:52:00
--  
Dim nma() As String = {"编号", "型号", "规格"} \'
Dim nmb() As String = {"编号", "型号", "规格"} \'
Dim dh As String = Tables("表B").Current("单号")
For Each r As Row In Tables("产品导入_产品表").GetCheckedRows \'
 If DataTables("表C").Find("编号 = \'" & r("编号") & "\' And 型号 = \'" & r("型号") & "\' And 规格 = \'" & r("规格") & "\' And 单号 = \'" & dh & "\'") Is Nothing Then 
……