Foxtable(狐表)用户栏目专家坐堂 → 自动显示并锁定


  共有1918人关注过本帖树形打印复制链接

主题:自动显示并锁定

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:5733 威望:0 精华:0 注册:2017/12/19 14:46:00
自动显示并锁定  发帖心情 Post By:2018/8/22 11:40:00 [只看该作者]

StartEdit事件

Select Case e.Col.Name
    Case "电流值_周向A","电流值_纵向A"
        Dim nms() As String = {"电流值_周向A","电流值_纵向A"}
        For Each nm As String In nms
            If e.Row("电流种类_交流电") = True Then
                e.Row("电流值_周向A") = "/"
                e.Row("电流值_纵向A") = "/"
                e.cancel = True
            End If
        Next
End Select

 

需要双击"电流值_周向A"单元格时,才会显示“/”,怎样能"电流种类_交流电"勾选时,相关列自动显示“/”

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/22 11:50:00 [只看该作者]

DataColChanged事件

If e.DataCol.Name = "电流种类_交流电" Then 
    If e.NewValue = True Then 
        e.DataRow("电流值_周向A") = "/"
        e.DataRow("电流值_纵向A") = "/"
    End If
End If

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:825 积分:5733 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2018/8/22 14:01:00 [只看该作者]

OK!

谢谢!


 回到顶部