| 查看: 1149 | 回复: 3 | ||
[求助]
怎样把MSFlexGrid中某一列的数据读出来
|
|
把某一个数据表植入到MSFlexGrid控件的行和列（相当于把数据复制过来）， 现在想读取某一列中连续几个数据，读到数组或文本中，求哪位高手帮忙指点一二，或者贴个代码。本人不甚感激。 存在的困难：1.怎样判断选取的是哪些数据，即光标或单元格问题。 2.怎样准确读取这些数据，并存放在数组中或文本中。 |
回复此楼» 猜你喜欢
如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》
已经有3人回复
-
今日不放榜？网传国自然预计 8 月 27 日可查结果
已经有21人回复
-
能否退出参与的面上项目解除限项
已经有17人回复
-
估计是周四
已经有4人回复
-
我面上完蛋了
已经有9人回复
-
2026国自然函评费到账
已经有18人回复
-
建议基金发布提前给出明确的时间点
已经有15人回复
-
范进中举一文的中心思想
已经有7人回复
-
朋友圈看到的
已经有9人回复
-
让我中一个面上吧！
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 地质数据处理课件 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
