请问如何实现下面的界面呢?比如输入最上面的文本框中的数据后,点击添加按钮,就会在下面的
表格中添加一行并编号(不限于3行),然后如果输入有问题可以修改表中的数据或者删除这一行重新添加。谢谢!
最好是能有代码,不行告诉我用哪些控件或者进行哪些操作,真心感谢!
关于VB中输入数据绘制表格的问题
答案:1 悬赏:30
解决时间 2021-04-28 02:12
- 提问者网友:爱你等于作孽
- 2021-04-27 21:26
最佳答案
- 二级知识专家网友:24K纯糖
- 2021-04-27 22:27
'用了一个VB自带的MSHFlexGrid1表格控件
Option Explicit
Private Sub Command1_Click()
With MSHFlexGrid1
.AddItem .Rows & vbTab & "第1列的内容" & vbTab & "第2列的内容" & vbTab & "第3列的内容"
End With
End Sub
Private Sub Command2_Click()
With MSHFlexGrid1
MsgBox .TextMatrix(.Row, .Col)
End With
End Sub
Private Sub Form_Load()
With MSHFlexGrid1
.FixedRows = 1
.Rows = 1 '设置共有几行
.Cols = 6 '设置共有几列
.TextMatrix(0, 1) = "第1列"
.TextMatrix(0, 2) = "第2列"
.TextMatrix(0, 3) = "第3列"
End With
End Sub
Option Explicit
Private Sub Command1_Click()
With MSHFlexGrid1
.AddItem .Rows & vbTab & "第1列的内容" & vbTab & "第2列的内容" & vbTab & "第3列的内容"
End With
End Sub
Private Sub Command2_Click()
With MSHFlexGrid1
MsgBox .TextMatrix(.Row, .Col)
End With
End Sub
Private Sub Form_Load()
With MSHFlexGrid1
.FixedRows = 1
.Rows = 1 '设置共有几行
.Cols = 6 '设置共有几列
.TextMatrix(0, 1) = "第1列"
.TextMatrix(0, 2) = "第2列"
.TextMatrix(0, 3) = "第3列"
End With
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息