If e.DataCol.name="已报价" Then
Dim pdr = e.DataRow.GetParentRow("报价主表")
If pdr IsNot Nothing Then
Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已报价=true")
If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
pdr("已报价")=True
Else
pdr("已报价")=False
End If
End If
End If
If e.DataCol.name="已订购" Then
Dim pdr = e.DataRow.GetParentRow
If pdr IsNot Nothing Then
Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已订购=true")
If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
pdr("已订购")=True
Else
pdr("已订购")=False
End If
End If
End If
加好友 
发短信
Post By：2018/8/27 18:37:00 [显示全部帖子]
