| 查看: 1129 | 回复: 3 | ||
[求助]
怎样把MSFlexGrid中某一列的数据读出来
|
|
把某一个数据表植入到MSFlexGrid控件的行和列（相当于把数据复制过来）， 现在想读取某一列中连续几个数据，读到数组或文本中，求哪位高手帮忙指点一二，或者贴个代码。本人不甚感激。 存在的困难：1.怎样判断选取的是哪些数据，即光标或单元格问题。 2.怎样准确读取这些数据，并存放在数组中或文本中。 |
回复此楼» 猜你喜欢
澳大利亚 Murdoch University 全奖博士招生（3个名额）地质化工冶金领域
已经有24人回复
-
阿姨
已经有4人回复
-
一作与独作在应聘高校教师时区别大吗
已经有4人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有9人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有18人回复
-
静等基金结果
已经有21人回复
-
FileCode能看出啥？
已经有28人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有6人回复
-
filecode
已经有16人回复
-
重要来源：本周末出结果
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 地质数据处理课件 spss软件应用
已经有105人回复
- 有一个晶体数据解不了。哪位高手帮忙一下
已经有6人回复
- 怎样询问自己的论文将在哪一期发表
已经有4人回复
- 求助 药理新手 数据处理
已经有5人回复
- 电脑断电，MS里的数据还能继续运算么
已经有5人回复
- 数据太大 EXCEL导入不了
已经有3人回复
- 怎样连接抗体和生物素？sulfo-NHS-LC-biotin在哪里买？
已经有7人回复
- 挪威奥斯陆大学招收“Smart Grid Communications”方向phd
已经有3人回复
- 如何根据DNA测序来判断蛋白质的序列呢？
已经有9人回复
- 2010年审核增列的博士和硕士学位授权一级学科名单
已经有1人回复
- 【讨论】如何在origin8.0中给数据去脉冲
已经有3人回复
- SPSS和SAS对同一数据的分析结果不同？
已经有5人回复
- 【Pure water】A road map to ease traffic gridlock in China
已经有3人回复
【答案】应助回帖
ziyouxia5(金币+5): 2011-08-10 09:40:47
|
你看看这里，方法是大同小异的，代码改一下即可 http://hi.baidu.com/xuyile510824 ... deeeaaff6222df534b7 >>得到MSFlexGrid控件中当前选中的一行 msflexgrid1.rowsel就是当前选中行 列的话，就是colsel |
2楼2011-08-09 00:13:06
【答案】应助回帖
★
xzhdty(金币+1): 谢谢jjdg斑斑 2011-08-09 09:49:55
ziyouxia5(金币+5): 非常感谢 2011-08-10 09:41:08
xzhdty(金币+1): 谢谢jjdg斑斑 2011-08-09 09:49:55
ziyouxia5(金币+5): 非常感谢 2011-08-10 09:41:08
|
【转】 读取EXCEL并在MSFLexGrid显示http://www.vbzy.com/Software.asp?id=247 或 读取Excel文件中的数据,并显示在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 |
3楼2011-08-09 00:16:15
4楼2011-08-10 09:39:55
