16,554
社区成员
发帖
与我相关
我的任务
分享
Dim i As Integer
For i = 0 To lds.Rows.Count - 1
If lds.Rows(i)("店名").ToString = rm Then
lds.Rows.RemoveAt(i)
End If
Next
Dim i As Integer
For i = lds.Rows.Count - 1 to 0 step -1
If lds.Rows(i)("店名").ToString = rm Then
lds.Rows.RemoveAt(i)
End If
Next