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
If e.DataCol.Name = "工料ID" Then
If e.NewValue Is Nothing Then
e.DataRow("综合单价") = Nothing
Else
Dim dr As DataRow
dr = DataTables("工料单价").Find("[工料ID] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("综合单价") = dr("综合单价")
End If
End If
End If
Select Case e.DataCol.Name
Case "综合单价"
Dim Filter As String = "[工料ID] = '" & e.DataRow("工料ID") & "'"
Dim drs As List(Of DataRow) = DataTables("清单明细").Select(Filter)
For Each dr As DataRow In drs
dr(e.DataCol.Name) = e.NewValue
Next
End Select
加好友 
发短信
Post By：2017/6/11 8:52:00 [显示全部帖子]
