窗体里ADODB查询两个表不同字段报错的问题

roych

回复 紫风 的帖子

tbl入库的卸车单号全部为空，自然报错了。改成以下类型
rs.fields("卸车单号").value
试试看？
我测试了一下，第一个记录集没问题（或者暂时我没看到有什么问题）。
不过附件中第二个记录集所对应的数据表全部删除了，所以也就没法测试了。

todaynew

紫风 发表于 2011-6-24 12:18
我把文件上传上来，麻烦版主帮看一下，谢谢！

Private Sub cmd查询_Click()
....
        STemp = "SELECT [tbl入库].* FROM [tbl入库] WHERE 入库ID =" & Nz(Me.入库号, 0)
        rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        If rs.RecordCount > 0 Then
            With rs
                Me.卸车单号 = ![卸车单号]
                ....
            End With
        End If
        rs.Close
        
        STemp = "SELECT [tbl卸货派工].* FROM [tbl卸货派工] WHERE 入库ID =" & Nz(Me.入库号, 0)
        rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
       If rs.RecordCount > 0 Then
            With rs
                Me.预到数 = ![预到数]
                .....
            End With
        End If
....
End Sub

此外，你如何保证同志们知晓入库号呢？