估计要用循环语句,才能实现这一列的像 图2 的效果,但我想不出来,
C1FlexGrid1.SetData(2, 1, 1)
C1FlexGrid1.SetData(3, 1, 4)
C1FlexGrid1.SetData(4, 1, 6)
C1FlexGrid1.SetData(5, 1, 3)
'大小判断
Dim list As New ArrayList()
list.Add(1)
list.Add(2)
list.Add(3)
list.Add(5)
list.Add(7)
If list.Contains(C1FlexGrid1.GetData(2, 1)) Then
C1FlexGrid1.SetData(2, 2, "●")
Else
If C1FlexGrid1.GetData(1, 2) = "●" Then
C1FlexGrid1.SetData(2, 2, 1)
Else
C1FlexGrid1.SetData(2, 2, C1FlexGrid1.GetData(1, 2) + 1)
End If
End If
If list.Contains(C1FlexGrid1.GetData(3, 1)) Then
C1FlexGrid1.SetData(3, 2, "●")
Else
If C1FlexGrid1.GetData(2, 2) = "●" Then
C1FlexGrid1.SetData(3, 2, 1)
Else
C1FlexGrid1.SetData(3, 2, C1FlexGrid1.GetData(2, 2) + 1)
End If
End If
这里是成功的,但再加一个,就不行了
If list.Contains(C1FlexGrid1.GetData(4, 1)) Then
C1FlexGrid1.SetData(4, 2, "●")
Else
If C1FlexGrid1.GetData(3, 2) = "●" Then
C1FlexGrid1.SetData(4, 2, 1)
Else
C1FlexGrid1.SetData(4, 2, C1FlexGrid1.GetData(3, 2) + 1)
End If
End If |