给你个例子: Dim strbuff As String
Dim intfile As Integer
Dim intcol As Integer
Dim introw As Integer
'注意!要先指定最大范围
msflexgrid1.Cols = 4
msflexgrid1.Rows = 6 For introw = 0 To 5
For intcol = 0 To 3
strbuff = Str(introw) + Str(intcol)
msflexgrid1.Col = intcol
msflexgrid1.Row = introw
msflexgrid1.Text = strbuff
Next intcol
Next introw
Dim intfile As Integer
Dim intcol As Integer
Dim introw As Integer
'注意!要先指定最大范围
msflexgrid1.Cols = 4
msflexgrid1.Rows = 6 For introw = 0 To 5
For intcol = 0 To 3
strbuff = Str(introw) + Str(intcol)
msflexgrid1.Col = intcol
msflexgrid1.Row = introw
msflexgrid1.Text = strbuff
Next intcol
Next introw
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货