| 查看: 1123 | 回复: 3 | |||
[求助]
怎样把MSFlexGrid中某一列的数据读出来
|
|
把某一个数据表植入到MSFlexGrid控件的行和列（相当于把数据复制过来）， 现在想读取某一列中连续几个数据，读到数组或文本中，求哪位高手帮忙指点一二，或者贴个代码。本人不甚感激。 存在的困难：1.怎样判断选取的是哪些数据，即光标或单元格问题。 2.怎样准确读取这些数据，并存放在数组中或文本中。 |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有7人回复
-
【2027博士申请】纳米药物递送方向
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 地质数据处理课件 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
20