遍历dataGrid

asdasd1fdsyrt

于 2021-05-26 11:23:17 发布

阅读量239

点赞数

分类专栏： VB

本文链接：https://blog.youkuaiyun.com/asdasd1fdsyrt/article/details/112992376

版权

VB 专栏收录该内容

2 篇文章

订阅专栏

遍历gridtable

For i As Integer = 0 To Me.UGrid_SEND.Rows.Count - 1
If Me.UGrid_SEND.Rows(i).Cells("CSFLAG").Value = True Then
   sId = "," + sId + "," + Me.UGrid_SEND.Rows(i).Cells("ID").Value.ToString()
   CsCount = CsCount + 1
   If Not String.IsNullOrEmpty(header) AndAlso String.IsNullOrEmpty(checkRs) Then
       If Not Me.UGrid_SEND.Rows(i).Cells("HEADER").Value.ToString().Equals(header) OrElse _
          Not Me.UGrid_SEND.Rows(i).Cells("SHIP_ID").Value.ToString().Equals(shipid) Then
           checkRs = "不可发行"
       End If
   End If
   header = Me.UGrid_SEND.Rows(i).Cells("HEADER").Value.ToString()
   shipid = Me.UGrid_SEND.Rows(i).Cells("SHIP_ID").Value.ToString()
End If
Next