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打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
大家好,我用上面一个东西赋值 TF1.text = & ......
我制作了个用户控件,需要动态加载到窗体上
Set objExt = Controls.Add("工程1.meActiveX", argName)
objExt.Visible = True
程序一次能加载N个, 现在想对 ......