2013年12月 VB大版内专家分月排行榜第二2013年3月 VB大版内专家分月排行榜第二2013年1月 VB大版内专家分月排行榜第二2012年9月 VB大版内专家分月排行榜第二2012年8月 VB大版内专家分月排行榜第二2012年7月 VB大版内专家分月排行榜第二2006年7月 VB大版内专家分月排行榜第二2006年5月 VB大版内专家分月排行榜第二
2014年9月 VB大版内专家分月排行榜第三2013年7月 VB大版内专家分月排行榜第三2013年6月 VB大版内专家分月排行榜第三2013年4月 VB大版内专家分月排行榜第三2012年11月 VB大版内专家分月排行榜第三2006年6月 VB大版内专家分月排行榜第三2006年4月 VB大版内专家分月排行榜第三2002年12月 VB大版内专家分月排行榜第三2002年11月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。VB程序设计:双击MSHFlexGrid中的某一行,如何在新窗口中获得其中的数据
我的图书馆
VB程序设计:双击MSHFlexGrid中的某一行,如何在新窗口中获得其中的数据
我用的VB程序设计,窗口中有一MSHFlexGrid1控件,其中存放c:\放射科报告数据.mdb数据文件的内容(其中共有5列:照片号\姓名\性别\年龄\诊断意见),想实现:双击MSHFlexGrid1控件中的一行,在新窗口中的五个文本框中显示对应数据内容.-----------------------------问你用的是什么，如是Adodc的话，如下是可以的，我都用的是这种方法，即绑定方法；这个代码一般放在窗体加载form_load即可，希望满足你的要求。Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\.Persist Security Info=False"&&&& '将路径更改成你的路径</mandType = adCmdTextAdodc1.RecordSource = "Select * from Information" '名称Set MSHFlexGrid1.DataSource = Adodc1& ‘绑定到中Set Text1.DataSource = Adodc1Set Text2.DataSource = Adodc1Set Text3.DataSource = Adodc1Set Text4.DataSource = Adodc1Set Text5.DataSource = Adodc1Text1.DataField = "照片号"& '将字段值赋给给对应的文本框Text2.DataField = "姓名"Text3.DataField = "性别"Text4.DataField = "年龄"Text5.DataField = "诊断意见"
Adodc1.RecordSource = "Select * from Information" '名称
上面的Information改成你的数据表名称，还有注意更改路径。
先谢谢再说.
你好,我按你所说的方法,每次双击MSHFlexGrid1中的一行,在文本框中显示的均是第一条记录,如何改为每次双击一行,文本框中的数据是所点击行的数据呢?谢谢请赐教.
Private Sub MSFlexGrid1_DblClick()&&& Dim r As Long&&& With Me.MSFlexGrid1&&&&&&& r = .MouseRow&&&&&&& If r &= .FixedRows And r & .Rows Then&&&&&&&&&&&&'.TextMatrix (r, c) 是单元格的内容 ,r是行，c 是列,自己写会了吧
&&&&&&& End If&&& End WithEnd Sub
非常感谢,我是按你的方法如下编写的:
Private Sub MSHFlexGrid1_DblClick()Dim r As Long&&& With Me.MSFlexGrid1&&&&&&& r = .MouseRow&&&&&&& If r &= .FixedRows And r & .Rows Then&&&&&&&&Text42.Text = MSHFlexGrid1.TextMatrix(r, 照片号)
&&&&&&& End If&&& End With
但出现如下问题:
谢谢,刚才是我的不对,按你的方法,成功了.感谢.
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&VB6.0&MSHFlexGrid控件添加数据三种方法
1.绑定到数据源
&<img STYLE="MArGin: 0px 2px -3px 0px" ALT="程序代码" src="/blog7style/images/common/sg_trans.gif" real_src ="/images/code.gif"
TITLE="VB6.0&MSHFlexGrid控件添加数据三种方法" />程序代码
Option Explicit
Dim objConn As ADODB.Connection
Dim objRs As ADODB.Recordset
Private Sub Form_Load()
On Error Resume Next
Set objConn = New ADODB.Connection
Set objRs = New ADODB.Recordset
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\demo3."
objConn.Open
objRs.CursorLocation = adUseClient
objRs.Open "Select ProductId,ProductName,Discontinued FROM
Products", objConn, adOpenStatic, adLockReadOnly
Set MSHFlexGrid1.DataSource = objRs
If Err.Number && 0 Then
MsgBox Err.Description
On Error GoTo 0
Private Sub Form_Unload(Cancel As Integer)
'不操作此步会出错：The current row is not available
If TypeName(MSHFlexGrid1.DataSource) && "Nothing" Then
Set MSHFlexGrid1.DataSource = Nothing
If TypeName(objRs) && "Nothing" Then
objRs.Close
Set objRs = Nothing
If TypeName(objConn) && "Nothing" Then
objConn.Close
Set objConn = Nothing
2.使用AddItem方法添加数据
<img STYLE="MArGin: 0px 2px -3px 0px" ALT="程序代码" src="/blog7style/images/common/sg_trans.gif" real_src ="/images/code.gif"
TITLE="VB6.0&MSHFlexGrid控件添加数据三种方法" /> 程序代码
MSHFlexGrid1.Cols = 5
MSHFlexGrid1.AddItem vbTab & "1" & vbTab & "2" &
vbTab & "3" & vbTab & "4"
MSHFlexGrid1.AddItem vbTab & "5" & vbTab & "6" &
vbTab & "7" & vbTab & "8"
MSHFlexGrid1.AddItem vbTab & "9" & vbTab & "10" &
vbTab & "11" & vbTab & "12"
MSHFlexGrid1.AddItem vbTab & "13" & vbTab & "14" &
vbTab & "15" & vbTab & "16"
'删除默认空白行
'此操作不能放在 MSHFlexGrid1.Cols = 5 后，否则出错: Cannot remove last non-fixed
MSHFlexGrid1.RemoveItem (1)
3.逐一单元格添加数据
<img STYLE="MArGin: 0px 2px -3px 0px" ALT="程序代码" src="/blog7style/images/common/sg_trans.gif" real_src ="/images/code.gif"
TITLE="VB6.0&MSHFlexGrid控件添加数据三种方法" /> 程序代码
Dim i, j, k As Integer
'设置行列数
With MSHFlexGrid1
MSHFlexGrid1.Row = 0
For i = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.Text = "列" & i
For i = 1 To MSHFlexGrid1.Rows - 1
For j = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = i
MSHFlexGrid1.Col = j
MSHFlexGrid1.Text = k
说明：添加部件"Microsoft Hierarchical FlexGrid Control 6.0
(OLEDB)"才能使用MSHFlexGrid
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行
怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行
发布时间： 20:35:07
编辑：www.fx114.net
本篇文章主要介绍了"怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行
0"，主要涉及到怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行
0方面的内容，对于怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行
0感兴趣的同学可以参考一下。
怎样使MSHFlexGrid控件和记录集绑定后，怎么使一开始就选中第一行？
因为我设置了MSHflexgrid选中时的颜色，每当使它绑定后，总是只选中某一个单元格的，我已经设置了它是MSFlexGrid1.SelectionMode&=flexSelectionByRow,可是一开始还不行的，只有点击之后才是以行选中的,这是为什么啊，我应该怎么解决啊?顶一下该回复被版主删除
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：