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

zengsijun

这个窗体该如何绘制？？
谢谢了！

zengsijun

  

麻烦各位大侠帮下忙，我已上传了我自己画的窗体，但下面那个列表框我实在不会绘制了，还要相应的代码。麻烦大师出下手，谢谢了！！


需求说明：
1、在此表格任意行列中双击，可以弹出窗体，进入输入界面
2、出库单号由8位出库日期和3位序列号组成：如20221014001;
3、出库单号只需填写序列号：如001
4、点击“新建”，可以将下面的列表数据内容给清空
5、点击“添加”，填入相关内容后可以将出库内容添加到出库记录表
6、点击“生成”，可以生成出库单，并自动定位至出库单界面
7、点击“打印”，可以打印出库单，并自动定位至出库单界面

zengsijun

Private Sub UserForm_Initialize()

Dim w

Me.MultiPage_多页框架.Value = 0

Me.MultiPage_多页框架.Style = fmTabStyleNone

Me.DTPicker_出库日期.Value = VBA.Date

Me.TextBox_出库单号.MaxLength = 3

Me.TextBox_出库单号.Text = VBA.Format(1, "000")

ODONumberUpdate '更新出库单号

Me.TextBox_出库单号.SetFocus

PriceListTree   '生成价格表

w = Me.ListView_出库清单.Width

Me.ListView_出库清单.ColumnHeaders.Add 1, "C1", "销售日期", w / 8 - 1

Me.ListView_出库清单.ColumnHeaders.Add 2, "C2", "出库单号", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 3, "C3", "商品代码", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 4, "C4", "商品名称", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 5, "C5", "型号", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 6, "C6", "销售数量", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 7, "C7", "销售单价", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.ColumnHeaders.Add 8, "C8", "销售金额", w / 8 - 1, lvwColumnCenter

Me.ListView_出库清单.FullRowSelect = True

Me.ListView_出库清单.Gridlines = True

Me.ListView_出库清单.View = lvwReport

End Sub

02761752696

绘制流程：
1、打开VBE编辑窗口
2、插入一个窗体，调整大小
3、按需求插入各种控件，并布局
4、根据需求写代码，实现需求功能
5、可以美化
，大功告成

约定的童话

论坛里面找下，有很多

zengsijun

哪位高手能否帮帮忙呢？

3190496160

两个附件都没有，是没有人能够帮你的，上传你的附件，具体描述你的需求，如果工作量不大的话，会有人帮你的

zxsea_7426

画个大饼，就有大饼吗？至少得有做大饼的食材吧？

WANT-T

人家只要绘制窗体，没有说添加功能哈哈哈

02761752696

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

你一楼的图片哪来的啊 ，感觉在那个基础上改改就行了，重写的话还是有点工作量的