请问,怎么在dagagrid中增加一列用来显示序号,或者怎样在行标头中显示序号?
zhmvb 2006-04-13 03:33:32 window窗体中的dagagrid是在程序里写的程序邦定的,然后又加了样式:
Private Sub dgListDataBind()
Dim dgStyle As New DataGridTableStyle
Me.sqlStr = "select * from TBL_WATCH_NOTE order by indate Desc"
ds.Clear()
ds = mydb.ExeToDataset(sqlStr, mydb.GetConn(Self.Connections.业务库))
dgStyle.BackColor = Color.WhiteSmoke
dgStyle.MappingName = ds.Tables(0).TableName
Me.dgList.TableStyles.Clear()
Me.dgList.TableStyles.Add(dgStyle)
Me.dgList.DataSource = ds.Tables(0).DefaultView
Me.dgList.TableStyles(0).GridColumnStyles("NOTEID").Width = 0
Me.dgList.TableStyles(0).GridColumnStyles("USERNAME").HeaderText = "值班人"
Me.dgList.TableStyles(0).GridColumnStyles("Leader").HeaderText = "带班人"
Me.dgList.TableStyles(0).GridColumnStyles("Replacer").HeaderText = "替班人"
Me.dgList.TableStyles(0).GridColumnStyles("NOTE").HeaderText = "内容"
Me.dgList.TableStyles(0).GridColumnStyles("NOTE").Width = 300
Me.dgList.TableStyles(0).GridColumnStyles("TM").HeaderText = "发布日期"
Me.dgList.TableStyles(0).GridColumnStyles("INDATE").Width = 0
End Sub
现在想给dagagrid中加一列用来显示序号,或者在行标头中显示序号,请问该怎么做?