如何制作这样的窗体出库单？真诚求助！

zengsijun

02761752696 发表于 2022-11-4 10:43
你一楼的图片哪来的啊 ，感觉在那个基础上改改就行了，重写的话还是有点工作量的

那个是网上的图片。。。我没有相应的附件

3190496160

Private Sub CommandButton1_Click() '''添加
With Sheets("出库记录表")
     r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    For i = 7 To 14
        .Cells(r, i - 5) = Me.Controls("textbox" & i).Text
    Next i
    .Cells(r, 1) = r - 3
End With
End Sub
Private Sub CommandButton4_Click() '''新建
For i = 7 To 14
    Me.Controls("textbox" & i).Text = ""
Next i
End Sub
Private Sub TextBox7_Change() '''输入日期生成单号
If TextBox7.Text = "" Then
    TextBox8.Text = ""
Else
    With Sheets("出库记录表")
        m = Trim(.Cells(Rows.Count, 3).End(xlUp))
        wh = Right(m, 3)
        rq = Left(m, 8)
        If rq = Format(Date, "yyyymmdd") Then
            TextBox8.Text = Format(Date, "yyyymmdd") & Format(Val(wh) + 1, "000")
        Else
           TextBox8.Text = Format(Date, "yyyymmdd") & Format(1, "000")
        End If
    End With
End If
End Sub

3190496160

只完成其中的三个功能，供参考，其他的等有时间吧
出库单.rar (20.04 KB, 下载次数: 33)

2022-11-4 11:21 上传

点击文件名下载附件

少如

3190496160 发表于 2022-11-4 11:21
只完成其中的三个功能，供参考，其他的等有时间吧

                    期待完整成品早日出炉！

zengsijun

3190496160 发表于 2022-11-4 11:21
只完成其中的三个功能，供参考，其他的等有时间吧

麻烦您有时间帮帮我完善一下吧，谢谢了！

02761752696

zengsijun 发表于 2022-11-4 11:52
麻烦您有时间帮帮我完善一下吧，谢谢了！

不知是不是这个意思，打印没写

哎，录个屏文件崩溃了，不知什么原因，白写了...
还有输出出库单是一条一条增加还是？？
先看看是不是这个意思吧

徐文祝

zengsijun 发表于 2022-11-4 10:32
麻烦各位大侠帮下忙，我已上传了我自己画的窗体，但下面那个列表框我实在不会绘制了，还要相应的代码 ...

https://zhidao.baidu.com/question/1893986016684288460.html
窗体不熟，那个应该是叫表格控件，你按这个思路找找，或者百度一下，或者找个视频看看。祝好运

补充内容 (2022-11-9 10:12):
那个叫Listview控件。不好意思，之前的回复误导了。

zengsijun

02761752696 发表于 2022-11-4 16:19
不知是不是这个意思，打印没写

哎，录个屏文件崩溃了，不知什么原因，白写了...

是这样的，谢谢楼主！麻烦您帮我做一下，谢谢！

jiangxiaoyun

花点钱找人代做吧，做这个挺麻烦的。因为窗体增加了麻烦。

tspliu

这个也没有EXCEL本身表格录入方便呐