| 查看: 992 | 回复: 3 | |||
[求助]
怎样把MSFlexGrid中某一列的数据读出来
|
|
把某一个数据表植入到MSFlexGrid控件的行和列（相当于把数据复制过来）， 现在想读取某一列中连续几个数据，读到数组或文本中，求哪位高手帮忙指点一二，或者贴个代码。本人不甚感激。 存在的困难：1.怎样判断选取的是哪些数据，即光标或单元格问题。 2.怎样准确读取这些数据，并存放在数组中或文本中。 |
回复此楼» 猜你喜欢
求助:我三月中下旬出站，青基依托单位怎么办？
已经有8人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有8人回复
-
磺酰氟产物，毕不了业了！
已经有5人回复
-
论文终于录用啦！满足毕业条件了
已经有25人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有3人回复
-
自荐读博
已经有3人回复
-
不自信的我
已经有5人回复
-
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 地质数据处理课件 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
- 金币: 51003.4
- 红花: 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
- 金币: 51003.4
- 红花: 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