| 4 | 1/1 | 返回列表 |
| 查看: 1030 | 回復(fù): 3 | |||
[求助]
怎樣把MSFlexGrid中某一列的數(shù)據(jù)讀出來
|
|
把某一個數(shù)據(jù)表植入到MSFlexGrid控件的行和列(相當(dāng)于把數(shù)據(jù)復(fù)制過來), 現(xiàn)在想讀取某一列中連續(xù)幾個數(shù)據(jù),讀到數(shù)組或文本中,求哪位高手幫忙指點一二,或者貼個代碼。本人不甚感激。 存在的困難:1.怎樣判斷選取的是哪些數(shù)據(jù),即光標(biāo)或單元格問題。 2.怎樣準(zhǔn)確讀取這些數(shù)據(jù),并存放在數(shù)組中或文本中。 |

版主 (知名作家)
|
你看看這里,方法是大同小異的,代碼改一下即可 http://hi.baidu.com/xuyile510824 ... deeeaaff6222df534b7 >>得到MSFlexGrid控件中當(dāng)前選中的一行 msflexgrid1.rowsel就是當(dāng)前選中行 列的話,就是colsel |

版主 (知名作家)
|
【轉(zhuǎn)】 讀取EXCEL并在MSFLexGrid顯示http://www.vbzy.com/Software.asp?id=247 或 讀取Excel文件中的數(shù)據(jù),并顯示在MSFlexGrid表格中 Private Sub GetExcelValue() Dim errMessage As String Dim iRows As Integer Dim iCols As Integer Dim jOut As Integer Dim kOut As Integer Dim objExcel As Excel.Application Dim objWorkBook As Excel.Workbook Dim objSheet As Excel.Worksheet Dim objRange As Excel.Range On Error GoTo err Set objExcel = New Excel.Application Set objWorkBook = objExcel.Workbooks.Open(Me.txtFileName.Text) Set objSheet = objWorkBook.ActiveSheet Set objRange = objSheet.UsedRange iRows = objRange.Rows.count iCols = objRange.Columns.count For jOut = 1 To iRows If Trim$(objSheet.Cells(jOut, 2)) = vbNullString Then Exit For For kOut = 1 To iCols With dbgDispaly .TextMatrix(jOut, kOut - 1) = Trim$(objSheet.Cells(jOut, kOut)) '只需將此句代碼改一下即可 End With Next dbgDispaly.Rows = dbgDispaly.Rows + 1 prbDaoLu.Value = jOut / iRows * 100 Next prbDaoLu.Value = 0 objWorkBook.Close Set objSheet = Nothing Set objWorkBook = Nothing Set objExcel = Nothing err: errMessage = "第" & "[" & err.Number & "]" & "號錯誤" & " " & err.Description If err.Number <> 0 Then MsgBox errMessage, vbCritical, "錯誤" End If End Sub |


| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[基金申請]
學(xué)校已經(jīng)提交到NSFC,還能修改嗎?
40+3
|
babangida 2026-03-19 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 一志愿中南化學(xué)337求調(diào)劑 +4 | niko- 2026-03-19 | 5/250 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +6 | 困于星晨 2026-03-17 | 8/400 |
|
|
[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +5 | 脫穎而出 2026-03-16 | 14/700 |
|
|
[考研]
|
.6lL 2026-03-18 | 7/350 |
|
|
[考研] 288求調(diào)劑 +15 | 于海海海海 2026-03-19 | 15/750 |
|
|
[考研] 266求調(diào)劑 +5 | 陽陽哇塞 2026-03-14 | 10/500 |
|
|
[考研] 085600材料與化工求調(diào)劑 +6 | 緒幸與子 2026-03-17 | 6/300 |
|
|
[考研] 287求調(diào)劑 +3 | 晨昏線與星海 2026-03-19 | 4/200 |
|
|
[考研] 0817調(diào)劑 +3 | 沒有答案_ 2026-03-14 | 3/150 |
|
|
[考研] 0703化學(xué)調(diào)劑,求各位老師收留 +10 | 秋有木北 2026-03-14 | 10/500 |
|
|
[考研] 328求調(diào)劑,英語六級551,有科研經(jīng)歷 +3 | 生物工程調(diào)劑 2026-03-17 | 7/350 |
|
|
[考研] 344求調(diào)劑 +6 | knight344 2026-03-16 | 7/350 |
|
|
[考研] 一志愿武理材料305分求調(diào)劑 +5 | 想上岸的鯉魚 2026-03-18 | 6/300 |
|
|
[考研] 085600材料與化工 +5 | 安全上岸! 2026-03-16 | 5/250 |
|
|
[考研] 297求調(diào)劑 +8 | 戲精丹丹丹 2026-03-17 | 8/400 |
|
|
[考研]
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
[考研] 26考研一志愿中國石油大學(xué)(華東)305分求調(diào)劑 +3 | 嘉年新程 2026-03-15 | 3/150 |
|
|
[考研] 中科大材料與化工319求調(diào)劑 +3 | 孟鑫材料 2026-03-14 | 3/150 |
|
|
[考研] 304求調(diào)劑 +7 | 7712b 2026-03-13 | 7/350 |
|