以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  e.datarow 不更新  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158569)

--  作者：nxhylczh --  发布时间：2020/11/24 23:23:00 --  e.datarow 不更新 Se    lect Case e.DataCol.name     Case "辅助核算类型"         If e.DataRow.IsNull("辅助核算类型") = False Or e.DataRow("辅助核算类型").Trim() >"" Then             Dim c1table As C1FlexGrid.C1FlexGrid = e.Form.Controls("P01").Table.Grid             Dim rc As C1FlexGrid.CellRange = c1table.Selection             Dim cellrect As System.Drawing.Rectangle = c1table.RectangleToScreen(c1table.GetCellRect(rc.r1,rc.c1))             Vars("辅助核算类型") = e.DataRow("辅助核算类型")             Vars("辅助核算编码") = e.DataRow("辅助核算编码")             Vars("辅助核算名称") = e.DataRow("辅助核算名称")             Vars("年度") =  e.DataRow("年")             Forms("凭证管理_辅助核算录入").open(cellrect.x-5,cellrect.y+35)             e.DataRow("辅助核算类型") = Vars("辅助核算类型")             e.DataRow("辅助核算编码") = Vars("辅助核算编码")             e.DataRow("辅助核算名称") = Vars("辅助核算名称")                          If Vars("辅助核算类型") ="存货" Then                 Dim tbl As Table = e.Form.Controls("P01").Table                 tbl.SetColVisibleWidth("摘要|230|科目编码|400|数量|72|借方金额|185|贷方金额|185|计量单位|80")                 e.DataRow("计量单位") = Vars("计量单位")                 e.DataRow("计量单位") = Vars("计量单位")                 e.DataRow("计量单位") = Vars("计量单位")      ‘    就是这行赋值不成功，为什么会出现三行呢，是因为一行的值不显示 所以 就加了几行复制语句 msgbox(e.DataRow("计量单位") & "   " &  Vars("计量单位"))   ’但是  这里弹出的值有数据  [此贴子已经被作者于2020/11/24 23:24:25编辑过]

--  作者：有点蓝 --  发布时间：2020/11/25 8:37:00 --   把这个事件的完整代码发上来看看