以下是引用有点甜在2018/7/20 16:28:00的发言:
先点击排序,再分析
Dim t As Table = Tables("同品名异归类")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式1")
cs1.backcolor = Color.red
Dim cs2 As C1.Win.C1FlexGrid.CellStyle = t.Grid.Styles.Add("样式2")
cs2.backcolor = Color.green
Dim idx = t.grid.Cols("商品编码").Index
For i As Integer = t.Position To t.Rows.count-1
If i <> t.Position Then
If t.Rows(i)("商品名称") <> t.Rows(i-1)("商品名称") Then
t.position = i
Exit For
End If
If t.Rows(i)("商品编码") <> t.Rows(i-1)("商品编码") Then
t.Grid.SetCellStyle(i+1, idx, cs2)
Else
t.Grid.SetCellStyle(i+1, idx, cs1)
End If
Else
t.Grid.SetCellStyle(i+1, idx, cs1)
End If
Next
l老师,请看6楼的附件。。问题还是没解决,相同的商品编码,却有不同的颜色这个bug还是存在。。。
同时想实现分析下一个商品时,上一个商品的颜色标注去掉,只显示当前分析的商品有颜色。。。不知道该怎么写