这个代码只能获取某一行的某一列  求大神指教

要写个循环输出一整列
我也才学~你试试

[此贴子已经被作者于2019-7-7 22:18编辑过]

Private Sub Command1_Click()
  Dim i As Long
  For i = 0 To MSHFlexGrid1.Rows - 1
      Text1 = Text1 & MSHFlexGrid1.TextMatrix(i, 2)
  Next
End Sub

e恩 谢谢   想着连同表格格式一起过去
这个只能移动内容么  

TextBox控件只能放文本内容，网格是格式，怎么放得进去？
如果你想带格式的输出，那么就放在另一个网格里面。

这个  该如何设计呢，我见过成品 但是自己设计一个却不会么  能请教些么  我qq 214378095

Private Sub Command2_Click()
  Dim i As Long
  MSHFlexGrid2.Rows = MSHFlexGrid1.Rows
  MSHFlexGrid2.Cols = 2
  For i = 0 To MSHFlexGrid1.Rows - 1
      MSHFlexGrid2.TextMatrix(i, 1) = MSHFlexGrid1.TextMatrix(i, 2)
  Next
End Sub

非常感谢  ，按照你给的  弄成功了么    我想着 能不能移动一行呢？这样的代码怎么写？

for循环那段话你看懂了吗？如果看懂了，列换成行你就会做了。

恩  谢谢你么  弄好了

[此贴子已经被作者于2019-7-19 19:15编辑过]