主题：列

输入这段代码，弹出什么？

msgbox(e.DataCol.name)
If e.DataCol.Name = "已结帐" Then '如果是已结帐列的内容变动
    msgbox(e.newvalue)
    If e.NewValue = True Then '而且变动后的值是True(已勾选)
        msgboz(123)
        e.DataRow.Locked = True '那么锁定此行
    End If
End If

以下是引用XINYUEMIN在2018/3/4 0:46:00的发言：

司机结算_费用已清"已结清" 派车单位结算_租金已结清“已结清”收款情况“已收款”同时满足以上三条的时候锁定行 代码怎么写？

此主题相关图片如下：截图.png

Select Case e.DataCol.name
   
    Case "司机结算_费用已清", "派车单位结算_租金已结清", "收款情况"
       
        If e.DataRow("司机结算_费用已清") = "已结清" AndAlso e.DataRow("派车单位结算_租金已结清") = "已结清" AndAlso e.DataRow("收款情况")  = "已结清" Then
           
            e.DataRow.Locked = True
        End If
End Select