VB_如何使MSHFlexgrid的内容显示到文本框中?

Question

本帖最后由 NHGIGGS 于 2009-09-09 02:42:41 编辑

Answer 1

private sub mshflexgrid_click()
    with mshflexgrid
        text1.text=.textmatrix(.row,2)
        text2.text=.textmatrix(.row,5)
        text3.text=.textmatrix(.row,8)
    end with
end sub

Answer 2

Private Sub MSHFlexGrid1_Click()
    For i = 0 To MSHFlexGrid1.Cols - 1
        Text1(i).Text = MSHFlexGrid1.TextMatrix(.Row, i)
    Next
End SubLeftie起得好早呀

Answer 3

private sub mshflexgrid_click()
    with mshflexgrid
        text1.text=.textmatrix(.row,2)
        text2.text=.textmatrix(.row,5)
        text3.text=.textmatrix(.row,8)
    end with
end sub
举左手,要为人民币服务!

Answer 4

text1.text=msflexgrid1.textmatrix(msflexgrid1.row,2) 
text2.text=msflexgrid1.textmatrix(msflexgrid1.row,5) 
text3.text=msflexgrid1.textmatrix(msflexgrid1.row,8) 
对于msflexgrid控件，单击时 text属性表示选中格的内容 row属性表示选中格的行 col属性表示选中格的列 
其中row col 都是从0 开始计数的  
textmatrix(行，列)表示想要第几行第几列的内容

Answer 5

private sub mshflexgrid_click()
    with mshflexgrid
        text1.text=.textmatrix(.row,2)
        text2.text=.textmatrix(.row,5)
        text3.text=.textmatrix(.row,8)
    end with
end sub