以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- datarowdeleting和datacolchanged事件的发生顺序 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172738) |
-- 作者:jiangy6280 -- 发布时间:2021/10/28 15:31:00 -- datarowdeleting和datacolchanged事件的发生顺序 在datarowdeleting事件中,设了如下二行语句: e.datarow("出库")=0 e.datarow("进库")=0 “出库”和“进库”数据的改变都会引起datacolchanged事件的发生。因为代码逻辑关系的问题,想知道datacolchanged事件是在上面两行代码执行完后只发生一次呢,还是第一行“出库"=0后发生一次datacolchanged事件,然后“进库”=0后又发生一次datacolchanged事件?
|
-- 作者:有点蓝 -- 发布时间:2021/10/28 15:35:00 -- 看写了什么代码。贴出这2个事件的完整代码看看 |
-- 作者:jiangy6280 -- 发布时间:2021/10/28 16:05:00 -- 回复 datacolchanged事件: Select Case e.DataCol.Name Case "退库","进库","出库" If e.DataRow("品名")<>"" And e.DataRow("品牌")<>"" And e.DataRow("规格")<>"" Then Dim dr As DataRow Dim mr As DataRow = e.DataRow Dim drs As List(of DataRow) Dim lastc As Integer dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [品名] = \'" & mr("品名") & "\'" & " And [品牌] = \'" & mr("品牌") & "\'" & " And [规格] = \'" & mr("规格") & "\'","[_SortKey] Desc") If dr Is Nothing Then mr("库存") = mr("退库") + mr("进库") - mr("出库") lastc = mr("库存") dr = mr End If drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [品名] = \'" & mr("品名") & "\'" & " And [品牌] = \'" & mr("品牌") & "\'" & " And [规格] = \'" & mr("规格") & "\'","[_SortKey]") For i As Integer = 1 To drs.Count - 1 drs(i)("库存") = drs(i-1)("库存") + drs(i)("退库") + drs(i)("进库") - drs(i)("出库") lastc = drs(i)("库存") Next Dim dc As DataTable = DataTables("库存表") Dim mc As DataRow Dim lc As Boolean = False If dc.dataRows.count=0 mc = dc.addnew() mc("所属")="重庆中烟工业公司" mc("品名")=mr("品名") mc("品牌") =mr("品牌") mc("规格")=mr("规格") mc("单位")=mr("单位") mc("库存")=lastc Else For Each mc In dc.Select("") If mc("所属")="重庆中烟工业公司" And mc("品名")=mr("品名") And mc("品牌") =mr("品牌") And mc("规格")=mr("规格") Then mc("库存")=lastc lc = True Exit For End If Next If not lc Then mc = dc.addnew() mc("所属")="重庆中烟工业公司" mc("品名")=mr("品名") mc("品牌") =mr("品牌") mc("规格")=mr("规格") mc("单位")=mr("单位") mc("库存")=lastc End If End If Else messagebox.show("请先选择品名品牌和规格") End If End Select 因为便于好看和操作,对不同单位建立了一个物资流水账,然后对每种物资建立了一个最终库存表。在每个单位的流水账出库进库操作后,利用datacolchanged事件自动在最终库存表的库存数反映出来。这样每次进库出库都会发生datacolchanged事件。删除一条流水账记录也会发生datacolchanged事件。就是不知道出库进库清零是两个动作,会引发一次还是两次datacolchanged事件? |
-- 作者:有点蓝 -- 发布时间:2021/10/28 16:42:00 -- datarowdeleting事件完整代码?能不能一次性发出来,不用不断的提醒 |
-- 作者:jiangy6280 -- 发布时间:2021/10/28 16:55:00 -- datarowdeleting事件仅三行代码: e.datarow("出库")=0 e.datarow("进库")=0 e.datarow("退库")=0 |
-- 作者:有点蓝 -- 发布时间:2021/10/28 16:59:00 -- 删除一行,触发顺序 1、触发datarowdeleting 2、datarowdeleting事件里第一行执行【e.datarow("出库")=0】,如果出库原值就是0,不会触发事件,否则触发一次datacolchanged事件 3、datarowdeleting事件里第二行执行【e.datarow("进库")=0】,如果进库原值就是0,不会触发事件,否则触发一次datacolchanged事件 4、同上
|