试试
If e.DataCol.Name = "姓名" Dim Filter As String = "[员工编号] = '" & e.DataRow("员工编号") & "' And (核销 = False or 核销 is null)" DataTables("开模明细").DataCols("员工编号").RaiseDataColChanged(filter)End If