我的，表事件，datacolchanged完整代码是：
Se lect Case e.DataCol.name
Case "入库单价"
Dim dr As DataRow = e.DataRow
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SEL ECT * From {材料} Where [定额编码] = '" & dr("定额编码") & "'"
dt = cmd.ExecuteReader(True)
If dt.DataRows.Count > 0 Then
Dim dr1 As DataRow = dt.DataRows(0)
dr1("成本价") = dr("入库单价")
If dr1.isnull("运杂费") Then
dr1("材料原价")=(dr1("成本价")*dr1("主材损耗率") * ( 1+dr1("利润率")+dr1("挂靠管理费率")))*(1+dr1("增值税率"))
Else
dr1("材料原价")=((dr1("运杂费")+dr1("成本价")*dr1("主材损耗率") )* ( 1+dr1("利润率")+dr1("挂靠管理费率")))*(1+dr1("增值税率"))
End If
dt.Save()
Dim Filter As String = "定额编码 = '" & dr("定额编码") & "'"
DataTables("材料").RemoveFor(Filter)
DataTables("材料").AppendLoad(Filter, False)
End If
加好友 
发短信
Post By：2016/10/6 20:29:00 [显示全部帖子]
