Spread大量的颜色,Lock设定导致的性能问题

由于实际需要，现有一个300列左右，行数未定的Spread,需要在读入数据以后，根据数据把每个单元格设置为不同的颜色。

但是数量级达到1000以上的时候，就出现了性能问题。
比如：单纯的设置每个单元格BackColor,ForeColor,Lock属性的时间就达到了40秒，严重影响了客户体验。

有没有什么好的方法能让颜色的设置快一些，或者有没有什么多线程设置Spread背景色的例子？

程序大体思路：
针对于Spread的没一行
    如果第一列的值=已确认
         第一列的单元格颜色设置为红色
    如果第一列的值=已驳回
         第一列的单元格颜色设置为黄色
    其他
        白色

   第二列

   第三列
……

您尝试先设置  fpSpd.AllowCellOverflow = false; 在循环试试。

如果还是慢的话发一个Demo过来

1. bool oldAllowCellOverflow = fpSpd.AllowCellOverflow;
   
2. 
   
3.       fpSpd.AllowCellOverflow = false;
   
4. 
   
5.       for (int r = 0; r < 27; r++)
   
6. 
   
7.       {
   
8. 
   
9.         for (int c = 0; c < 26; c++)
   
10. 
    
11.         {
    
12. 
    
13.           var rowIndex = r + 5;
    
14. 
    
15.           var colIndex = c + 3;
    
16. 
    
17.           Cell cell = fpSpd.ActiveSheet.Cells[rowIndex, colIndex];
    
18. 
    
19.           if (cell != null)
    
20. 
    
21.           {
    
22. 
    
23.             cell.BackColor = Color.Gray;
    
24. 
    
25.           }
    
26. 
    
27.         }
    
28. 
    
29.       }
    
30. 
    
31.       fpSpd.AllowCellOverflow = oldAllowCellOverflow;      
    
32. 
    
33.     }
    

复制代码

dexteryao 发表于 2016-12-22 16:34
您尝试先设置  fpSpd.AllowCellOverflow = false; 在循环试试。

如果还是慢的话发一个Demo过来

默认的AllowCellOverFlow就是False,所以应该不是这个的问题。

dexteryao 发表于 2016-12-22 16:34
您尝试先设置  fpSpd.AllowCellOverflow = false; 在循环试试。

如果还是慢的话发一个Demo过来

关于Demo的，由于我现在是实际项目里面用的，涉及到了DB什么的，你们那里跑不起来，所以我就把针对每一行设定颜色的代码抽出了一部分，贴出来了。

1. 
   
2. Sub Set_Color_Row(ByRef Row As Integer, ByRef Spd As SpreadConv.SpreadConv)
   
3. 
   
4.         Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_Def.ForeColor
   
5. 
   
6.         Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_Def.BackColor
   
7. 
   
8.         Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Def.ForeColor
   
9. 
   
10.         Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Def.BackColor
    
11. 
    
12. 
    
13. 
    
14.         Call Check_Wrun_Row(Row, Spd)
    
15. 
    
16. 
    
17. 
    
18.         If Get_Spd_Num(G_Col_KbnDel, Row, Spd) = 1 Then
    
19. 
    
20.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).Locked = True
    
21. 
    
22.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Del.ForeColor
    
23. 
    
24.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Del.BackColor
    
25. 
    
26.         ElseIf Get_Spd_Num(G_Col_KbnJyogai, Row, Spd) = 1 Then
    
27. 
    
28.             Spd.BlockMode = True
    
29. 
    
30.             Spd.Row = Row
    
31. 
    
32.             Spd.Col = G_Col_SheetHaba
    
33. 
    
34.             Spd.Row2 = Row
    
35. 
    
36.             Spd.Col2 = Spd.MaxCols
    
37. 
    
38.             Spd.Lock = True
    
39. 
    
40.             Spd.BlockMode = False
    
41. 
    
42.             Set_Color_Kakutei(Row, Spd, 9, 0, 0)
    
43. 
    
44.         ElseIf Get_Spd_Num(G_Col_KbnZaiko, Row, Spd) = 1 Then
    
45. 
    
46.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).Locked = True
    
47. 
    
48.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Zaiko.ForeColor
    
49. 
    
50.             Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Zaiko.BackColor
    
51. 
    
52.         Else
    
53. 
    
54.             Spd.BlockMode = True
    
55. 
    
56.             Spd.Row = Row
    
57. 
    
