如何在数据网格中添加sr no [英] how to add sr no in data grid
本文介绍了如何在数据网格中添加sr no的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我想在数据网格中添加一个没有列的列如何为下面的代码添加
私有 Sub Button_Click_1(发件人 As 对象,e As RoutedEventArgs)
Dim dt 作为 新 DataTable()
Dim SearchCriteria = cmbSearch.Text
dt.Columns.Add( 作者, GetType ( String ))
dt.Columns.Add ( 标题, GetType (< span class =code-keyword> String ))
dt.Columns.Add( AccessionNo, GetType (字符串))
dt.Columns.Add( 位置, GetType ( String ))
dt.Columns.Add(< span class =code-string> 状态, GetType (字符串))
Dim xmldoc 作为 < span class =code-keyword> New XmlDocument()
xmldoc.Load( C:\ Users \Shahrukh \Documents\Visual Studio 2012 \Projects \Simple search1 \Simple search1 \New folder \ Data.xml)
Dim nodeList As XmlNodeList = xmldoc.SelectNodes( / NewDataSet / Table)
如果 SearchCriteria = 作者 然后
对于 每个节点 As XmlNode 在 nodeList
Dim dtrow As DataRow = dt.NewRow()
如果( LCase(节点( 作者)。InnerText).Contains(LCase(txtSearch.Text()) ))然后
dtrow( Title )= node( title)。InnerText ' 已修复
dtrow( 作者) = node( 作者)。InnerText
dtrow( AccessionNo)= node( AccessionNo)。InnerText
dtrow( 位置) = node( location)。InnerText ' fixed
dtrow( Status )= node( status)。InnerText ' fixed
dt.Rows.Add(dtrow)
结束 如果
下一步
结束 如果
dGridResults.ItemsSource = dt.DefaultView
结束 Sub
解决方案
试试这个。未经测试。
私有 Sub Button_Click_1 (发件人作为 对象,e 作为 RoutedEventArgs )
Dim dt As 新 DataTable()
Dim SearchCriteria = cmbSearch.Text
dt.Columns.Add( SrNo, GetType (int))
dt.Columns .Add( 作者, GetType ( String ))
dt.Columns.Add( 标题, GetType (String ))
dt.Columns.Add( AccessionNo, GetType ( String ))
dt.Columns.Add ( 位置, GetType (< span class =code-keyword> String ))
dt.Columns.Add( 状态, GetType (字符串))
Dim xmldoc 作为 新 XmlDocument()
xmldoc。加载( C:\ Users \Shahrukh \ Files \ Visual Studio 2012 \Projects \Simple search1 \Simple search1 \New folder\Data.xml)
Dim nodeList As XmlNodeList = xmldoc.SelectNodes( / NewDataSet / Table)
如果 SearchCriteria = 作者 然后
Dim SrNo As Integer = 1;
对于 每个节点作为 XmlNode 在 nodeList
Dim dtrow As DataRow = dt.NewRow()
如果(LCase(节点( 作者)。InnerText).Contains(LCase(txtSearch.Text())))然后
dtrow( SrNo)= SrNo
dtrow( 标题)= node( title)。InnerText ' fixed
dtrow(跨度>作者 )= node( 作者 ).InnerText
dtrow( AccessionNo)= node( AccessionNo)。InnerText
dtrow( < span class =code-string>位置)= node( location ).InnerText ' fixed
dtrow( 状态)= node( status )。InnerText ' fixed
dt.Rows.Add(dtrow)
SrNo = SrNo + 1
结束 如果
下一步
结束 如果
dGridResults.ItemsSource = dt.DefaultView
结束 Sub
I want to add a sr no column in data grid how can i do for below code
Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs)
Dim dt As New DataTable()
Dim SearchCriteria = cmbSearch.Text
dt.Columns.Add("Author", GetType(String))
dt.Columns.Add("Title", GetType(String))
dt.Columns.Add("AccessionNo", GetType(String))
dt.Columns.Add("Location", GetType(String))
dt.Columns.Add("Status", GetType(String))
Dim xmldoc As New XmlDocument()
xmldoc.Load("C:\Users\Shahrukh\Documents\Visual Studio 2012\Projects\Simple search1\Simple search1\New folder\Data.xml")
Dim nodeList As XmlNodeList = xmldoc.SelectNodes("/NewDataSet/Table")
If SearchCriteria = "Author" Then
For Each node As XmlNode In nodeList
Dim dtrow As DataRow = dt.NewRow()
If (LCase(node("Author").InnerText).Contains(LCase(txtSearch.Text()))) Then
dtrow("Title") = node("title").InnerText ' fixed
dtrow("Author") = node("Author").InnerText
dtrow("AccessionNo") = node("AccessionNo").InnerText
dtrow("Location") = node("location").InnerText ' fixed
dtrow("Status") = node("status").InnerText ' fixed
dt.Rows.Add(dtrow)
End If
Next
End If
dGridResults.ItemsSource = dt.DefaultView
End Sub
解决方案
Try this one. Not tested.
Private Sub Button_Click_1(sender As Object, e As RoutedEventArgs) Dim dt As New DataTable() Dim SearchCriteria = cmbSearch.Text dt.Columns.Add("SrNo", GetType(int)) dt.Columns.Add("Author", GetType(String)) dt.Columns.Add("Title", GetType(String)) dt.Columns.Add("AccessionNo", GetType(String)) dt.Columns.Add("Location", GetType(String)) dt.Columns.Add("Status", GetType(String)) Dim xmldoc As New XmlDocument() xmldoc.Load("C:\Users\Shahrukh\Documents\Visual Studio 2012\Projects\Simple search1\Simple search1\New folder\Data.xml") Dim nodeList As XmlNodeList = xmldoc.SelectNodes("/NewDataSet/Table") If SearchCriteria = "Author" Then Dim SrNo As Integer = 1; For Each node As XmlNode In nodeList Dim dtrow As DataRow = dt.NewRow() If (LCase(node("Author").InnerText).Contains(LCase(txtSearch.Text()))) Then dtrow("SrNo") = SrNo dtrow("Title") = node("title").InnerText ' fixed dtrow("Author") = node("Author").InnerText dtrow("AccessionNo") = node("AccessionNo").InnerText dtrow("Location") = node("location").InnerText ' fixed dtrow("Status") = node("status").InnerText ' fixed dt.Rows.Add(dtrow) SrNo = SrNo + 1 End If Next End If dGridResults.ItemsSource = dt.DefaultView End Sub
这篇关于如何在数据网格中添加sr no的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文