插入的效果就是我改变土壤层数，在下面可以出来与土壤层数一样多的行。具体详见附件。

不说是什么控件?

我也不知道什么控件能实现这个效果，最好是文本控件，但是我担心很难实现。只要能做到像附件中的效果什么控件都可以。

表格控件设置行数没这么困难吧，试试MSHFlexGrid控件。

Option Explicit
Dim r As Integer
Private Sub Command1_Click()
  r = Val(Text1.Text)
  If r < 2 Then Exit Sub
  MSHFlexGrid1.Rows = r + 1
End Sub

Sub Init_Grid()
  MSHFlexGrid1.Cols = 9
  MSHFlexGrid1.TextMatrix(0, 0) = "序号↓"
  MSHFlexGrid1.TextMatrix(0, 1) = "地基系数m"
  MSHFlexGrid1.TextMatrix(0, 2) = "极限侧阻力"
  MSHFlexGrid1.TextMatrix(0, 3) = "内摩阻角"
  MSHFlexGrid1.TextMatrix(0, 4) = "有效重度"
  MSHFlexGrid1.TextMatrix(0, 5) = "凝聚力"
  MSHFlexGrid1.TextMatrix(0, 6) = "极限端阻力"
  MSHFlexGrid1.TextMatrix(0, 7) = "厚度"
  MSHFlexGrid1.TextMatrix(0, 8) = "土类别Δ"
End Sub

Private Sub Form_Load()
  Init_Grid
End Sub

更多关于MSHFlexGrid的设置和操作,自己查查资料.


[ 本帖最后由 lianyicq 于 2015-8-6 11:20 编辑 ]

哦，这样啊，本人刚刚接触VB不久，仅了解一些二级教材里面提到的内容，像您刚刚说的控件不是VB打开后默认就有的，我还是第一次听说~

谢谢您一直以来的耐心回复~

工程-部件-Microsoft Hierarchical FlexGrid Con......

感谢，实在是太感谢了~

你好，根据您上次的指导，关于MSFlexGrid控件的基本应用已经掌握了，现在 又遇到一个问题：如何在MSFlexGrid控件中添加下拉框？
烦请指导下，谢谢~~