VBA 提示运行时错误'2110' 关闭后重新打开可以用

1588078/37

运行时错误'2110'
"由于控件无法看到,尚未启用或其类型属于不接受焦点,因此无法将焦点移至该控件"

表用久了，可能会出现
偶尔出现
没附件，没得连接ERP数据库的没有数据
论坛上就看过11年有人问过
百度找不到同样问题 的

1. Set dic = CreateObject("scripting.dictionary")
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Set d1 = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. With Me.ListView2
   
6.   If .ListItems.Count = 0 Then
   
7.       MsgBox "未添加入库项"
   
8.       Exit Sub
   
9.       End If
   
10.        If .ListItems.Count Then
    
11.         col = .ColumnHeaders.Count - 1
    
12.         ReDim arr(1 To .ListItems.Count, 1 To 5)
    
13.         For i = 1 To .ListItems.Count
    
14.          arr(i, 1) = .ListItems(i).SubItems(1)
    
15.          arr(i, 2) = .ListItems(i).SubItems(2)
    
16.          arr(i, 3) = .ListItems(i).SubItems(3)
    
17.          arr(i, 4) = .ListItems(i).SubItems(4)
    
18.       
    
19.        Next
    
20.       End If
    
21.    End With
    
22. Call OpenErp
    
23. Sql = "select A2,A1,A5 ,A4  from (select CUS_OS_NO as A1,PRD_NO as A2,max(EST_DD) as A3,sum(QTY) as A4,Rem as A5 from (select t1.CUS_OS_NO as CUS_OS_NO,t1.PRD_NO as PRD_NO ,t1.EST_DD as EST_DD,t1.QTY-isnull(t1.QTY_PS,0)as QTY ,t1.Rem as Rem from TF_POS t1 left join MF_POS t2 on t1.OS_NO=t2.OS_NO where t1.OS_ID='SO' and CLS_ID<>'T' and t1.QTY-isnull(QTY_PS,0)-isnull(QTY_PRE,0)>0 AND t2.CUS_NO='11001' union all select t2.OS_NO as CUS_OS_NO,t2.PRD_NO as PRD_NO,'' as EST_DD ,(-1)*t2.QTY as QTY ,t2.HH_NO as Rem from MF_XH t1 left join TF_XH t2 on t1.XH_NO=t2.XH_NO where t1.SA_NO is null) x1  group by CUS_OS_NO,PRD_NO,Rem) t LEFT JOIN  PRDT tt on t.A2=tt.PRD_NO where t.A4>0 order by A3,A2,A1,A5"
    
24. DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic
    
25. brr = DBRst.GetRows
    
26. Call CloseErp
    
27. For i = 0 To UBound(brr, 2)
    
28. dic(brr(0, i)) = dic(brr(0, i)) + 1
    
29.    d(brr(0, i) & "," & dic(brr(0, i))) = brr(1, i) & "," & brr(2, i)
    
30.    d1(brr(0, i) & "," & dic(brr(0, i)) & "," & brr(1, i) & "," & brr(2, i)) = brr(3, i)
    
31. 
    
32. Next
    
33. 
    
34. 
    
35. For i = 1 To UBound(arr)
    
36. If dic.exists(arr(i, 1)) Then
    
37. x = 0
    
38. kmm = 0
    
39. For k = 1 To dic(arr(i, 1))
    
40. 
    
41. kk = arr(i, 4) - kmm
    
42. x = d1(arr(i, 1) & "," & k & "," & d(arr(i, 1) & "," & k))
    
43. 
    
44.    If x > 0 Then
    
45.      If kk <= x Then
    
46.       arr(i, 5) = arr(i, 5) & "|" & d(arr(i, 1) & "," & k) & "," & kk
    
47.       d1(arr(i, 1) & "," & k & "," & d(arr(i, 1) & "," & k)) = x - kk
    
48.      Exit For
    
49.       Else
    
50.       arr(i, 5) = arr(i, 5) & "|" & d(arr(i, 1) & "," & k) & "," & d1(arr(i, 1) & "," & k & "," & d(arr(i, 1) & "," & k))
    
51.       kmm = kmm + x
    
52.       d1(arr(i, 1) & "," & k & "," & d(arr(i, 1) & "," & k)) = 0
    
53.       End If
    
54.    End If
    
55. 
    
56. 
    
57. Next
    
58. End If
    
59. Next
    
60. 
    
61. For i = 1 To UBound(arr)
    
62. xo = 0
    
63. If arr(i, 5) Like "*|*" Then
    
64. pp = Split(arr(i, 5), "|")
    
65. For ii = 1 To UBound(pp)
    
66. xo = xo + Val(Split(pp(ii), ",")(2))
    
67. 
    
68. Next
    
69. If xo <> Val(arr(i, 4)) Then
    
70. s = s & "," & arr(i, 1) & "订单不足:" & arr(i, 4) - xo
    
71. End If
    
72. Else
    
73. s = s & "," & arr(i, 1) & "订单不足:" & arr(i, 4)
    
