主题:关于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")
不知道怎么能做到!!!
请教!!!
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")
不知道怎么能做到!!!
请教!!!