找回密码
 立即注册

QQ登录

只需一步,快速开始

zheng_hq
银牌会员   /  发表于:2011-10-19 15:43:00
11#
list.Contains(_flex.GetData(index, 3)) 的不包含,该怎么用语句呢
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2011-10-19 15:49:00
12#
  1. If Not list.Contains(_flex.GetData(index, 3)) Then
复制代码
回复 使用道具 举报
zheng_hq
银牌会员   /  发表于:2011-10-19 16:52:00
13#
判断上一个单元格是否是"●",是不是这样写:C1FlexGrid1.GetData(1, 2) = "●"  呢?
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2011-10-19 16:59:00
14#
是这样判断,你的代码不成功吗
回复 使用道具 举报
zheng_hq
银牌会员   /  发表于:2011-10-19 17:08:00
15#
估计要用循环语句,才能实现这一列的像 图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
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2011-10-19 17:22:00
16#
你将_flex.GetData(, )都修改成_flex.GetData(, ).ToString()试一下
回复 使用道具 举报
12
您需要登录后才可以回帖 登录 | 立即注册
返回顶部