74. End If
    
75. Next
    
76. If Len(s) Then
    
77. MsgBox Mid(s, 2)
    
78. Exit Sub
    
79. End If
    
80. 
    
81. dysl = 3
    
82. ReDim crr(1 To 100, 1 To 7)
    
83. For i = 1 To UBound(arr)
    
84. pp = Split(arr(i, 5), "|")
    
85. For ii = 1 To UBound(pp)
    
86. m = m + 1
    
87. crr(m, 1) = m
    
88. crr(m, 3) = arr(i, 1)
    
89. crr(m, 4) = arr(i, 2)
    
90. If crr(m, 4) Like "*励磁*" Or crr(m, 4) Like "*未浸漆*" Then
    
91. dysl = 4
    
92. End If
    
93. crr(m, 5) = arr(i, 3)
    
94. crr(m, 2) = "*" & Split(pp(ii), ",")(0) & "/" & Split(pp(ii), ",")(1) & "*"
    
95. crr(m, 6) = Split(pp(ii), ",")(2)
    
96. crr(m, 7) = "*" & arr(i, 1) & "*"
    
97. tt = tt + Val(crr(m, 6))
    
98. Next
    
99. crr(m + 1, 1) = "合计"
    
100. crr(m + 1, 6) = tt
     
101. Next
     
102. 
     
103. Call OpenErp
     
104. Sql = "select max(XH_NO) from MF_XH"
     
105. DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic
     
106. If DBRst.EOF = True Then
     
107. dh = Format(Now(), "yyyymmdd") & "001"
     
108. Else
     
109. arr = DBRst.GetRows
     
110. Call CloseErp
     
111. If IsNull(arr(0, 0)) Or Format(arr(0, 0), "00000000") < Format(Now(), "yyyymmdd") Then
     
112. dh = Format(Now(), "yyyymmdd") & "001"
     
113. Else
     
114. dh = arr(0, 0) + 1
     
115. End If
     
116. End If
     
117. tm = Now()
     
118. Call OpenErp
     
119. Sql = "select * from MF_XH"
     
120. DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic
     
121. With DBRst
     
122.     .AddNew
     
123.     .Fields(0).Value = dh
     
124.      .Fields(1).Value = tm
     
125.     .Update
     
126. End With
     
127. Call CloseErp
     
128. 
     
129. Call OpenErp
     
130. Sql = "select * from TF_XH"
     
131. DBRst.Open Sql, ConnDB, adOpenKeyset, adLockOptimistic
     
132. With DBRst
     
133. For i = 1 To m
     
134.     .AddNew
     
135.     .Fields(0).Value = dh
     
136.      .Fields(1).Value = Split(Replace(crr(i, 2), "*", ""), "/")(0)
     
137.       .Fields(2).Value = crr(i, 3)
     
138.        .Fields(3).Value = crr(i, 6)
     
139.         .Fields(4).Value = Split(Replace(crr(i, 2), "*", ""), "/")(1)
     
140.     .Update
     
141.   Next
     
142. End With
     
143. 
     
144. TextBox4.Text = dh
     
145. CommandButton1.Visible = False
     
146. CommandButton2.Visible = False
     
147. CommandButton3.Visible = False
     
148. CommandButton4.Visible = False
     
149. CommandButton5.Visible = False
     
150. CommandButton6.Visible = True
     
151. TextBox1.Enabled = False
     
152. TextBox3.Enabled = False
     
153. 
     
154. With Sheet1
     
155.    .[g2] = "SA19" & Format(Now(), "mm") & 0 & "_______"
     
156. .[g3] = dh
     
157. .[d3] = "单号：" & Format(tm, "yyyy/mm/dd hh:mm:ss")
     
158. .Range("A5:Z1000").ClearContents
     
159. .Cells.Borders.LineStyle = xlNone
     
160. .[A5].Resize(m + 1, 7) = crr
     
161. With .Range(.Cells(5, 1), .Cells(m + 4, 7))
     
162. .Sort Key1:=.Range("c5"), Order1:=1
     
163. End With
     
164. For i = 5 To m + 4
     
165. .Cells(i, 1) = i - 4
     
166. Next
     
167. m = IIf(m < 18, 18, m)
     
168. With .Range(.Cells(3, 1), .Cells(m + 5, 7))
     
169. .Borders.LineStyle = xlContinuous
     
170. .BorderAround xlContinuous, xlMedium
     
171. .HorizontalAlignment = xlCenter
     
172. .VerticalAlignment = xlCenter
     
173. End With
     
174. Sheet1.PrintOut Copies:=dysl
     
175. Exit Sub
     
176. End With

复制代码

02761752696

你想表达什么................

1588078/37

TextBox4.Text = dh
CommandButton1.Visible = False
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
CommandButton5.Visible = False
CommandButton6.Visible = True
TextBox1.Enabled = False
TextBox3.Enabled = False
会不会 这个隐藏和显示控件的代码，要放到最后面

OKJSJSF

我刚遭遇这个问题