VFP 愛用者社區

[jerryclt]

Win-7 下的 VFP9 真令人大開眼界 @@"
像下圖這種情形,
我還不知怎麼樣才能辦到...有點給它傻眼了!
有大大了解是什麼狀況下會變成這樣的?
感恩~

[king_wisely]

試試更改字型成細明體看看

[jerryclt]

[syntech]

我想你應該重新檢查是不是在其他地方設定了不同的字型
(或者你忽略了幫每個COLUMN設定正確的字型及SIZE)

沒圈起來的是 微軟正黑體 12 號字

圈起來的可能是 新細明體,或是細明體,也可能是使用 FIXEDSYS 等固定字距字型造成的FONTSIZE 不一致 (看起來FONTSIZE是8 )的情況.


你可以用
ThisForm.Grid1.SetAll("FONTNAME", "微軟正黑體")
一次做好設定

[jerryclt]

browse_font='微軟正黑體'
browse_size=12

依範例圖是三個資料表格:
SELECT * FROM ot01h WHERE ot01h_001=&_aproc[1] AND !EMPTY(ot01h_007);
　ORDER BY ot01h_003 INTO CURSOR _tmpf
IF _TALLY>0
　SELECT _tmpf
　INDEX ON ot01h_001+ot01h_003 TAG ot01h_001 ADDITIVE
　SET RELATION TO ot01h_007 INTO oor01,ot01h_007 INTO oor01a ADDITIVE && 見鬼的就是 oor01,oor01a 這兩個
　SELECT _tmpf
　DO FORM 見鬼的form LINKED
　.
　.
　.
ENDIF



在grid1.init內的片段程式碼:
WITH this
　.setall('Alignment',2,'Header')
　.setall('Alignment',0,'Column')
　.setall('FontName',browse_font,'Column')
　.setall('FontSize',browse_size,'Column')
　.setall('FontName',browse_font,'header')
　.setall('FontSize',browse_size,'header')

　.allowheadersizing=.F.
　.allowrowsizing=.F.
　.deletemark=.F.
　.recordmark=.F.
　.headerheight=FONTMETRIC(1,browse_font,browse_size)+IIF(FONTMETRIC(5,browse_font,browse_size)=0,4,FONTMETRIC(5,browse_font,browse_size))*2
　.rowheight=FONTMETRIC(1,browse_font,browse_size)*(__cnt1+1)+IIF(FONTMETRIC(5,browse_font,browse_size)=0,4,FONTMETRIC(5,browse_font,browse_size))*(__cnt1+2)


經過連測349875693245小時後發現...關鍵在於

SELECT * FROM ot01h WHERE ot01h_001=&_aproc[1] AND !EMPTY(ot01h_007);
　ORDER BY ot01h_003 INTO CURSOR _tmpf

上面這段是沒那個見鬼的情形發生,
然而之前發生的那段是:

SELECT * FROM ot01a WHERE ot01a_001=&_aproc[1];
　ORDER BY ot01a_002 INTO CURSOR _tmpf
IF _TALLY>0
　SELECT _tmpf
　INDEX ON ot01a_001+ot01a_002 TAG ot01a_001 ADDITIVE
　SET RELATION TO ot01a_004 INTO oor01,ot01a_004 INTO oor01a ADDITIVE
　SELECT _tmpf
　DO FORM 見鬼的form LINKED
　.
　.
　.
ENDIF

語法上應該都沒錯,
而ot01a只是較少欄位的ot01h版本,
看圖例可知資料都有正常出現,

其至把出現問題的ot01a那段SELECT-SQL拿掉,
只用oor01去關聯oor01a又正常.....
很詭異...不知究竟是什麼因素造成圖示出現的那種情形 @@

[syntech]

你的COLUMN是隨CURSOR產生,還是預先設好的?

如果是隨CURSOR產生,
你應該注意生成時間造成的影響.




GRID 的FONTNAME 是什麼?
應該不是微軟正黑體吧

[jerryclt]

回S大大,

column是隨cursor產生的...
如果說是生成順序造成的話,
我套了其它兩個cursor上去都正常,
唯讀套上 ot01a 時就會出現這種現象,
目前正在研究一件或許有關聯的事:
在 ot01a 裡的總欄位數正好是5個,
而relation的那兩個cursor顯示正常的部份也只有前5個欄位,
其中好像有什麼干係......


另外,
grid的fontname是它的預設值,
也就是我們看到圖例中錯誤的那部份!

[syntech]

你應該已經可以解決這個問題了.
所有的資訊你都有了.

^_^

[jerryclt]

奶奶個熊的,
沒想到事過兩年才找到問題的癥結點...(切

就是 只設了5個欄位的字體和大小,
多出來的欄位給忘了...QQ~