Dim aaa As StdDataFormat
    Dim ColTest As Column    Set aaa = New StdDataFormat
    aaa.Type = fmtCustom
    aaa.Format = "$0.00"    Set ColTest = dbgrd_View.Columns(2)
    ColTest.DataFormat = aaa----------------出错:未找到方法或数据成员