DataColChanged 事件代码
Case "产品编码"
e.DataRow.Locked = False
Dim pr As DataRow = e.DataRow.GetParentRow("出入记录_主表")
Dim cmd1 As New SQLCommand
cmd1.ConnectionName= gs_strActiveConn
cmd1.CommandText="sel ect [库存] from {V_仓库物料库存} where [审核] = 1 and [仓库编码] = '" & pr("仓库编码") & "' and [产品编码] = '" & e.DataRow("产品编码") & "'"
Dim dt1 As DataTable = cmd1.ExecuteReader
If dt1.DataRows.Count>0 Then
e.DataRow("当前库存")= dt1.DataRows(0)("库存")
Else
e.DataRow("当前库存")= 0
End If
触发代码
For i As Integer=0 To Tables("出入记录_主表.出入记录_明细表").rows.Count-1
DataTables("出入记录_明细表").datacols("产品编码").RaiseDataColChanged()
Next
为什么明细 表里只有三条数据
监测到 该系列行为对数据库中的所有数据均进行了操作。 我只要重算明细 表里的产品的库存数据就好。