注册 登录
编程论坛 VB.NET论坛

vb2008如何給第一列賦值

jxyga111 发布于 2011-11-15 15:14, 918 次点击
如圖,如何給圈住的列賦值,
按代碼來說第一列應該是id一欄才對

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDatasetandview()
    End Sub

    Public Sub FillDatasetandview()
        objdataset = New DataSet
        objconnection.Open()
        objdataadApter.Fill(objdataset, "t_table")
        objconnection.Close()
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = objdataset
        DataGridView1.DataMember = "t_table"

        objdataview = New DataView(objdataset.Tables("t_table"))
        objcurrency = CType(Me.BindingContext(objdataview), CurrencyManager)

        'objdataadApter = Nothing
        'objconnection = Nothing

    End Sub




只有本站会员才能查看附件,请 登录


[ 本帖最后由 jxyga111 于 2011-11-15 15:18 编辑 ]
1 回复
#2
不说也罢2011-11-17 13:50
你说的是DataGridView的固定列,可以将其设置为不可见
DataGridView1.RowHeadersVisible = False

如果一定要给该列赋值,参考下面的例子
程序代码:
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        DataGridView1.Rows.Add(5)
        For i = 0 To 4
            DataGridView1.Rows(i).HeaderCell.Value = (i + 1).ToString
        Next
    End Sub

1