58.             Spd.Col = G_Col_SheetHaba
    
59. 
    
60.             Spd.Row2 = Row
    
61. 
    
62.             Spd.Col2 = Spd.MaxCols
    
63. 
    
64.             Spd.Lock = False
    
65. 
    
66.             Spd.BlockMode = False
    
67. 
    
68.             Spd.Col = G_Col_SouCatSu : Spd.Row = Row : Spd.Lock = False
    
69. 
    
70.             Spd.Col = G_Col_CatSu : Spd.Row = Row : Spd.Lock = False
    
71. 
    
72.             If Get_Spd_Num(G_Col_Zen, Row, Spd) = 1 Then
    
73. 
    
74.                 Spd.Col = G_Col_SL : Spd.Lock = True
    
75. 
    
76.                 Spd.Col = G_Col_Kei : Spd.Lock = True
    
77. 
    
78.                 Spd.Col = G_Col_SC1 : Spd.Lock = True
    
79. 
    
80.                 Spd.Col = G_Col_SC2 : Spd.Lock = True
    
81. 
    
82.                 Spd.Col = G_Col_SC3 : Spd.Lock = True
    
83. 
    
84.                 Spd.Col = G_Col_SC4 : Spd.Lock = True
    
85. 
    
86.                 Spd.Col = G_Col_SC5 : Spd.Lock = True
    
87. 
    
88.                 Spd.Col = G_Col_SC6 : Spd.Lock = True
    
89. 
    
90.                 Spd.Col = G_Col_SC7 : Spd.Lock = True
    
91. 
    
92.                 Spd.Col = G_Col_SC8 : Spd.Lock = True
    
93. 
    
94.                 Spd.Col = G_Col_SC9 : Spd.Lock = True
    
95. 
    
96.                 Spd.Col = G_Col_Torisu : Spd.Lock = True
    
97. 
    
98.                 Spd.Col = G_Col_SitaSL : Spd.Lock = True
    
99. 
    
100.                 If Get_Spd_Num(G_Col_Jyuchu_全板, Row, Spd) = 1 Then
     
101. 
     
102.                     Spd.Col = G_Col_Zen : Spd.Lock = True
     
103. 
     
104.                     Spd.Col = G_Col_Dansai : Spd.Lock = True
     
105. 
     
106.                 End If
     
107. 
     
108. 
     
109. 
     
110.             Else
     
111. 
     
112.                 Spd.Col = G_Col_SL : Spd.Row = Row : Spd.Lock = False
     
113. 
     
114.                 Spd.Col = G_Col_Kei : Spd.Row = Row : Spd.Lock = False
     
115. 
     
116.                 Spd.Col = G_Col_SC1 : Spd.Row = Row : Spd.Lock = False
     
117. 
     
118.                 Spd.Col = G_Col_SC2 : Spd.Row = Row : Spd.Lock = False
     
119. 
     
120.                 Spd.Col = G_Col_SC3 : Spd.Row = Row : Spd.Lock = False
     
121. 
     
122.                 Spd.Col = G_Col_SC4 : Spd.Row = Row : Spd.Lock = False
     
123. 
     
124.                 Spd.Col = G_Col_SC5 : Spd.Row = Row : Spd.Lock = False
     
125. 
     
126.                 Spd.Col = G_Col_SC6 : Spd.Row = Row : Spd.Lock = False
     
127. 
     
128.                 Spd.Col = G_Col_SC7 : Spd.Row = Row : Spd.Lock = False
     
129. 
     
130.                 Spd.Col = G_Col_SC8 : Spd.Row = Row : Spd.Lock = False
     
131. 
     
132.                 Spd.Col = G_Col_SC9 : Spd.Row = Row : Spd.Lock = False
     
133. 
     
134.                 Spd.Col = G_Col_Torisu : Spd.Row = Row : Spd.Lock = False
     
135. 
     
136.                 Spd.Col = G_Col_SitaSL : Spd.Row = Row : Spd.Lock = False
     
137. 
     
138.             End If
     
139. 
     
140.             If Get_Spd_Num(G_Col_DakuNo, Row, Spd) = 1 Then
     
141. 
     
142.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1).Locked = True
     
143. 
     
144.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_CatSu - 1, Row - 1, Spd.MaxCols - 1).Locked = False
     
145. 
     
146.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Daku.ForeColor
     
147. 
     
148.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Daku.BackColor
     
