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

Question

这是原程序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")
不知道怎么能做到！！！请教！！！

Answer 1

For i1 = 1 To 10 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 
循环不对，这样显示的是第二列到第十一列

Answer 2

对,是显示的是第二列到第十一列 这是原程序 
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") 
第十一列又是 MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value   
不知道怎么能做到！！！ 请教！！！ 

Answer 3

For i1 = 1 To 10 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 在内层循环这里分段好了For i1 = 0 To 1 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 
For i1 = 2 To 9
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 
For i1 = 10 To 结束 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 

Answer 4

For i1 = 0 To 1 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next 
For i1 = 2 To 9 
            MSHFlexGrid1.TextMatrix(i, i1) = Format(Adodc1.Recordset.Fields(i1).Value,"0.0") Next 
For i1 = 10 To 结束 
            MSHFlexGrid1.TextMatrix(i, i1) = Adodc1.Recordset.Fields(i1).Value 
Next