如何要据相应的单号，把原始的单号都显示出来。

lzgbc

根据表1的内容，做一个查询，如“查询”显示的结果一样。
就是要求货品进仓后，它在库内所有的操作都用原始的进仓单号标记起来。这样就可以追踪货品在仓库里的所有过程，不知那位前辈指点一下。

lzgbc

有人能处理吗？很着急呀……

zxb7679

你不已经做好了吗？没有看出来 进仓单号、批号、来源三者的关系，即从表一怎么到查询，只有你自己知道它们的联系，让人怎么帮你

lzgbc

zxb7679 发表于 2012-6-13 16:44
你不已经做好了吗？没有看出来 进仓单号、批号、来源三者的关系，即从表一怎么到查询，只有你自己知道它们的 ...

我做出来是要达到这样的效果表格。
首先批号是进仓时自动生成的一个号码。
正常的情况下，它会一直保留到出仓止，即多次出仓，它还是显示该批号。这样，通过这个批号，我就可以知道这个批号还有多少库存。但是，一旦在仓库里做过调整的话，批号就是改变，自动生成另外一个批号（在调整后，如果还没有出完仓的话，那么，到止就无法追踪批号改变以后的出仓）。但是改变后，它还会有一个来源号码跟踪到以前的批号。现在就是没有办法如果把这一步的操作关联起来。不知道这样说，你清楚了吗？

zxb7679

Option Compare Database

Public Function UpCode(DownCode As String)
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Set cnn = New ADODB.Connection
    cnn.Open CurrentProject.Connection
    Set rst = New ADODB.Recordset
    Dim Temp1 As String
    SQL = "SELECT 表1.来源 FROM 表1 WHERE 表1.批号 In ( SELECT 表1.批号 FROM 表1 WHERE  表1.来源 ="
    SQL = SQL & DownCode & " )"
    rst.Open SQL, cnn, adOpenKeyset, adLockReadOnly
    Do While Not rst.EOF
        Temp1 = rst(来源)
        MyCheck = Temp1 Like "SS*"
        If MyCheck Then
            UpCode = Temp1
            Exit Function
        ElseIf Temp1 <> DownCode Then
            UpCode = UpCode(Temp1)
        End If
        rst.MoveNext
    Loop
End Function
肿么一直说数据类型不匹配，高手帮忙改一改