149. 
     
150.             Else
     
151. 
     
152.                 If Get_Spd_Num(G_Col_DakuNo, Row, Spd) > 1 Then
     
153. 
     
154.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1).Locked = True
     
155. 
     
156.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_CatSu - 1, Row - 1, Spd.MaxCols - 1).Locked = False
     
157. 
     
158.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Daku_Ko.ForeColor
     
159. 
     
160.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_SouCatSu - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Daku_Ko.BackColor
     
161. 
     
162.                 Else
     
163. 
     
164.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Def.ForeColor
     
165. 
     
166.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Def.BackColor
     
167. 
     
168.                 End If
     
169. 
     
170.             End If
     
171. 
     
172.             If Get_Spd_Num(G_Col_KbnOchibo, Row, SpdKeikaku) = 1 Then
     
173. 
     
174. 
     
175. 
     
176.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).ForeColor = Lbl_Color_RotOchibo.ForeColor
     
177. 
     
178.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).BackColor = Lbl_Color_RotOchibo.BackColor
     
179. 
     
180.             Else
     
181. 
     
182.                 If Get_Spd_Num(G_Col_KbnHinOchibo, Row, SpdKeikaku) = 1 Then
     
183. 
     
184.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).ForeColor = Lbl_Color_HinOchibo.ForeColor
     
185. 
     
186.                     Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).BackColor = Lbl_Color_HinOchibo.BackColor
     
187. 
     
188.                 End If
     
189. 
     
190.             End If
     
191. 
     
192.             If Get_Spd_Num(G_Col_KbnWrun, Row, Spd) = 1 Then
     
193. 
     
194.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).ForeColor = Lbl_Color_Wrun.ForeColor
     
195. 
     
196.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_SheetHaba - 1, Row - 1, Spd.MaxCols - 1).BackColor = Lbl_Color_Wrun.BackColor
     
197. 
     
198.             End If
     
199. 
     
200.             If Get_Spd_Num(G_Col_Hari_ロット固定, Row, Spd) = 1 Then
     
201. 
     
202.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).ForeColor = Lbl_Color_Rot.ForeColor
     
203. 
     
204.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Time - 1).BackColor = Lbl_Color_Rot.BackColor
     
205. 
     
206.             End If
     
207. 
     
208. 
     
209. 
     
210.             Set_Color_Err(Row, Spd)
     
211. 
     
212.         End If
     
213. 
     
214. 
     
215. 
     
216. 
     
217. 
     
218.         If Get_Spd_Str(G_Col_Iro1, Row, Spd) <> "" Then
     
219. 
     
220.             Spd.Row = Row
     
221. 
     
222.             Spd.Col = G_Col_Iro1
     
223. 
     
224.             If Get_Spd_Num(G_Col_Paretto1, Row, Spd) <> 0 Then
     
225. 
     
226.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro1 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_Paretto1, Row, Spd))
     
227. 
     
228.             Else
     
229. 
     
230.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro1 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(0)
     
231. 
     
232.             End If
     
233. 
     
234.             If Get_Spd_Num(G_Col_ParettoB1, Row, Spd) <> 0 Then
     
235. 
     
236.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro1 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_ParettoB1, Row, Spd))
     
237. 
     
238.             Else
     
239. 
     
240.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro1 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(16777215)
     
241. 
     
242.             End If
     
243. 
     
244.         End If
     
245. 
     
246.         If Get_Spd_Str(G_Col_Iro2, Row, Spd) <> "" Then
     
247. 
     
248.             Spd.Row = Row
     
249. 
     
250.             Spd.Col = G_Col_Iro2
     
251. 
     
252.             If Get_Spd_Num(G_Col_Paretto2, Row, Spd) <> 0 Then
     
253. 
     
254.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro2 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_Paretto2, Row, Spd))
     
255. 
     
256.             Else
     
257. 
     
258.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro2 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(0)
     
259. 
     
260.             End If
     
261. 
     
262.             If Get_Spd_Num(G_Col_ParettoB2, Row, Spd) <> 0 Then
     
263. 
     
264.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro2 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_ParettoB2, Row, Spd))
     
265. 
     
266.             Else
     
267. 
     
268.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro2 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(16777215)
     
269. 
     
270.             End If
     
271. 
     
272.         End If
     
273. 
     
274.         If Get_Spd_Str(G_Col_Iro3, Row, Spd) <> "" Then
     
