这个意思？
"生产工piao"datacolchanged事件
Select Case e.DataCol.Name
Case "工艺编号","工序编号"
Dim dr As DataRow = DataTables("工艺档案").find("产品编号='" & e.DataRow("工艺编号") & "' And 工序编号='" & e.DataRow("工序编号") & "'")
If dr IsNot Nothing AndAlso dr.IsNull("单价公式") = False
Dim sql As String = "select top 1 (" & dr("单价公式") & ") from 生产单"
If dr.IsNull("工序条件") = False
sql = sql & " where " & dr("工序条件")
End If
Dim val As Double
Dim cmd As New SQLCommand
cmd.CommandText = sql
val = cmd.ExecuteScalar()
e.DataRow("输出_单价") = val
End If
End Select
加好友 
发短信
Post By：2020/6/13 14:18:00 [显示全部帖子]
