vb.net自动增行的简单介绍

vb.net Datagridview添加行

vb.net Datagridview添加行,需要四个按钮,一个datagridview控件。代码如下:

目前成都创新互联公司已为上1000+的企业提供了网站建设、域名、虚拟空间、网站托管运营、企业网站设计、奉节网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'添加行

Me.DataGridView1.Rows.Add()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'添加列

Me.DataGridView1.Columns.Add("1", "on")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'删除行

Me.DataGridView1.Rows.RemoveAt(0)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'删除列

Me.DataGridView1.Columns.RemoveAt(0)

End Sub

End Class

VB.net 如何向DataGridView新增行中填充数据

这样就可以的

DataGridView1.Rows(i).Cells(0).Value = i + 1

RowS指定行,Cells指定列

如何在vb.net中的DataGrid中增加一空白行

VS中的DataGridView控件,在机房重构里的出镜率还是很高哒~这篇博客就把一些有关DataGridView

控件的一些使用细节和大家分享一下!

找到控件:

                

绑定数据源

选中行数代码实现:

DataGridView1.SelectedRows.Count

以增加删除用户窗体中的删除所选行数代码为例:

[vb] view plain copy

Private Sub btnDeleteUser_Click(sender As Object, e As EventArgs) Handles btnDeleteUser.Click

'判断下拉表中是否选择了用户类型

If cmbUserLevel.SelectedItem = "" Then

MsgBox("如需删除用户,请先选择用户类型!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End If

Dim K As Integer = DataGridView1.SelectedRows.Count

Dim FFacade As New Facade.DeleteUserFacade

Dim Uuser As New Entity.AddDeleteUserInfo

Dim strResult As Boolean

'strResult = FFacade.DeleteUserinfo(Uuser)

If DataGridView1.SelectedRows.Count  0 Then '如果选中的行数大于0

For i As Integer = K To 1 Step -1

'获取控件的第N行的第一列数据,得到用户ID,以用户ID为主键来删除整行数据

Dim userinfo As String = DataGridView1.SelectedRows(i - 1).Cells("UserID").Value.ToString

'删除的数据不能为当前登录的用户,需要判断用户ID

If Entity.Share.ID.Trim = userinfo Then

MsgBox("您无法删除当前登录的用户!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Else

Uuser.UserID = userinfo

End If

strResult = FFacade.DeleteUserinfo(Uuser)

'If FFacade.DeleteUserinfo(Uuser) Then

If strResult = True Then

'删除选中行

DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(i - 1).Index)

MsgBox("数据删除成功!", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Next

Else '如果选中的行数不大于0

MsgBox("请您选中所要删除的行!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

'DataGridView1.Rows.Clear()

End If

End Sub

运行图:

常用属性:

1.想把Datagridview的第一行隐藏。     Idea:把RowHeadersVisible属性改为False就可以。

2.DataGridview显示出datatable之后,最后一行有空白行怎么去掉?

Idea:修改AllowUserToAddRow属性为False。


网站标题:vb.net自动增行的简单介绍
文章网址:http://pwwzsj.com/article/hgcode.html