重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net添加行的简单介绍

如何在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 datagridview 无法添加行

默认是可以添加行并编辑单元格的

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.ResizeRedraw = True

Dim ff As New DataGridView

ff.ReadOnly = False‘在这里设置是否可编辑单元格

ff.Parent = Me

ff.AllowUserToAddRows = True'这里设置是否显示添加新行

ff.Columns.Add("aa", "啊啊")

End Sub

vb.net datatable插入行

这个简单,用到DataTable的copy方法即可

如原始表是tb,则

Dim tb1 As DataTable = tb.Copy

接下来在tb1中添加删除即可

最后绑定tb1不就得了

VB.net 可以在一个打开着的Excel里添加数据行吗?

VB.NET2008代码:

Dim xlapp1 As Excel.Application

Dim xlworksheet As Excel.Worksheet

Dim xlworkbk As Excel.Workbook

xlapp1 = New Excel.Application

xlworkbk = xlapp1.Workbooks.Open("Excel文件名")

xlworksheet = xlworkbk.Worksheets("Sheet名")

xlworksheet.Cells.Item(行编号, 列编号).value ="需要输入的数据"

xlworkbk.Close()

另外,xlworksheet.UsedRange.Rows.Count是最大行数,可以用这个算行编号。

注意,需要引用Microsoft Excel Object Library(在COM的那个选项卡里)。


名称栏目:vb.net添加行的简单介绍
当前链接:http://cqcxhl.com/article/hjojjc.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP