| 4 | 1/1 | 返回列表 |
| 查看: 1041 | 回復(fù): 3 | |||
[求助]
怎樣把MSFlexGrid中某一列的數(shù)據(jù)讀出來
|
|
把某一個數(shù)據(jù)表植入到MSFlexGrid控件的行和列(相當(dāng)于把數(shù)據(jù)復(fù)制過來), 現(xiàn)在想讀取某一列中連續(xù)幾個數(shù)據(jù),讀到數(shù)組或文本中,求哪位高手幫忙指點一二,或者貼個代碼。本人不甚感激。 存在的困難:1.怎樣判斷選取的是哪些數(shù)據(jù),即光標或單元格問題。 2.怎樣準確讀取這些數(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ā)表 | |
|---|---|---|---|---|
|
[考研] 0856材料化工調(diào)劑 總分330 +11 | zhubinhao 2026-03-27 | 11/550 |
|
|---|---|---|---|---|
|
[考研] 一志愿北化085600材料專碩275|有文章專利|求調(diào)劑 +7 | Micky11223 2026-03-25 | 7/350 |
|
|
[考研] 求調(diào)劑 +3 | QiMing7 2026-03-25 | 4/200 |
|
|
[考研] 317分 一志愿南理工材料工程 本科湖工大 求調(diào)劑 +6 | 芋泥小鈴鐺 2026-03-28 | 6/300 |
|
|
[考研] 322求調(diào)劑 +5 | 舊吢 2026-03-24 | 5/250 |
|
|
[考研] 0703本科鄭州大學(xué)求調(diào)劑 +3 | nhj_ 2026-03-25 | 3/150 |
|
|
[考研] 266分,求材料冶金能源化工等調(diào)劑 +7 | 哇呼哼呼哼 2026-03-27 | 9/450 |
|
|
[考研] 311求調(diào)劑 +3 | 希望上岸阿小楊 2026-03-23 | 3/150 |
|
|
[考研] 085404求調(diào)劑,總分309,本科經(jīng)歷較為豐富 +4 | 來財aa 2026-03-25 | 4/200 |
|
|
[考研] 0703化學(xué)求調(diào)劑,各位老師看看我。。 +5 | 祁祺祺 2026-03-25 | 5/250 |
|
|
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +4 | 哇呼哼呼哼 2026-03-26 | 4/200 |
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
[考研] 考研調(diào)劑 +10 | 呼呼?~+123456 2026-03-24 | 10/500 |
|
|
[考研] 材料求調(diào)劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
[考研] 打過很多競賽,085406控制工程300分,求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
[考研] 生物技術(shù)與工程 +3 | 1294608413 2026-03-25 | 4/200 |
|
|
[考研] 284求調(diào)劑 +15 | Zhao anqi 2026-03-22 | 15/750 |
|
|
[考研] 333求調(diào)劑 +3 | ALULU4408 2026-03-23 | 3/150 |
|