主题：列

 项目事件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

哪里出错了？

Dim Filter As  String=“姓名=‘“& e.datarow（“姓名”）&””’

表事件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

提示这个
此主题相关图片如下：弹窗错误.png

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

此主题相关图片如下：截图.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