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

shikai

请问楼主。
这款系统中的单据，我打印时需要增加公司的抬头名称。如何设置？
在线等。
谢啦。

zjdh

shikai 发表于 2013-12-29 12:06
请问楼主。
这款系统中的单据，我打印时需要增加公司的抬头名称。如何设置？
在线等。

用文本框添加啊

duanxide

请问楼主，入库单增加了200行 ，在数据库里，入库的数据在出库那边了。

duanxide

这是附件，麻烦帮我看看

zjdh

duanxide 发表于 2013-12-30 13:07
这是附件，麻烦帮我看看

出入库系统 For duanxide .rar (462.25 KB, 下载次数: 25)

2013-12-30 14:09 上传

点击文件名下载附件

油金万

运行修改时，怎么出现这样呢？

shuihudaye

学习一下~~~~~

zjdh

油金万 发表于 2013-12-31 23:46
运行修改时，怎么出现这样呢？

先查询----再修改（更新数据库数据）

唐云南

精品呀！收藏了。

tearsky621

楼主，我修改了一段代码，运行的时候出现类型不匹配，帮忙看下啥情况呗~

Option Explicit
Private Sub TextBox1_Change()       '文本框内容改变时调用filllvw过程查询
    Dim c As Byte
    Dim i As Integer
    If ComboBox1.Text = "" Then Exit Sub
    c = WorksheetFunction.Match(ComboBox1.Text, ArrCaption, 0)  '获取列号
    Call FillLvw(ListView1, c, TextBox1.Text)
End Sub


Private Sub UserForm_Initialize()
Dim ArrWidth        '定义listview列宽
Dim c As Integer    '表列数
Dim i As Integer

With Sheet1
    c = .Range("C1").End(xlToRight).Column
    If c = 256 Then Exit Sub
    ArrCaption = .Range("C1:" & Chr(64 + c) & "1")
    ReDim ArrWidth(3 To c)
    For i = 3 To c
        ArrWidth(i) = .Cells(1, i).Width        '记录单元格宽度
    Next
End With

ComboBox1.Style = fmStyleDropDownList
ComboBox1.List = WorksheetFunction.Transpose(ArrCaption)    '组合框赋值

With ListView1
    .View = lvwReport                           'listview视力类型为表格型
    .FullRowSelect = True                       '整行可以选中
    .Gridlines = True                           '显示网格线
    .LabelEdit = lvwManual                      '禁止编辑
    For i = 3 To c                              '循环添加标题并设置宽度
        .ColumnHeaders.Add , , ArrCaption(1, i - 2), ArrWidth(i), 0
    Next
End With

Call FillLvw(ListView1, 1, "")

End Sub

Sub FillLvw(Lvw As ListView, QueryColumn As Byte, QueryStr As String)        '此过程用于填充listview项或查询
    Dim Arr()
    Dim Item As ListItem    'ListView列表项
    Dim r As Integer        '表总行数
    Dim c As Integer        '表总列数
    Dim i As Integer
    Dim n As Byte
    With Sheet1
        c = .Range("C1").End(xlToRight).Column  '取得列号
        r = .Range("C65536").End(xlUp).Row      '取得总行号
        If r = 1 Then Exit Sub
        Arr = .Range("C2:" & Chr(64 + c) & r)   '初始化数组
    End With
    Lvw.ListItems.Clear                         '清除Listview所有项
    For i = 1 To r - 1                          '循环赋数组值给Lvw
        If InStr(1, Arr(i, QueryColumn), QueryStr) > 0 Then   '判断数组某列中是否包含要查询的内容,如果有就添加列表项
            Set Item = Lvw.ListItems.Add()
            Item.Text = Arr(i, 1)                   '列表项文本
            For n = 2 To c - 2
'                Item.SubItems(n - 1) = Arr(i, n)    '列表项后面几列文本
            Next
            Set Item = Nothing
        End If
    Next
End Sub