项目事件DataColChanged中输入
 If e.DataCol.Name = "姓名" OrElse e.DataCol.Name = "姓名" Then
     Dim dr  As  DataRow
     Dim Filter As  String
     dr = DataTables("姓名").Find(Filter ) 
    If dr IsNot  Nothing  Then  
         e.DataRow("电话") = dr("电话")
     Else
        e.DataRow("电话") = Nothing
     End  If
 End  If

哪里出错了？

表事件DataColChanged里填下面代码 逻辑列已更改为True 为什么没锁定行呢？

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

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

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