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编辑过]