送货单打印保存模板

jxiao108

楼主太强大了 ！

苦寻踪444

模板很好用！但使用中发现两个问题：
1、窗体查询只能鼠标双击，才可以在送货单显示出数据；选中ListBox中的送货单号，再按 确定 却无效，不能达到鼠标双击的效果；
2、客户资料中，删除了客户名称，模糊录入时ListBox2显示有空行，能不能把空行（空客户）去掉。
恳请指点，不甚感激！！！

苦寻踪444

zhangbeyondz 发表于 2018-4-20 09:56
更新后有横向网格线，没有纵向网格线，我试了一下，应该是从合并单元格那行插入就是这个效果

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'.........
        .Range("A6:J" & ii).ClearContents
        ''''''''''''''''''''.Range("A6:J" & ii).Borders.LineStyle = 1        '对数据区域画边框
        .Range("A6").Resize(k, UBound(drr, 2))= 1    '对数据区域画边框   
        .Range("A6").Resize(k, UBound(drr, 2)) = drr
'.........

这样改下就行。

苦寻踪444

aman1516 发表于 2018-11-13 21:36
和几个变量，将对应数据赋值给对应单元格，加两三行代码即可

楼主，模板很好用！但使用中发现如下问题：
1、窗体查询只能鼠标双击，才可以在送货单显示出数据；选中ListBox中的送货单号，再按窗体里的 确定按钮 却无效，不能达到鼠标双击的效果；
2、查询时，窗体出现后，得用鼠标点击模糊搜索TxetBox才可搜索，要是能默认光标停在模糊搜索TxetBox，直接输入单号搜索就好了；
3、第一次查询行数大于8的单号后，继续再次查询小于8行的单号，则只覆盖一部分，第一次查询的内容有些也附在第二次查询数据后面，这个能不能修改；
4、客户资料中，删除了客户名称，模糊录入时ListBox2显示有空行，能不能把空行（空客户）去掉。
恳请楼主指点，不甚感激！！！

jxiao108

楼主，为何新增加行数后，输完数据点 保存，显示 “请填写送货单号及数据” 请问如何解决，谢谢

jxiao108

请教大神，B10不填 颜色、线条规格这些填的话，点了存储后不能保存
麻烦大神多添加一个进仓表和进销存表，方便统计自动进销，可以有偿报答

苦寻踪444

jxiao108 发表于 2020-4-29 00:48
楼主，为何新增加行数后，输完数据点 保存，显示 “请填写送货单号及数据” 请问如何解决，谢谢

肯定是没点 新单 ，单号已在保存的数据表中存在了。你看下数据表中的单号，输一个没有的，就可保存了。

苦寻踪444

问题2、查询时，窗体出现后，得用鼠标点击模糊搜索TxetBox才可搜索，要是能默认光标停在模糊搜索TxetBox，直接输入单号搜索就好了；

自己解决了：就是是在窗体里加了句Me.TextBox1.SetFocus
Private Sub UserForm_Initialize()
。。。。。。。。
    Me.TextBox1.SetFocus
End Sub

jxiao108

@苦寻踪444 谢谢指导，我按了新单后，里面我重新设的公式都还原了，请问在哪个位置修改？谢谢

autumnlu

您好，楼主，一直关注了楼主此贴好久，楼主分享的惠及了我们这些小白们。
本来想用楼主的这送货单学习修改套用到我送货单，但是VBA代码不怎么懂的，要套用都是难的。希望可以帮忙编写一下，诚心求助，谢谢！