Asp.Net中用Aspose 导出Excel报表

  1       Public   Sub  ExportAll( ByVal  sender  As   Object ,  ByVal  e  As  System.Web.UI.ImageClickEventArgs)
  9 
 10           Me .BindData()
 11           Dim  _asposeExcel  As  Aspose.Excel.Excel
 12 
 13          _asposeExcel  =   New  Aspose.Excel.Excel
 14           ' _asposeExcel.Open(Web.HttpContext.Current.Server.MapPath("~/Documents/Templates/OrderFollowUpReportTemplate.xls"))
 15 
 16           ' set styles
 17           Me .setStyles(_asposeExcel)
 18 
 19           Me .buildSheet(_asposeExcel)
 20 
 21           ' Export the Excel file
 22          _asposeExcel.Save( " MyPOListBySeason "   &   Me .m_ItemSeason.DataSetSeason.Seasons.FindBySeasonID( CType ( Me .dropSeason.SelectedItem.Value,  Integer )).Name  &   " .xls " , Aspose.Excel.SaveType.OpenInExcel, Aspose.Excel.FileFormatType.Default,  Me .Page.Response)
 23 
 24 
 25       End Sub
 26 '设置表格样式
 27       Private   Sub  setStyles( ByVal  _asposeExcel  As  Aspose.Excel.Excel)
 28 
 29           ' Add Gray and DarkGray colors to color palette
 30          _asposeExcel.ChangePalette(Drawing.Color.Gray,  54 )
 31          _asposeExcel.ChangePalette(Drawing.Color.LightGray,  55 )
 32 
 33           Dim  _style  As  Aspose.Excel.Style
 34           Dim  _styleIndex  As   Integer
 35 
 36          _styleIndex  =  _asposeExcel.Styles.Add()
 37          _style  =  _asposeExcel.Styles(_styleIndex)
 38          _style.Font.Size  =   14
 39          _style.Font.IsBold  =   True
 40          _style.Font.Name  =   " Times New Roman "
 41          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 42          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 43           Me .SetStyleBorder(_style)  ' SetStyleBorder
 44          _style.Name  =   " styleTopic1 "
 45 
 46          _styleIndex  =  _asposeExcel.Styles.Add
 47          _style  =  _asposeExcel.Styles(_styleIndex)
 48          _style.Font.Size  =   7
 49          _style.Font.IsBold  =   True
 50          _style.Font.Name  =   " Verdana "
 51          _style.Font.Color  =  Drawing.Color.White
 52          _style.IsTextWrapped  =   True
 53          _style.ShrinkToFit  =   True
 54          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 55          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 56          _style.ForegroundColor  =  Drawing.Color.Black
 57           Me .SetStyleBorder(_style)  ' SetStyleBorder
 58          _style.Name  =   " styleHeader1 "
 59 
 60          _styleIndex  =  _asposeExcel.Styles.Add
 61          _style  =  _asposeExcel.Styles(_styleIndex)
 62          _style.Font.Size  =   7
 63          _style.Font.IsBold  =   True
 64          _style.Font.Name  =   " Verdana "
 65          _style.Font.Color  =  Drawing.Color.White
 66          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
 67          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 68          _style.ForegroundColor  =  Drawing.Color.Black
 69           Me .SetStyleBorder(_style)  ' SetStyleBorder
 70          _style.Name  =   " styleHeaderLeft1 "
 71 
 72 
 73          _styleIndex  =  _asposeExcel.Styles.Add
 74          _style  =  _asposeExcel.Styles(_styleIndex)
 75          _style.Font.Size  =   8
 76          _style.Font.Name  =   " Arial "
 77          _style.ForegroundColor  =  Drawing.Color.LightGray
 78          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
 79          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 80          Me .SetStyleBorder(_style)  ' SetStyleBorder
 81          _style.Name  =   " styleHeader2 "
 82 
 83          _styleIndex  =  _asposeExcel.Styles.Add
 84          _style  =  _asposeExcel.Styles(_styleIndex)
 85          _style.Font.Size  =   8
 86          _style.Font.Name  =   " Arial "
 87          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
 88          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 89           Me .SetStyleBorder(_style)  ' SetStyleBorder
 90          _style.Name  =   " styleValue1 "
 91 
 92          _styleIndex  =  _asposeExcel.Styles.Add
 93          _style  =  _asposeExcel.Styles(_styleIndex)
 94          _style.Font.Size  =   8
 95          _style.Font.IsBold  =   True
 96          _style.Font.Name  =   " Arial "
 97          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 98          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
 99           Me .SetStyleBorder(_style)  ' SetStyleBorder
