请教各位高手:有关MSHF...的使用.

Question

在一个Form里当点击某一单元格时,所在行数据能在下面的文本编辑框中显示以便修改,当修改完成后(或添加新数据后),能够马上显示出来.刚开始学习VB数据库编程,还请各位高手指点一下,不知哪儿有VB数据编程方面的源程序可下载?刚到这里来,只有100分,还不知怎么用?

Answer 1

用mshf...的selchange属性，
Private Sub MSHFlexGrid2_SelChange()
    With MSHFlexGrid2
        .Row = .RowSel
        .Col = 0
        Text1.Text = .Text
        .Col = 1
        text2.Text = .Text
        .Col = 2
        Text3.Text = .Text
        .Col = 3
        Text4.Text = .Text
    End With
End Sub

Answer 2

文本框做成控件数组。
显示到文本框：
dim i as interger
Private Sub MSHFlexGrid2_SelChange()
with mshflexgrod2 
      for i=1 to .cols
          text1(i-1)=.TextMatrix(.rowsel, i)
      next1 i
end withPrivate Sub text1_LostFocus(Index As Integer)
   with msflexgrod2 
        for i=1 to .cols
            .TextMatrix(.rowsel, i)=text1(i-1)
        next i
   end with
end sub数据库更新你自已可以做的。

Answer 3

Private Sub MSHFlexGrid1_DblClick()
With frm_gzbrowse
.Show
.Top = 1500
.Left = 3690
End With
With MSHFlexGrid1
frm_gzbrowse.id.Caption = .TextMatrix(MSHFlexGrid1.Row, 0)
frm_gzbrowse.name1.Caption = .TextMatrix(MSHFlexGrid1.Row, 1)
frm_gzbrowse.department.Caption = .TextMatrix(MSHFlexGrid1.Row, 2)
frm_gzbrowse.company.Caption = .TextMatrix(MSHFlexGrid1.Row, 3)
frm_gzbrowse.dixin.Caption = .TextMatrix(MSHFlexGrid1.Row, 4)
frm_gzbrowse.jiangjin.Caption = .TextMatrix(MSHFlexGrid1.Row, 5)
frm_gzbrowse.butie.Caption = .TextMatrix(MSHFlexGrid1.Row, 6)
frm_gzbrowse.jbf.Caption = .TextMatrix(MSHFlexGrid1.Row, 7)
frm_gzbrowse.ylj.Caption = .TextMatrix(MSHFlexGrid1.Row, 8)
frm_gzbrowse.ylbx.Caption = .TextMatrix(MSHFlexGrid1.Row, 9)
frm_gzbrowse.zfgjj.Caption = .TextMatrix(MSHFlexGrid1.Row, 10)
frm_gzbrowse.sfgz.Caption = .TextMatrix(MSHFlexGrid1.Row, 11)
frm_gzbrowse.jfsj.Caption = .TextMatrix(MSHFlexGrid1.Row, 12)
End With
End Sub
不知道楼主说的是不是上面这个样子
将MSHF、、、表格中的一行所有数据用其他控件（Textbox、Label、、、）显示出来，我上面的是将表格中的一行数据显示到另一个窗体中的Label控件中