本文介绍了使用VB.NET实现表格的增行与减行功能，包括点击插入按钮时添加新行，点击删除按钮时移除当前选中行的代码实现。
增行减行：
Private Sub BtnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInsert.Click
If Me.GrdDetailInfo.CurrentRow Is Nothing Then
Me.GrdDetailInfo.Rows.Add()
Else
Me.GrdDetailInfo.Rows.Insert(Me.GrdDetailInfo.CurrentRow.Index)
End If
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If Me.GrdDetailInfo.CurrentRow Is Nothing Or Me.GrdDetailInfo.RowCount - 1 = Me.GrdDetailInfo.CurrentRow.Index Then
Return
End If
Me.GrdDetailInfo.Rows.RemoveAt(GrdDetailInfo.CurrentRow.Index)
End Sub
Private Sub BtnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnInsert.Click
If Me.GrdDetailInfo.CurrentRow Is Nothing Then
Me.GrdDetailInfo.Rows.Add()
Else
Me.GrdDetailInfo.Rows.Insert(Me.GrdDetailInfo.CurrentRow.Index)
End If
End Sub
Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If Me.GrdDetailInfo.CurrentRow Is Nothing Or Me.GrdDetailInfo.RowCount - 1 = Me.GrdDetailInfo.CurrentRow.Index Then
Return
End If
Me.GrdDetailInfo.Rows.RemoveAt(GrdDetailInfo.CurrentRow.Index)
End Sub
扫一扫
72
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