275. 
     
276.             Spd.Row = Row
     
277. 
     
278.             Spd.Col = G_Col_Iro3
     
279. 
     
280.             If Get_Spd_Num(G_Col_Paretto3, Row, Spd) <> 0 Then
     
281. 
     
282.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro3 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_Paretto3, Row, Spd))
     
283. 
     
284.             Else
     
285. 
     
286.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro3 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(0)
     
287. 
     
288.             End If
     
289. 
     
290.             If Get_Spd_Num(G_Col_ParettoB3, Row, Spd) <> 0 Then
     
291. 
     
292.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro3 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_ParettoB3, Row, Spd))
     
293. 
     
294.             Else
     
295. 
     
296.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro3 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(16777215)
     
297. 
     
298.             End If
     
299. 
     
300.         End If
     
301. 
     
302. 
     
303. 
     
304.         If Get_Spd_Str(G_Col_Iro4, Row, Spd) <> "" Then
     
305. 
     
306.             Spd.Row = Row
     
307. 
     
308.             Spd.Col = G_Col_Iro4
     
309. 
     
310. 
     
311. 
     
312.             If Get_Spd_Num(G_Col_Paretto4, Row, Spd) <> 0 Then
     
313. 
     
314.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro4 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_Paretto4, Row, Spd))
     
315. 
     
316.             Else
     
317. 
     
318.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro4 - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(0)
     
319. 
     
320.             End If
     
321. 
     
322.             If Get_Spd_Num(G_Col_ParettoB4, Row, Spd) <> 0 Then
     
323. 
     
324.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro4 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(Get_Spd_Num(G_Col_ParettoB4, Row, Spd))
     
325. 
     
326.             Else
     
327. 
     
328.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Iro4 - 1).BackColor = System.Drawing.ColorTranslator.FromOle(16777215)
     
329. 
     
330.             End If
     
331. 
     
332.         End If
     
333. 
     
334. 
     
335. 
     
336.         If Microsoft.VisualBasic.Left(Get_Spd_Str(G_Col_Tokui, Row, Spd), 3) = "大内段" Then
     
337. 
     
338.             Spd.ActiveSheet.Cells(Row - 1, G_Col_Tokui - 1).BackColor = System.Drawing.ColorTranslator.FromOle(&HC0E0FF)
     
339. 
     
340.         End If
     
341. 
     
342. 
     
343. 
     
344.         If Get_Spd_Num(G_Col_配送CD, Row, Spd) <> 0 Then
     
345. 
     
346.             Spd.ActiveSheet.Cells(Row - 1, G_Col_Haiso - 1).ForeColor = System.Drawing.ColorTranslator.FromOle(CInt(Get_Spd_Str(G_Col_配送文字カラー, Row, Spd)))
     
347. 
     
348.         End If
     
349. 
     
350. 
     
351. 
     
352. 
     
353. 
     
354.         If VBUP.VBUP.Format(Get_Spd_Str(G_Col_Jyuchu_納期, Row, Spd), "YYYY/MM/DD") <= VBUP.VBUP.Format(G_DATE, "YYYY/MM/DD") Then
     
355. 
     
356.             Spd.ActiveSheet.Cells(Row - 1, G_Col_Nouki - 1).BackColor = System.Drawing.ColorTranslator.FromOle(&HC0C0FF)
     
357. 
     
358.         End If
     
359. 
     
360. 
     
361. 
     
362. 
     
363. 
     
364.         Select Case Get_Spd_Num(G_Col_Hari_確定区分, Row, Spd)
     
365. 
     
366.             Case 1
     
367. 
     
368.                 Spd.ActiveSheet.Cells(Row - 1, 0, Row - 1, Spd.MaxCols - 1).Locked = False
     
369. 
     
370.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_KariKakutei.ForeColor
     
371. 
     
372.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_KariKakutei.BackColor
     
373. 
     
374.                 Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).Text = "仮"
     
375. 
     
376.             Case 2, 3
     
377. 
     
378.                 Select Case Get_Spd_Num(G_Col_Hari_直区分, Row, Spd)
     
379. 
     
380.                     Case 1
     
381. 
     
382.                         Spd.ActiveSheet.Cells(Row - 1, 0, Row - 1, Spd.MaxCols - 1).Locked = True
     
383. 
     
384.                         If Get_Spd_Num(G_Col_Hari_確定区分, Row, Spd) = 2 Then
     
