送货单打印保存模板

w550s

请大神帮忙看看:1.尝试更改客户，地址位置，如b3.b4改到d3.d4,           2.点新单后，旧单内容不清除，3，新建的查询表代码不正确

autumnlu

您好，楼主，求助送货单问题，谢谢！

gssl

您好！看了您的送货单模板，感觉不错，有类似问题想请教，如何联系您？

wxxydl

您好！看了您的送货单模板，感觉不错。谢谢分享

小妞妞

谢谢分享，留个脚印学习

heesechina

64位excel双击录入产品不行，32位的excel和WPS可以双击录入

heesechina

aman1516 发表于 2016-12-18 11:57
2016－12－17更新：
1）查询改为窗体查询，模糊快速输入单号，不需完整编号对应；
2）[按订单查询结果] ...

楼主，使用64位excel双击录入产品没有列表跳出，用32位excel和WPS可以正常使用，是哪句代码的问题？

小妞妞

妞妞0701 发表于 2018-1-28 16:54
可以在送货单里增加 客户资料里的联系人和电话吗

我也遇到同样问题，你解决了没

king1025

aman1516

king1025 发表于 2020-4-16 17:30

客户名称模糊搜索，输入 客户代码 或客户名称 任意关键字皆可：
将列表属性设置成2 列： ListBox2.ColumnCount = 2

1. Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim i As Integer, j As Integer
   
3.     Dim myStr As String
   
4.     On Error Resume Next
   
5.     Me.ListBox2.Clear
   
6.     With Me.TextBox2
   
7.         For i = 1 To Len(.Value)
   
8.             myStr = myStr & LCase(Mid$(.Value, i, 1))
   
9.         Next
   
10.     End With
    
11.         For i = 2 To UBound(crr)
    
12.             If InStr(crr(i, 2), myStr) Or InStr(crr(i, 3), myStr) Then
    
13.                 Me.ListBox2.AddItem crr(i, 2)
    
14.                 Me.ListBox2.List(j, 1) = crr(i, 3)
    
15.                 j = j + 1
    
16.             End If
    
17.         Next
    
18. End Sub
    
19. 
    
20. Private Sub ListBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
21.     On Error Resume Next
    
22.     If KeyCode = vbKeyReturn Then
    
23.         ActiveCell.Value = ListBox2.List(ListBox2.ListIndex, 1)      'ListBox2.Value
    
24.         [b4].Select
    
25.         Me.ListBox2.Clear
    
26.         Me.TextBox2 = ""
    
27.         Me.ListBox2.Visible = False
    
28.         Me.TextBox2.Visible = False
    
29.     End If
    
30. End Sub
    
31. Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    
32.     On Error Resume Next
    
33.     ActiveCell.Value = ListBox2.List(ListBox2.ListIndex, 1)       'ListBox2.Value
    
34.     [b4].Select
    
35.     Me.ListBox2.Clear
    
36.     Me.TextBox2 = ""
    
37.     Me.ListBox2.Visible = False
    
38.     Me.TextBox2.Visible = False
    
39. End Sub
    

复制代码

改产品名称全表检索，关键字可为： 产品代码、名称、规格型号、颜色 任一关键字，
将代码中：
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
..........
For i = 1 To UBound(Arrsj)
     If InStr(Arrsj(i, 2), myStr)  Then
     j = j + 1
改成：
For i = 1 To UBound(Arrsj)
     If InStr(Arrsj(i, 1), myStr) Or InStr(Arrsj(i, 2), myStr) Or InStr(Arrsj(i, 4), myStr) Or InStr(Arrsj(i, 5), myStr) Then
     j = j + 1
即可