想請問一下 我有一個 dw中 放置入 要輸入成extel的出貨
其中 dw有欄位 條碼，名稱，期限，出貨量，出貨金額，出貨計......
---------------------------------------------------------------------------------------------------------------------
以下 是我轉成extel的程式碼 (因為程式碼多，先簡述部分....)
INT ret,c
oleobject xlApp //宣告Excel應用程式物件
xlApp = Create OLEObject
OLEObject obook3,xlsub4
ret = xlApp.ConnectToNewObject( "Excel.Sheet" ) //打開自動化物件
c=1
string ls_file3
ls_file3="C:\e1.xls"
obook3=xlApp.Application.Workbooks.Open(ls_file3) //打開檔案
xlsub4 = xlapp.Application.ActiveWorkbook.Worksheets[1] //激活第一頁
xlapp.Application.visible=true
ppc=dw_2.ROWCOUNT()
xlsub4.cells[1,8].Value =sle_5.text
xlsub4.cells[1,2].Value =sle_6.text
xlsub4.cells[2,2].Value = sle_3.text
xlsub4.cells[2,3].Value = sle_4.text
xlsub4.cells[3,2].Value = sle_10.text
xlsub4.cells[3,3].Value = sle_9.text
long 合計
合計=0
for c=1 to ppc
xlsub4.cells[c+6,1].Value = string(c)
xlsub4.cells[c+6,2].Value = string(dw_2.getitemstring(c,"條碼"))
xlsub4.cells[c+6,3].Value = string(dw_2.getitemstring(c,"名稱"))
xlsub4.cells[c+6,4].Value = string(date(dw_2.getitemdate (c,"期限")),"yyyy/mm/dd")
xlsub4.cells[c+6,5].Value = string(dw_2.getitemstring(c,"出貨量"))
xlsub4.cells[c+6,6].Value = string(dw_2.getitemstring(c,"出貨價"))
xlsub4.cells[c+6,7].Value = string(dw_2.getitemstring(c,"出貨計"))
**********************************************************************************************************************
其中 因為有時候 出貨數量是0 (因為根據對方下單)
所以 可以讓 出貨數量0 的產品條碼 不要列印出來嗎?? 只要印出 0以上的出貨量
例如 : 目前的extel出貨
條碼 名稱 期限 出貨量 出貨價 小計
a100 螺斯01 2015-01-01 1000 10 10000
a154 螺絲45 2011-01-25 300 8 2400
b612 螺母01 0000-00-00 0 8 0
b621 螺母05 0000-00-00 0 3 0
a177 螺絲22 2011-11-02 300 8 2400
.
這樣會列印出 出貨量0 的品項
可以設定成 只列印出 有出貨量的品項 例如 以下方式
條碼 名稱 期限 出貨量 出貨價 小計
a100 螺斯01 2015-01-01 1000 10 10000
a154 螺絲45 2011-01-25 300 8 2400
a177 螺絲22 2011-11-02 300 8 2400
.
.
請問 該怎樣設定語法 謝謝
uj5u.com熱心網友回復：
建議再生成一個DW，或在匯出前過濾一下。uj5u.com熱心網友回復：
匯出資料前，先把DW中的資料過濾一下。dw.setfilter('出貨量 > 0 ')
dw.filter()
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/92161.html
標籤：腳本語言
上一篇：求助:用MSComm32.ocx控制元件做的串口通訊程式，在串口選擇不對時如何才能出一個正常的提示而不退出程式呢？