VB
删除datagridview行时只会删除奇数行,求解
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区JiXu:
For i = 1 To DataGridView1.Rows.Count
If DataGridView1.Rows(i).Cells(5).Value Like "*2018-10-20*" Then
TextBox1.Text = DataGridView1.Rows(i).Cells(5).Value
TextBox2.Text = DataGridView1.Rows(i).Cells(4).Value
TextBox3.Text = DataGridView1.Rows(i).Cells(3).Value
TextBox4.Text = DataGridView1.Rows(i).Cells(2).Value
TextBox5.Text = DataGridView1.Rows(i).Cells(1).Value
TextBox6.Text = DataGridView1.Rows(i).Cells(0).Value
Else
DataGridView1.Rows(i).Selected = True
DataGridView1.Rows.RemoveAt(i)
'Stop
' DataGridView1.Refresh()
End If
System.Threading.Thread.Sleep(5000)
Application.DoEvents()
Continue For
Next
GoTo JiXu
For i = 1 To DataGridView1.Rows.Count
If DataGridView1.Rows(i).Cells(5).Value Like "*2018-10-20*" Then
TextBox1.Text = DataGridView1.Rows(i).Cells(5).Value
TextBox2.Text = DataGridView1.Rows(i).Cells(4).Value
TextBox3.Text = DataGridView1.Rows(i).Cells(3).Value
TextBox4.Text = DataGridView1.Rows(i).Cells(2).Value
TextBox5.Text = DataGridView1.Rows(i).Cells(1).Value
TextBox6.Text = DataGridView1.Rows(i).Cells(0).Value
Else
DataGridView1.Rows(i).Selected = True
DataGridView1.Rows.RemoveAt(i)
'Stop
' DataGridView1.Refresh()
End If
System.Threading.Thread.Sleep(5000)
Application.DoEvents()
Continue For
Next
GoTo JiXu
...全文
相关推荐
dataGridView属性及方法
dataGridView属性及方法dataGridView属性及方法dataGridView属性及方法
VB DataGridView控件的使用
VB DataGridView控件的使用VB DataGridView控件的使用VB DataGridView控件的使用VB DataGridView控件的使用
WinForm DataGridView控件隔行变色的小例子
WinForm的DataGridView控件设置行的颜色
国央企创新负责人如何构建多维度的科技资源评价与配置体系？.docx
国央企创新负责人如何构建多维度的科技资源评价与配置体系？
《移动通信系统》全套PPT课件2026（西安电子科技大学）
《移动通信系统》全套PPT课件2026（西安电子科技大学）
