Question

vb怎么将表格里的数据 导入到text2中，求 大神指导。表格是msflexgrid控件

Answer 1

Private Sub MSFlexGrid1_Click()
Dim r As Integer, c As Integer
r = MSFlexGrid1.MouseRow
c = MSFlexGrid1.MouseCol
Text2.Text = MSFlexGrid1.TextMatrix(r, c)

End Sub

追问

是表中除了灰色部分，全部的数据一起输入到text

追答

用循环循环MSFlexGrid1.TextMatrix(r, c)
text2=text2 & MSFlexGrid1.TextMatrix(r, c)
也可以用中间变量连接，然后再赋值给text2

追问

现在能输出全部数据，但是数字都连在一起了，怎么用逗号分开，没有数据的表格容易产生连续两个逗号的情况，怎么解决。你帮了很大的忙了，真是感激不尽

追答

if(MSFlexGrid1.TextMatrix(r, c)"") then text2=text2 & MSFlexGrid1.TextMatrix(r, c) & ","