小小出入库管理系统(2012年12月又作了更新)

a5213

楼主太牛了，谢谢你的指点。

a5213

我在单据录入界面上的出库单查询时，查询结果出现个怪现象：出库数字不显示，改成个文本型数值才能显示，其他诸如部门、名称、备注等所有表体表头项目都能正常显示，出库单查询时没有此种现象，太郁闷了。麻烦老师看如下代码，问题出在那里。
Sub chaxun()
    Dim hm, cel As Range
    If Range("j3").Value = "" Then MsgBox "请输入需要查询的单据号码": Exit Sub
    Application.EnableEvents = False
    hm = Range("j3").Value
    ActiveSheet.Unprotect
    Range("d3,f3,d19,f19,j19").Value = ""
    For Each cel In Sheet19.Range("p2:p" & Sheet19.[b65536].End(xlUp).Row)
        If cel.Value = hm Then
            If cel.Offset(0, 5).Value = "入库单" Then
                Range("b2") = "物 资 入 库 单"
                Range("L3") = 1
                入库设置
            Else
                Range("b2") = "物 资 出 库 单"
                Range("L3") = 2
                出库设置
            End If
                        Range("f3") = cel.Offset(0, -15).Value
            Range("d19") = cel.Offset(0, 1).Value
            Range("j19") = cel.Offset(0, 4).Value
            If Range("b2") = "物 资 入 库 单" Then
                Range("e19") = "采购员"
                Range("f19") = cel.Offset(0, 2).Value
            Else
                Range("e19") = "领用人"
                Range("f19") = cel.Offset(0, 3).Value
            End If
        End If
    Next
    Set x = CreateObject("adodb.connection")
    x.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
    If Range("b2") = "物 资 入 库 单" Then
        Range("c6:g16").Value = ""
        Range("i6:j16").Value = ""
        Range("c6").CopyFromRecordset x.Execute("select 名称,组别,说明,入库数,单位 from [记录$] WHERE 单据号码 ='" & hm & "'")
      
    Else
        Range("c6:h16").Value = ""
        Range("j6:j16").Value = ""
        Range("c6").CopyFromRecordset x.Execute("select 名称,组别,说明,出库数,单位 from [记录$] WHERE 单据号码 ='" & hm & "'")
                 
    End If
    Range("j6").CopyFromRecordset x.Execute("select 厂别 from [记录$] WHERE 单据号码 ='" & hm & "'")
    ActiveSheet.Protect
    x.Close
    Set x = Nothing
    If Range("C6") = "" Then MsgBox "没有该单据号的记录！"
    Application.EnableEvents = True
End Sub

zjdh

a5213 发表于 2013-8-23 19:21
我在单据录入界面上的出库单查询时，查询结果出现个怪现象：出库数字不显示，改成个文本型数值才能显示，其 ...

不对照具体文件，较难看出问题！

zjdh

可能你的记录中入库在先，出库在后，你只要在第一行入库记录中，出库数量填上 “0 ”即可。
这是SQL的问题，只搜索一类数据，因首行为空就作文本处理，所以数值不被提取！

a5213

zjdh 发表于 2013-8-23 20:58
可能你的记录中入库在先，出库在后，你只要在第一行入库记录中，出库数量填上 “0 ”即可。
这是SQL的问题 ...

试过了，果真如此，谢谢！

a5213

还来请教zjdh老师，我想把删除记录行功能由原来的一次只能删除一行，改为删除选定的多行，以下代码如何修改。
Sub 删除记录行()
    ActiveSheet.Unprotect
    If MsgBox("确认要删除本行记录吗？", vbYesNo, "提示") = vbNo Then Exit Sub
    W = ActiveCell.Row
    If Range("B2") = "物 资 出 库 单" Then
        If W < 11 Then
            Range("C" & W + 1 & ":H11").Copy Range("C" & W)
            Range("J" & W + 1 & ":J11").Copy Range("J" & W)
        End If
        Range("C11:H11,J11").ClearContents
    Else
        If W < 11 Then
            Range("C" & W + 1 & ":G11").Copy Range("C" & W)
            Range("I" & W + 1 & ":J11").Copy Range("I" & W)
        End If
        Range("C11:G11,I11:J11").ClearContents
    End If
    ActiveSheet.Protect
End Sub

林中鸟

下载了出入库系统6-4.1.rar  之后点什么都没有反应。是什么问题。请老师帮忙解决。

林中鸟

知道的，请指点一下，谢谢。

龙游小巧

很实用，收藏先

林中鸟

我怎么点不了，我把保护去了还是没有啊