Local oFont As StdFont                  
oFont = Createobject('StdFont')   
oFont.Name =Iif(Empty(页脚字体),"Verdana",页脚字体)
oFont.Size =Iif(页脚fontsize=0,9,页脚fontsize)   ——怎么oFont.Size 变成货币型？按说应该是数值型啊

这是哪？报表？

StdFont類設計的Size屬性就是貨幣類型，這種數據類型並不僅僅指貨幣，而是指精確的浮點數，與普通浮點數不能表達某些數値不同，它的表達範圍較窄，但絕無誤差。這個類型設計的Size屬性，是字體文件限制著的，它有一定的取値範圍（實際上那是非連續的枚舉値），比如，你把10賦値給Size，它實際上是9.75，而賦値9則仍然是9，這應該是TureType字體算法造成的。

你運行一下這個程序就知道了：

CLEAR
oFont = CREATEOBJECT("StdFont")
WITH oFont
    ? "Name = ", .Name, "Size = ", .Size, "VarType = ", VARTYPE(.Size)
    FOR nValue = 6 TO 40
        .Size = nValue
        ? "Size = ", .Size
    NEXT
ENDWITH
RELEASE oFont
RETURN

要学习的东西真多。

应该尽自己最大努力去学习

真是学无止境，高手如云啊！凭着二十年的功力，原以为自己也算是“高手”了吧？现在看，自己最多也不过才爬到半山腰……

你的武功也8濑

非常感谢你的回答，但在VFP中取得的FONTsize是数值型，那应该怎么转换？用CAST AS简单转换过来可以吗？

使用 CAST()函数可在不同数据类型之间转换，如下所示：
i = 100                && 数值型
? vartype(i)           && 显示 N
j = cast(i as y)       && 将 i 转换成货币型
？ vartype(j)          && 显示 Y
k = cast(j as n(10,2)) && 将货币型转换成数值型
? vartype(k)           && 显示 N