工料单价datacolchanged
If e.DataCol.Name = "工料单价"
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.DataRow("工料单价")
Next
drs = DataTables("清单明细").Select(Filter)
For Each dr As DataRow In drs
If dr.Locked = False Then
dr("综合单价") = e.DataRow("工料单价")
End If
Next
End If
清单明细datacolchanged
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/17 9:01:00 [显示全部帖子]