385. 
     
386.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_1Tyoku.ForeColor
     
387. 
     
388.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_1Tyoku.BackColor
     
389. 
     
390.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).Text = "1"
     
391. 
     
392.                         Else
     
393. 
     
394.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_Sousin.ForeColor
     
395. 
     
396.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_Sousin.BackColor
     
397. 
     
398.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).Text = "1"
     
399. 
     
400.                         End If
     
401. 
     
402.                     Case 2
     
403. 
     
404.                         Spd.ActiveSheet.Cells(Row - 1, 0, Row - 1, Spd.MaxCols - 1).Locked = True
     
405. 
     
406.                         If Get_Spd_Num(G_Col_Hari_確定区分, Row, Spd) = 2 Then
     
407. 
     
408.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_2Tyoku.ForeColor
     
409. 
     
410.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_2Tyoku.BackColor
     
411. 
     
412.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).Text = "2"
     
413. 
     
414.                         Else
     
415. 
     
416.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).ForeColor = Lbl_Color_Sousin.ForeColor
     
417. 
     
418.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).BackColor = Lbl_Color_Sousin.BackColor
     
419. 
     
420.                             Spd.ActiveSheet.Cells(Row - 1, G_Col_Head - 1).Text = "2"
     
421. 
     
422.                         End If
     
423. 
     
424. 
     
425. 
     
426.                 End Select
     
427. 
     
428.         End Select
     
429. 
     
430.     End Sub
     

复制代码

代码收到，我这里再测试下看能重现出来不。

dexteryao 发表于 2016-12-22 17:41
代码收到，我这里再测试下看能重现出来不。

恩，现在数据条数大约是4000，以后基本是累加的

您好，我看到您代码中有大量的 Get_Spd_Num 方法，不清楚里面有什么逻辑。

我简单造了4000行 200列的数据测试。我这里测试下面的代码只需要4秒。

您在加上  fpSpread1.SuspendLayout(); 和             fpSpread1.ResumeLayout(); 在试试。

1.             label1.Text = DateTime.Now.ToString();
   
2.             fpSpread1.SuspendLayout();
   
3.             fpSpread1.AllowCellOverflow = false;
   
4.             for (var i = 0; i < 4000; i++)
   
5.             {
   
6.                 for (var j = 0; j < 200; j++)
   
7.                 {
   
8.                     if ((i + j) % 2 == 0)
   
9.                     {
   
10.                         fpSpread1.ActiveSheet.Cells[i, j].Locked = true;
    
11.                         fpSpread1.ActiveSheet.Cells[i, j].BackColor = Color.Red;
    
12.                         fpSpread1.ActiveSheet.Cells[i, j].ForeColor = Color.Green;
    
13.                         fpSpread1.ActiveSheet.Cells[i, j].Value = i + "_" + j;
    
14.                     }
    
15.                     else
    
16.                     {
    
17.                         fpSpread1.ActiveSheet.Cells[i, j].Locked = false;
    
18.                         fpSpread1.ActiveSheet.Cells[i, j].BackColor = Color.Green;
    
19.                         fpSpread1.ActiveSheet.Cells[i, j].ForeColor = Color.Red;
    
20.                         fpSpread1.ActiveSheet.Cells[i, j].Value = i + "_" + j;
    
21.                     }
    
22.                 }
    
23.             }
    
24. 
    
25.             fpSpread1.ActiveSheet.Protect = true;
    
26.             fpSpread1.ResumeLayout();
    
27.             label2.Text = DateTime.Now.ToString();

复制代码

dexteryao 发表于 2016-12-23 14:12
您好，我看到您代码中有大量的 Get_Spd_Num 方法，不清楚里面有什么逻辑。

我简单造了4000行 200列的数 ...

我试了一下，fpSpread1.ActiveSheet.Cells[i, j]改成fpSpread1.ActiveSheet.Cells[i, j, i, fpSpread1.ActiveSheet.ColumnCount - 1]就出现了性能问题了。

我的代码里也是这样的逻辑，因为业务需要某一块设置为某种颜色

建议您还是循环单独给cell设置颜色吧，这个还需要再调查下具体问题。

dexteryao 发表于 2016-12-23 17:18
建议您还是循环单独给cell设置颜色吧，这个还需要再调查下具体问题。

……这样的话业务还得梳理下，因为下面的IF条件里面并没有把所有的都给列举出来。