如何通过代码选中datagrid中首行记录??
Dim DataGrid1_专利尚需补的文件 As New DataGrid
Dim MyRecordNumber As String
MyRecordNumber = DataSet11.Tables( "专利 ").Rows(DataGrid1_查询结果显示表.CurrentRowIndex)( "我方案号 ")
Dim SearchedSumForShangXu As Integer
Try
SearchedSumForShangXu = 0
SqlDataAdapter1_专利尚需补的文件.SelectCommand.CommandText = "SELECT * FROM 专利尚需补的文件 WHERE ID IS NOT NULL and 我方案号 = ' " & MyRecordNumber & " ' "
DataGrid1_专利尚需补的文件.DataSource = DataSet11.专利尚需补的文件
DataSet11.专利尚需补的文件.AcceptChanges()
DataSet11.专利尚需补的文件.Clear()
SqlDataAdapter1_专利尚需补的文件.Fill(DataSet11, "专利尚需补的文件 ")
SearchedSumForShangXu = DataSet11.Tables( "专利尚需补的文件 ").Rows.Count
'Catch
' MsgBox( "无法读取<专利尚需补的文件>数据。 ", MsgBoxStyle.OKOnly, "警告 ")
Catch ex As Exception
MsgBox(ex.ToString)
Finally
SqlConnection1.Close()
End Try
If SearchedSumForShangXu > 0 Then
If IsDBNull(DataSet11.Tables( "专利尚需补的文件 ").Rows(DataGrid1_专利尚需补的文件.CurrentRowIndex)( "优先权文件副本 ")) = False Then
专修尚需_优先权文件副本.Checked = DataSet11.Tables( "专利尚需补的文件 ").Rows(DataGrid1_专利尚需补的文件.CurrentRowIndex)( "优先权文件副本 ")
Else
专修尚需_优先权文件副本.Checked = False
End If
End If
=================
当运行到IsDBNull(DataSet11.Tables( "专利尚需补的文件 ").Rows(DataGrid1_专利尚需补的文件.CurrentRowIndex)( "优先权文件副本 ")) = False 出错,说在-1处没有任何行,经检查CurrentRowIndex的值是-1,那我如何能得到表中首行的记录呢?可不可以在If SearchedSumForShangXu > 0 Then后写段什么代码,将datagrid的首先选中,就像用鼠标选中了一样,但就是不知如何写这段代码。望请高手指点,谢谢!
[解决办法]
Web or Winform?
Winform: http://www.syncfusion.com/FAQ/WindowsForms/FAQ_c44c.aspx#q1096q
[解决办法]
datagrid.SelectedIndex = 0;
[解决办法]
还要设定选中的样式
<SelectedItemStyle BackColor=blue .../>