送货单打印保存模板

aman1516 · 发表于 2020-11-3 19:37

scwj1126 发表于 2020-11-2 16:57
你好！这送货单太牛了，（送货单模板20200612）有个问题请教一下你，我用你的送货单查询功能的时候发现查 ...

谢谢指出BUG，梳忽了，在 UserForm1 里面的一句代码改下位置：
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim ls, drr, i, j, k, c, c0, cc, shn As String, ii, d, ku, dz
'.........
ReDim drr(1 To UBound(arr), 1 To cc)
For i = 2 To UBound(arr)
   'If shn = "送货单" Then d = arr(i, 4): ku = arr(i, 1): dz = arr(i, 2)  ' 这句删除，应放在下在的循环内
If CStr(arr(i, c)) = ls Then
   k = k + 1
   For j = 1 To cc
         drr(k, j) = arr(i, j + c0)
   Next
   If shn = "送货单" Then d = arr(i, 4): ku = arr(i, 1): dz = arr(i, 2)    '放这里才能和查询数据对应
End If
Next

aman1516 · 发表于 2020-11-3 19:46

稍作修订：

送货单模板20200612.rar (157.73 KB, 下载次数: 639)

兰萌儿 · 发表于 2020-11-14 15:14

我想做个财务系统的有查询、保存、打印、这些功能。要怎么做？

下雨的彩虹 · 发表于 2020-11-26 11:41

谢谢分享11111111111111111

xpling · 发表于 2020-12-24 14:58

这玩意我看不懂但是还顶上您. 加油

从此海蓝 · 发表于 2021-1-13 22:58

aman1516 发表于 2017-12-29 19:21
Private Sub CommandButton5_Click() '导出
On Error Resume Next '
Dim x As Long

谢谢。。留存一下。。。。。

scwj1126 · 发表于 2021-1-17 16:13

aman1516 发表于 2020-11-3 19:46
稍作修订：

您好！我在送货单上面加了4行，填写内容时由原来的第6行改成了第10行，存储到汇总表没有问题，但是按单号查询时自动填充的内容还是从第6行开始填充，请问怎样才能改成从第10行自动填充内容。请大神回复一下谢谢！

enuo · 发表于 2021-2-3 15:15

谢谢，努力学习中

alxixi520 · 发表于 2021-3-21 08:29

本帖最后由 alxixi520 于 2021-3-21 11:06 编辑

aman1516 发表于 2020-11-3 19:46
稍作修订：

感谢您这么多年的付出！我增加了”汇总表“密码保护后可以正常录入、查询历史单据；想麻烦大神帮我增加下功能：
查询的历史单据不可以替换存储，防止恶意修改，若需要修改历史单据，仅通过有效密码在汇总表内修改；

xiaomils · 发表于 2021-3-21 08:36

感谢分享！！

		自动登录	找回密码
密码			免费注册

[分享] 送货单打印保存模板

评分