16,555
社区成员
发帖
与我相关
我的任务
分享
If Me.dgv_hfxx.Rows.Count > 0 Then
ds.Tables(0).Columns.Item("fsel").ReadOnly = False
Me.dgv_hfxx.CurrentRow.Cells("col_sel").ReadOnly = False
For i As Integer = 0 To Me.dgv_hfxx.Rows.Count - 1
Me.dgv_hfxx.Rows(i).Cells("col_sel").Value = "√"
Next
ds.Tables(0).Columns.Item("fsel").ReadOnly = True
Me.dgv_hfxx.CurrentRow.Cells("col_sel").ReadOnly = True
End If
Me.dgv_hfxx.Refresh()
Dim dt As New DataTable
Dim dr() As DataRow
dt = ds.Tables(0).Clone
dr = ds.Tables(0).Select("fsel='√'")
For i As Integer = dr.Length - 1 To 0 Step -1
dt.Rows.Add(dr(i).ItemArray)
Next
ds.Tables(0).Columns.Item("fsel").ReadOnly = False
Me.dgv_hfxx.CurrentRow.Cells("col_sel").ReadOnly = False
For i As Integer = 0 To Me.dgv_hfxx.Rows.Count - 1
Me.dgv_hfxx.Rows(i).Cells("col_sel").Value = "√"
Next
ds.Tables(0).Columns.Item("fsel").ReadOnly = True
Me.dgv_hfxx.CurrentRow.Cells("col_sel").ReadOnly = True
ds.AcceptChanges