| 查看: 986 | 回复: 3 | ||
[求助]
怎样把MSFlexGrid中某一列的数据读出来
|
|
把某一个数据表植入到MSFlexGrid控件的行和列（相当于把数据复制过来）， 现在想读取某一列中连续几个数据，读到数组或文本中，求哪位高手帮忙指点一二，或者贴个代码。本人不甚感激。 存在的困难：1.怎样判断选取的是哪些数据，即光标或单元格问题。 2.怎样准确读取这些数据，并存放在数组中或文本中。 |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
地质数据处理课件 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人回复
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51002.6
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
【答案】应助回帖
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
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51002.6
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
【答案】应助回帖
★
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