100          _style.Name  =   " styleValueBoldCenter1 "
101 
102          _styleIndex  =  _asposeExcel.Styles.Add
103          _style  =  _asposeExcel.Styles(_styleIndex)
104          _style.Font.Size  =   8
105          _style.Font.IsBold  =   True
106          _style.Font.Name  =   " Arial "
107          _style.ForegroundColor  =  Drawing.Color.Gray
108          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
109          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
110          Me .SetStyleBorder(_style)  ' SetStyleBorder
111          _style.Name  =   " styleHeader3 "
112 
113          _styleIndex  =  _asposeExcel.Styles.Add
114          _style  =  _asposeExcel.Styles(_styleIndex)
115          _style.Font.Size  =   8
116          _style.Font.IsBold  =   True
117          _style.Font.Name  =   " Arial "
118          _style.ForegroundColor  =  Drawing.Color.LightGray
119          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
120          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
121           Me .SetStyleBorder(_style)  ' SetStyleBorder
122          _style.Name  =   " styleValueCustomer "
123 
124 
125          _styleIndex  =  _asposeExcel.Styles.Add
126          _style  =  _asposeExcel.Styles(_styleIndex)
127          _style.Font.Size  =   7
128          _style.Font.Name  =   " Arial "
129          _style.IsTextWrapped  =   True
130          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
131          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
132           ' _style.Borders.SetStyle(Aspose.Excel.CellBorderType.Thin)
133          Me .SetStyleBorder(_style)  ' SetStyleBorder
134          _style.Name  =   " styleValueLeftWrap1 "
135 
136          _styleIndex  =  _asposeExcel.Styles.Add
137          _style  =  _asposeExcel.Styles(_styleIndex)
138          _style.Font.Size  =   9
139          _style.Font.Name  =   " Arial "
140          _style.HorizontalAlignment  =  Aspose.Excel.TextAlignmentType.Left
141          _style.VerticalAlignment  =  Aspose.Excel.TextAlignmentType.Center
142           Me .SetStyleBorder(_style)  ' SetStyleBorder
143          _style.Name  =   " styleRemarks1 "
144 
145       End Sub
146 '创建表格的行与列，并填充所有行
147       Private   Sub  buildSheet( ByVal  _asposeExcel  As  Aspose.Excel.Excel)
148           Dim  _CustomerID  As   Integer   =   0
149           Dim  _SupplierID  As   Integer   =   0
150           Dim  _SeasonOrderRowByCustomer  As  SeasonOrderDataSet.VW_SeasonOrderRow
151           Dim  _SeasonOrderRowBySupplier  As  SeasonOrderDataSet.VW_SeasonOrderRow
152           Dim  _SeasonOrderRows  As  SeasonOrderDataSet.VW_SeasonOrderRow()
153           Dim  _SeasonOrderRow  As  SeasonOrderDataSet.VW_SeasonOrderRow
154           Dim  _tempCell  As  ExcelCellCoordinate
155           Dim  _rowIndex  As   Integer
156           Dim  _Cells1  As  Aspose.Excel.Cells
157           ' Dim _SeasonRow As SeasonDataset.SeasonsRow
158           ' _SeasonRow = Me.m_ItemSeason.DataSetSeason.Seasons.FindBySeasonID(Me.dropSeason.SelectedItem.Value)
159 
160          _Cells1  =  _asposeExcel.Worksheets( 0 ).Cells
161 
162 
163           ' fill season name
164           ' _Cells1(0, 1).PutValue(_SeasonRow.Name)
165           ' _Cells1(0, 1).Style.Font.IsItalic = True
166 
167           ' Date
168           '  _Cells1(0, 9).PutValue("Date: " & Now.Date.ToString("dd-MMM-yy"))
169 
170           ' locked the tables start Coordinate
171           Me .startCellOfPOListTable  =   New  ExcelCellCoordinate( 0 ,  0 )
172 
173           ' *********************************** My authorized PO list table *************************************************
174          _tempCell  =   New  ExcelCellCoordinate( Me .startCellOfPOListTable.RowIndex,  Me .startCellOfPOListTable.ColumnIndex)
175           ' First row
176           ' POID
177          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " POID " )
178          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeaderLeft1 " )
179          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  3 )
180          _tempCell.ColumnIndex  +=   1
181           ' Lot
182          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Lot " )
183          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
184          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  4 )
185          _tempCell.ColumnIndex  +=   1
186           ' style
187          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Style " )
188          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
189          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  5 )
190          _tempCell.ColumnIndex  +=   1
191           ' Qty
192          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Qty " )
193          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
194          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  5 )
195 
196          _tempCell.ColumnIndex  +=   1
197           ' Supplier shipment date
198          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Sup.Ship " )
199          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
200          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  6 )
201          _tempCell.ColumnIndex  +=   1
202           ' Customer shipment date
203          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Cus.Ship " )
204          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
205          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  6 )
206          _tempCell.ColumnIndex  +=   1
207           ' ETD
208          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " ETD " )
209          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
210          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  6 )
211          _tempCell.ColumnIndex  +=   1
212           ' QtyShipped
213          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " QtyShipped " )
214          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
215          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  9.5 )
216          _tempCell.ColumnIndex  +=   1
217           ' Customer LC No.
218          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " CusLCNo " )
219          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
220          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  11 )
221          _tempCell.ColumnIndex  +=   1
222           ' Supplier LC No.
223          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " SupLCNo " )
224          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
225          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  7 )
226          _tempCell.ColumnIndex  +=   1
227           ' Invoice No.
228          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Inv.No " )
229          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
230          _Cells1.SetColumnWidth(_tempCell.ColumnIndex,  5 )
231          _tempCell.ColumnIndex  +=   1
232           ' Status
233          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " Status " )
234          _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader1 " )
235          _tempCell.ColumnIndex  +=   1
236 
237           ' Value rows
238           Me .startCellOfPOListTable.RowIndex  +=   1
239          _tempCell  =   New  ExcelCellCoordinate( Me .startCellOfPOListTable.RowIndex,  Me .startCellOfPOListTable.ColumnIndex)
240           ' Customer
241           For   Each  _CustomerID  In   Me .m_ArrayCustomersID
242               If  _CustomerID  <>   0   Then
243                  _tempCell.RowIndex  =   Me .startCellOfPOListTable.RowIndex
244                  _SeasonOrderRowByCustomer  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString)( 0 )
245                   ' Customer Rows
246                  _Cells1.Merge(_tempCell.RowIndex, _tempCell.ColumnIndex,  1 ,  12 )
247                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(_SeasonOrderRowByCustomer.CustomerName)
248                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader3 " )
249                   Me .startCellOfPOListTable.RowIndex  +=   1
250 
251                   ' Supplier
252                   For   Each  _SupplierID  In   Me .getSupplierByCustomerID(_CustomerID)
253                       Me .startCellOfPOListTable.ColumnIndex  =   0
254                      _tempCell.RowIndex  =   Me .startCellOfPOListTable.RowIndex
255                      _SeasonOrderRowBySupplier  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " SupplierID= "   &  _SupplierID.ToString)( 0 )
256                       ' Supplier Rows
257                      _Cells1.Merge(_tempCell.RowIndex, _tempCell.ColumnIndex,  1 ,  12 )
258                      _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(_SeasonOrderRowBySupplier.SupplierName)
259                      _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleHeader2 " )
260                       Me .startCellOfPOListTable.RowIndex  +=   1
261                       ' Order lot Rows
262                       ' if user  is in role "Manager" or is head office user ,show all
263                       If  Garzone.User.isUserInRoles( " Manager " , HttpContext.Current.User)  Or  Garzone.User.isHeadOfficeUser( CType (Context.User.Identity.Name,  Integer ))  Then
264                           If  OrderReportsUser  =   True   Then
265                              _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   " and  "   &  sqlstr,  " OrderID ASC,CustomerShipmentDate ASC " )
266                           Else
267                              _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   " and StatusID in (5,8,9,10) " ,  " OrderID ASC,CustomerShipmentDate ASC " )
268                           End   If
269 
270                       Else
271                           ' if user is logistic user,show local office PO
272                           Dim  _RowUser  As  UserDataset.UsersRow
273                          _RowUser  =   Me .m_ItemUser.DatasetUser.Users.FindByUserID( CType (Context.User.Identity.Name,  Integer ))
274                           If  _RowUser.Department  =  User.Departments.Logistic  Then
275                               If  OrderReportsUser  =   True   Then
276                                  _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   "  and OfficeID= "   &  _RowUser.OfficeID.ToString  &   "  and  "   &  sqlstr,  " OrderID ASC,CustomerShipmentDate ASC " )
277                               Else
278                                  _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   "  and OfficeID= "   &  _RowUser.OfficeID.ToString  &   "  and StatusID in (5,8,9,10) " ,  " OrderID ASC,CustomerShipmentDate ASC " )
279                               End   If
280                           Else
281                               ' if user is Merchandiser,show the PO according to the buyer coordinator or UserInCharge
282                               If  Customer.hasAccessToBuyer(_SeasonOrderRowBySupplier.BuyerID, HttpContext.Current)  =   True   Or  _SeasonOrderRowBySupplier.UserIDIncharge  =   CType (Context.User.Identity.Name,  Integer )  Then
283                                   If  OrderReportsUser  =   True   Then
284                                      _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   "  and  "   &  sqlstr  &   "  and (UserIDInCharge= "   &   CType (Context.User.Identity.Name,  Integer )  &   "  or BuyerId= "   &  _SeasonOrderRowBySupplier.BuyerID  &   " ) " ,  " OrderID ASC,CustomerShipmentDate ASC " )
285                                   Else
286                                      _SeasonOrderRows  =   Me .m_Item.SeasonOrderDataSet.VW_SeasonOrder.Select( " CustomerID= "   &  _CustomerID.ToString  &   "  and SupplierID= "   &  _SupplierID.ToString  &   "  and StatusID in (5,8,9,10) "   &   "  and (UserIDInCharge= "   &   CType (Context.User.Identity.Name,  Integer )  &   "  or BuyerId= "   &  _SeasonOrderRowBySupplier.BuyerID  &   " ) " ,  " OrderID ASC,CustomerShipmentDate ASC " )
287                                   End   If
288                               End   If
289                           End   If
290                       End   If
291                       For   Each  _SeasonOrderRow  In  _SeasonOrderRows
292                          _tempCell  =   New  ExcelCellCoordinate( Me .startCellOfPOListTable.RowIndex,  Me .startCellOfPOListTable.ColumnIndex)
293                           With  _SeasonOrderRow
294                               ' POID
295                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.OrderID.ToString)
296                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
297                              _tempCell.ColumnIndex  +=   1
298                               ' Lot
299                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.LotName)
300                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
301                              _tempCell.ColumnIndex  +=   1
302                               ' style
303                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.StyleNumber)
304                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
305                              _tempCell.ColumnIndex  +=   1
306                               ' Qty
307                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( FormatNumber (.QuantityOrdered,  0 ))
308                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
309                              _tempCell.ColumnIndex  +=   1
310                               ' Supplier shipment date
311                               If  .IsSupplierShipmentDateNull  =   False   Then
312                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.SupplierShipmentDate.ToString( " dd-MMM-yy " ))
313                               Else
314                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
315                               End   If
316                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
317                              _tempCell.ColumnIndex  +=   1
318                               ' Customer shipment date
319                               If  .IsCustomerShipmentDateNull  =   False   Then
320                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.CustomerShipmentDate.ToString( " dd-MMM-yy " ))
321                               Else
322                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
323                               End   If
324                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
325                              _tempCell.ColumnIndex  +=   1
326                               ' ETD
327                               If  .IsETADateNull  =   False   Then
328                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.ETADate.ToString( " dd-MMM-yy " ))
329                               Else
330                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
331                               End   If
332                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
333                              _tempCell.ColumnIndex  +=   1
334                               ' QtyShipped
335                               If  .IsQuantityShippedNull  =   False   Then
336                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( FormatNumber (.QuantityShipped,  0 ))
337                               Else
338                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
339                               End   If
340                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
341                              _tempCell.ColumnIndex  +=   1
342                               ' Customer LC No.
343                               If  .IsCustomerLCNull  =   False   Then
344                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.CustomerLC)
345                               Else
346                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
347                               End   If
348                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
349                              _tempCell.ColumnIndex  +=   1
350                               ' Supplier LC No.
351                               If  .IsSupplierLCNull  =   False   Then
352                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.SupplierLC)
353                               Else
354                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
355                               End   If
356                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
357                              _tempCell.ColumnIndex  +=   1
358                               ' Inv No.
359                               If  .IsInvoiceNumberNull  =   False   Then
360                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.InvoiceNumber)
361                               Else
362                                  _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue( " - " )
363                               End   If
364                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
365                              _tempCell.ColumnIndex  +=   1
366                               ' PO status
367                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).PutValue(.Status)
368                              _Cells1(_tempCell.RowIndex, _tempCell.ColumnIndex).Style  =  _asposeExcel.Styles( " styleValueLeftWrap1 " )
369                              _tempCell.ColumnIndex  +=   1
370                           End   With
371 
372                           ' Next excel row
373                           Me .startCellOfPOListTable.RowIndex  +=   1
374                          _tempCell.ColumnIndex  =   0
375                       Next
376 
377                   Next
378 
379               End   If
380           Next
381           ' auto fit the rows
382           For  _rowIndex  =   2   To  _tempCell.RowIndex
383              _asposeExcel.Worksheets( 0 ).AutoFitRow(_rowIndex)
384           Next
385 
386       End Sub
387 '/声明Excel表格属性
388  #Region  " Inner Class "
389       Private   Class  ExcelCellCoordinate
390           Private  m_rowIndex  As   Integer
391           Private  m_columnIndex  As   Byte
392 
393           Public   Property  RowIndex()  As   Integer
394               Get
395                   Return  m_rowIndex
396               End   Get
397               Set ( ByVal  Value  As   Integer )
398                  m_rowIndex  =  Value
399               End   Set
400           End Property
401 
402           Public   Property  ColumnIndex()  As   Byte
403               Get
404                   Return  m_columnIndex
405               End   Get
406               Set ( ByVal  Value  As   Byte )
407                  m_columnIndex  =  Value
408               End   Set
409           End Property
410 
411           Public   Sub   New ( ByVal  rowIndex  As   Integer ,  ByVal  columnIndex  As   Byte )
412               Me .m_rowIndex  =  rowIndex
413               Me .m_columnIndex  =  columnIndex
414           End Sub
415       End Class
416  #End Region
417 
418'/设置单元格边框
419       Private   Sub  SetStyleBorder( ByVal  _style  As  Aspose.Excel.Style)
420          _style.Borders(Aspose.Excel.BorderType.LeftBorder).LineStyle  =  Aspose.Excel.CellBorderType.Thin
421          _style.Borders(Aspose.Excel.BorderType.RightBorder).LineStyle  =  Aspose.Excel.CellBorderType.Thin
422          _style.Borders(Aspose.Excel.BorderType.TopBorder).LineStyle  =  Aspose.Excel.CellBorderType.Thin
423          _style.Borders(Aspose.Excel.BorderType.BottomBorder).LineStyle  =  Aspose.Excel.CellBorderType.Thin
424       End Sub

转载于:https://www.cnblogs.com/liujuncm5/archive/2007/11/16/961402.html