Question

vb6.0将excel导入到mshflexgrid后，显示的数据小数不对，这么改

我是vb6.0的初学者，怎么设置mshflexgrid中的数据格式成“0.00”
Dim chart1 As New ADODB.Connection, chart2 As New ADODB.Recordset
chart1.CursorLocation = adUseClient
chart1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
chart2.Open "select * From [sheet1$]", chart1, adOpenKeyset, adLockOptimistic
Set Me.MSHFlexGrid1.DataSource = chart2

Answer 1

再加一段:
For i = 0 To MSHFlexGrid1.Rows - 1
MSHFlexGrid1.Row = i
For j = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Text = Format(MSHFlexGrid1.Text, "0.00")
Next j
Next i

追问

我试过了，要把MSHflexgrid.text改成MShflexgrid.textmatrix(i,j)

Answer 2

这种只能是一个一个往MSHFlexGrid的网格中添加才能设置！