VFP 愛用者社區

BETTY · 註冊時間: 2004-07-28 文章: 8 第 1 樓

不好意思，對VFP不是很熟，但因公司使用VFP寫成的進銷存軟體，最近客戶要求EXCEL的某一欄位太寬，及希望將某一欄隱藏，因為他們不想在自己調整
將查詢後的結果轉成EXCEL
1.如何指定每個欄位的欄寬、屬性、字體大小(貨名欄轉出會太長，能控制在15左右的字元)
2.隱藏某一欄(像A.B.C.D欄，希望把B欄隱藏)
3.表頭為英文(這個我試了好久，都只能轉成小寫，不能只將首字大寫及不能有空格)
希望各位大大能幫學藝不精的我一個大忙^^

BETTY · 註冊時間: 2004-07-28 文章: 8 第 2 樓

附上目前轉出報表的部份
{{mksql_exe;
sele ym(obrlst)+' STOCK' AS Ｄate
,ino as ＲeferenceＮo
,ina as Ｄescription
,qual_no as ＱualityＮo
,item as ＯriginalfactorＮo
,pqty-sqty as ＳtorageＱuantity
,LOOKUP(IB.SPEC,INO,IB.INO) as ＳafetyＳtock
,' ' as ＰipelineＳtock
,IIF(VAL(LOOKUP(IB.SPEC,INO,IB.INO))>(PQTY-SQTY),VAL(LOOKUP(IB.SPEC,INO,IB.INO))-(PQTY-SQTY),0) AS ＥconomicＯrderＱuantity
from qx
order by cno,ino,qual_no
into cursor qc
{{mksql_end;
{{xfilna=obrfst+ym(obrlst)+'stock'
{{copy to,c:\temp\&xfilna,XLS;

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 3 樓

1.搜尋本社區資料一定找得到有關 excel 控制字型的方法.
2.欄寬設成0 ,可達到隱藏某一欄的目的.
3.首字大寫: 將第1個字變大寫+第2字以後變小寫,
不能有空格: strt( 字串 ,' ','')

BETTY · 註冊時間: 2004-07-28 文章: 8 第 4 樓

謝謝您的回覆
其實我已經有搜尋過社區的資料，還是沒找到有關 excel 控制字型的方法，所以才會發問
關於您提到道字大寫的部份，其實一剛始我就是用這種方式，但轉出來的表頭還是變成了小寫，最後我就把第一個字用全型的方式，
另外不另能有空格是指在表頭的部份Ｒeference Ｎo原要在單字間有空格，但不被接受，所以我就先暫時改成ＲeferenceＮo

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 5 樓

jeff25 · 發表於: 星期五十二月 30, 2005 9:35 pm 文章主題:

>>3.首字大寫: 將第1個字變大寫+第2字以後變小寫,
也可以直接用 excel 的函數 proper()
例如: mysheet.cells(1, 1).value ="=proper("+your_string +")"

BETTY · 註冊時間: 2004-07-28 文章: 8 第 7 樓

感謝各位的幫忙，終於結決了^^

bin1x · 註冊時間: 2004-08-27 文章: 462 第 8 樓

BETTY · 註冊時間: 2004-07-28 文章: 8 第 9 樓

不好意思，這個是我們公司購買的軟體，所提供的介面
這個部份是在我們所需的報表可以自行修改及增添，可運用vf的函數在去計算出自訂欄位的的值
呼叫sql的資料庫所做的，我所附的部份是在預覽時就會同時產生excel檔，所產生的欄位及資料放置的位置
舉例：,ino as ＲeferenceＮo =>ino是資料庫的資料欄名稱，as後的是轉xls檔後的表頭欄名稱