请教动态加载表格后不能显示小数点前面的0?

CREATE CURSOR 表 (日期 D, 比例 N(3,1))
INSERT INTO 表 VALUES (DATE(), 1.0)
INSERT INTO 表 VALUES (DATE(), .5)
INSERT INTO 表 VALUES (DATE(), 0.0)
GO TOP
of = CREATEOBJECT("form1")
of.show(1)

DEFINE CLASS form1 as Form
    ADD OBJECT grid2 as grid
    PROCEDURE init
        Thisform.Grid2.RecordSourceType = 1
        Thisform.Grid2.RecordSource = "表"  
        Thisform.Grid2.ColumnCount =2
        Thisform.Grid2.Columns(1).header1.Caption='日期'
        Thisform.Grid2.Columns(1).ControlSource='日期'
        Thisform.Grid2.Columns(2).header1.Caption='比例'
        Thisform.Grid2.Columns(2).ControlSource='比例'
    ENDPROC
ENDDEFINE