尊敬的明日科技编辑：
手册中320页“库存管理系统”货品出库管理以及借出管理、货品盘点不能与库存信息数量一致，现把货品出库代码列出，是否数据库有问题，恳求指点！
Private Sub Cmd_Add_Click()
   For i = 0 To 5                                                   '单击“添加”按钮之后，清空文本框中的内容
      Text1(i).Text = ""
   Next i
        Adodc1.RecordSource = "select * from tb_out order by ID"
        Adodc1.Refresh
           If Adodc1.Recordset.RecordCount > 0 Then
               Adodc1.Recordset.MoveLast
               StrNum = Val(Adodc1.Recordset.Fields("ID")) + 1      '使出货编号加1
                 Select Case Len(Trim(StrNum))    '位数不足者补0
                    Case 1
                      StrTemp = "00000"
                    Case 2
                      StrTemp = "0000"
                    Case 3
                      StrTemp = "000"
                    Case 4
                      StrTemp = "00"
                    Case 5
                      StrTemp = "0"
                    Case 6
                      StrTemp = ""
                End Select
               Text1(0).Text = "L" & Trim(StrTemp) & Trim(Str(StrNum))
           Else
               Text1(0).Text = "L000001"    '给出货编号赋一个初值
               StrNum = 1
           End If
   Text1(1).SetFocus
   Cmd_Save.Enabled = True
   Cmd_Del.Enabled = False
End Sub
                                                                                                                                                           忠实的读者
                                                                                                                                                            2011.1.3