[求助]弹窗选择添加了重复的记录

已找到原因,采购单身窗体的 Function SelectCtrlValue_01 函数修改红色字体

Function SelectCtrlValue_01(xctrl As String, xText() As String) As Boolean
On Error GoTo err_1
Dim rs01 As New ADODB.Recordset, x001(10) As String, x002(5) As String, i01 As Integer, y001(5) As Long
SelectCtrlValue_01 = False

Select Case xctrl

        
Case "请购单号"

Me.请购单号 = xText(1)
Me.物料编号 = xText(3)

If xText(1) = "" Then
 GoTo err_2
End If
 
x001(0) = "select 请购单身.请购单号,请购单身.计划单号,请购单身.物料编号, 物料表.物料名称 " & _
"FROM (请购单头 INNER JOIN 请购单身 ON 请购单头.请购单号=请购单身.请购单号) INNER JOIN 物料表 ON 请购单身.物料编号=物料表.物料编号 " & _
        "where 请购单头.请购单号='" & xText(1) & "' and 请购单身.物料编号='" & xText(3) & "' "