易截截图软件、单文件、免安装、纯绿色、仅160KB

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

我用MSHFlexgrid显示查询得出的若干条数据。(MSHFlexgrid有固定行1行,没有固定列!)

请问怎样使当我在点击其中的某条数据的时候,该条数据的内容分别显示到Form中对应的文本框当中。


例如,当点击MSHFlexgrid的第4行时:
                     
                      第4行第3列显示到Text1,

                          第4行第6列显示到Text2,

                      第4行第9列显示到Text3.
                 

Private Sub MSHFlexGrid1_Click()
    For i = 0 To MSHFlexGrid1.Cols - 1
        Text1(i).Text = MSHFlexGrid1.TextMatrix(.Row, i)
    Next
End Sub

Leftie起得好早呀

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
举左手,要为人民币服务!

关注!

text1.text=msflexgrid1.textmatrix(msflexgrid1.row,2)
text2.text=msflexgrid1.textmatrix(msflexgrid1.row,5)


相关问答:

vb打印问题

大家好,问个vb打印问题


printer.print "dsff"
.....
....


Printer.EndDoc


打印成功后我将执行

sqlstr = "update vc_yh set pr=' 已打印 ', ......

求教下VB如何给D3D游戏写屏 - VB / API

想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......

VB 字符问题

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

大家好,我用上面一个东西赋值  TF1.text = & ......

VB 请教高手关于用户控件问题

我制作了个用户控件,需要动态加载到窗体上

    Set objExt = Controls.Add("工程1.meActiveX", argName)
    objExt.Visible = True

程序一次能加载N个, 现在想对 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号