189 8069 5689
1）在VB代码前添加行号需借助第三方控件或自己添加在代码行前。
成都服务器托管，成都创新互联提供包括服务器租用、绵阳服务器托管、带宽租用、云主机、机柜租用、主机租用托管、CDN网站加速、域名注册等业务的一体化完整服务。电话咨询：18980820575
Private Sub Form_Load()
0 Dim cnn As New Connection
1 Dim rs As New Recordset
2 Dim sql As String
3 Dim ARR
5 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False"
6 sql = "select 故障名称 from guzhang_bm"
7 rs.Open sql, cnn
8 Combo1.Text = "故障名称"
9 Do While Not rs.EOF
10 Combo1.AddItem rs("故障名称")
11 rs.MoveNext '打开表
12 Loop
13 rs.Close
14 cnn.Close
End Sub
用来识别一行代码。行号可以是任何数值的组合，在使用行号的模块内，该组合是唯一的。行号必须在从一列开始。
2）VB的集成IDE编程窗口的工具栏中有行号和列号显示。
vb.net Datagridview添加行，需要四个按钮，一个datagridview控件。代码如下：
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
也不是很熟悉，将就用吧。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With ListView1
.Columns.Add("姓名")
.Columns.Add("年龄")
.Columns.Add("姓别")
End With
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Static Index As Integer
Index += 1
If ListView1.SelectedIndices.Count 0 Then '如果有选中则插入
Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Insert(ListView1.SelectedIndices.Item(0) + 1, "李丫" Index)
lItem.SubItems.AddRange(Split("24,女", ","))
Else '否则添加
Dim lItem As System.Windows.Forms.ListViewItem = ListView1.Items.Add("李丫" Index)
lItem.SubItems.AddRange(Split("24,女", ","))
End If
End Sub
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。
可先计算出文本框TextBox1中的总行数，然后在行号框TextBox2中填上从1到总行数的行号。
再用API函数GetScrollPos分别获得文本框和行号框当前行号，最后再使用API函数SendMessage使行号框的行号滚动到对应的行数。
因为文本框的滚动条没有滚动事件，可以暂时使用一个Timer定时刷新，虽然方法笨了点，但暂时只能这么用了
代码如下：
Private Declare Function GetScrollPos Lib "user32" (ByVal handle As IntPtr, ByVal nbar As Integer) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a as integer
a = GetScrollPos(TextBox1.Handle, 1)
Dim b as integer
b = GetScrollPos(TextBox2.Handle, 1)
SendMessage(TextBox2.Handle, HB6, 0, a-b)
End Sub
这个简单，用到DataTable的copy方法即可
如原始表是tb，则
Dim tb1 As DataTable = tb.Copy
接下来在tb1中添加删除即可
最后绑定tb1不就得了