根据帮助做的,但总是失败,不知道什么原因,当 “核销” = true 时锁定行
If e.DataCol.Name = "姓名"
Dim Filter As String = "[员工编号] = '" & e.DataRow("员工编号") & "' And 核销 = False"
Dim drs As List(Of DataRow) = DataTables("开模明细").Select(Filter)
For Each dr As DataRow In drs
If dr.Locked = False Then
DataTables("开模明细").DataCols("员工编号").RaiseDataColChanged(dr)
End If
Next
End If
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:111.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-7/20167719533766755.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:2.png