以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动显示并锁定  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123750)
--  作者：13775189031
--  发布时间：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"单元格时，才会显示“/”，怎样能"电流种类_交流电"勾选时，相关列自动显示“/”

 

 
--  作者：有点蓝
--  发布时间：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
--  发布时间：2018/8/22 14:01:00
--  

OK!

谢谢！