MSFlexGrid控件要如何添加内容?

[eggshell_sy]

.

[miaoweijun]

拷贝了一段代码请参考

While ByRefNum <> 0
For i = 1 To ByRefNum
Me.GrdFileStatusList.Rows = Me.GrdFileStatusList.Rows + 1
iRecordTotal = iRecordTotal + 1
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 0) = CStr(iRecordTotal)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 1) = Format(typChohyo(i).TuwaID, "000000000")
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 2) = Format(typChohyo(i).CyohyoID, "0000")
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 3) = StrConv(typChohyo(i).SheetID, vbUnicode)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 4) = StrConv(typChohyo(i).SheetName, vbUnicode)

strTmp = StrConv(typChohyo(i).SyoriStatus, vbUnicode)
strTmp = FncDelNullInStr(strTmp)

Select Case strTmp
Case "00":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "擣幆懸偪"
Case "01":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "擣幆拞"
Case "02":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "擣幆姰椆"
Case "10":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "廋惓懸偪"
Case "11":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "廋惓拞"
Case "12":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "廋惓姰椆"
Case "13":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "廋惓曐棷"
Case "14":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "廋惓曐棷曄峏拞"
Case "20":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "巇暘懸偪"
Case "21":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "巇暘姰椆"
Case "22":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "巇暘拞"
Case "23":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "巇暘曐棷"
Case "24":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "巇暘曐棷曄峏拞"
Case "90":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "攋婞"
Case "91":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "庢崬嵪"
Case "92":
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 5) = "徚嫀嵪"
End Select

Me.GrdFileStatusList.TextMatrix(iRecordTotal, 6) = CStr(typChohyo(i).NinsikiCode)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 7) = CStr(typChohyo(i).NinsikiErrorCode1)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 8) = CStr(typChohyo(i).NinsikiErrorCode2)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 9) = Chr(typChohyo(i).ImageFlag)
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 10) = Format(StrConv(typChohyo(i).ReviseDate, vbUnicode), "yyyy/mm/dd hh:mm")
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 11) = Format(typChohyo(i).Reviser, "0000")
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 12) = Format(StrConv(typChohyo(i).JyusinEndTime, vbUnicode), "yyyy/mm/dd hh:mm")


If typChohyo(i).Type0 = 48 Then
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 13) = "俥俙倃"
ElseIf typChohyo(i).Type0 = 49 Then
Me.GrdFileStatusList.TextMatrix(iRecordTotal, 13) = "僟僀儗僋僩"
End If

Next i

ByRefNum = SHORI_KANSU
lngRet = DBA_UTY_GetChohyoTableData(lngSessionID, typChohyo(1), ByRefNum)
If lngRet <> 0 Then
Call FuncTrace4VB("Call DBA_UTY_GetChohyoTableData Failed!")
FAXOCR_DB_FreeAdoSessionID (lngSessionID)
CmdQuery.Enabled = True
MsgBox TIP_DBERROR, vbOKOnly + vbExclamation, TIP_DIALOG_CAPTION

[zhenxizhou]

如果你想在第1行，第0列添加“文本”这个字符串
1.msflexgrid1.matrixtext(1,0)="文本"
2.msflexgrid1.col=0
msflexgrid1.row=1
msflexgrid1.text="文本"

[zhenxizhou]

对不起，记错了，有可能是textmatrix(1,0)

[eggshell_sy]

msflexgrid1.matrixtext 我怎么找不到有这个属性?????