回 帖 发 新 帖 刷新版面

主题:关于MSHFlexGrid1控件显示ACCESS数据库数据的问题

这是原程序 


If Adodc1.Recordset.RecordCount > 0 Then 
    For i = 1 To Adodc1.Recordset.RecordCount 
    MSHFlexGrid1.AddItem "" 
        For i1 = 1 To 10 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
        Next 
        Adodc1.Recordset.MoveNext 
    Next 
End If 


我想  MSHFlexGrid1 中第二列到第九列 显示改成MSHFlexGrid1.TextMatrix(i, i1) = Format(Adodc1.Recordset.Fields(i1).Value,"0.0") 


不知道怎么能做到!!! 

请教!!! 
 
 
 

回复列表 (共3个回复)

沙发

MSHFlexGrid1好像不能删除,只能显示。

板凳


MSHFlexGrid1.TextMatrix(i, i1) = Format(Adodc1.Recordset.Fields(i1).Value,"0.0") 


'显示小数点后一位数.
MSHFlexGrid1.TextMatrix(i, i1) = round(Adodc1.Recordset.Fields(i1).Value,1)
 

3 楼

别笑话我,我是刚进来的新手,不知MSHFlexGrid1.TextMatrix是什么意思?是MSHFlexGrid1里的单元格吧.是不是?

我来回复

您尚未登录,请登录后再回复。点此登录或注册