以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]同步指定关联行审批  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110916)

--  作者:沪上游客
--  发布时间:2017/12/12 14:36:00
--  [求助]同步指定关联行审批
老师你好!我在窗口内设一个关联表,可以增加数据,只能保存全表。但在审批按钮审批时,不会指定窗口表中的选定行审批。请老师指教!谢谢!

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171212141803.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171212142550.png
图片点击可在新窗口打开查看
窗口表中我选了第一行或第二行进行“审批”,它实际审批的还是第三行。谢谢老师!


“新增”按钮代码:
Tables("工程技术参数").AddNew()
Tables("工程技术参数").Current("合同编号") = Tables("工程合同基础数据").Current("合同编号")

“审批”按钮代码:
If User.IsRole("审批")
    If Tables("工程技术参数").Current("审批") = False
        Tables("工程技术参数").Current("审批人") = User.Name
        Tables("工程技术参数").Current("审批日期") = Date.Today()
        Tables("工程技术参数").Current("审批") = True
        Tables("工程技术参数").Current.Locked = True
        Tables("工程技术参数").Current.Save()
    Else
        MessageBox.show("该记录已审批!")
    End If
End If

--  作者:沪上游客
--  发布时间:2017/12/12 14:38:00
--  
老师是不是我在窗口表中选定了的行,但在表内实际没有选定对应的记录,请问代码怎么处理?

是不是也可以在窗口中审批窗口表中对应的多条记录?这样最好!
[此贴子已经被作者于2017/12/12 14:41:19编辑过]

--  作者:沪上游客
--  发布时间:2017/12/12 14:43:00
--  
窗口表不是副表
--  作者:有点甜
--  发布时间:2017/12/12 15:13:00
--  

表名改成关联表,如

 

Tables("工程技术参数")

 

改成

 

Tables("工程合同基础数据.工程技术参数")


--  作者:沪上游客
--  发布时间:2017/12/12 16:44:00
--  
谢谢老师!解决了
--  作者:沪上游客
--  发布时间:2017/12/13 10:22:00
--  
老师还是这个表,谢谢您昨天帮助我解决了审批,但现在又有问题了,窗口表是“工程合同基础数据”父表的关联子表,这个表是不能设为副表的。在新增时没有问题,如果我要选择已经做好的记录,选定时能不能在主表也选定相应的记录,可以同步修改。谢谢!


--  作者:有点甜
--  发布时间:2017/12/13 10:49:00
--  

你选择的是哪个表的内容?根据什么修改主表的内容?

 

做个具体的实例发上来说明。


--  作者:沪上游客
--  发布时间:2017/12/13 11:12:00
--  
我先截个图吧

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20171213110846.png
图片点击可在新窗口打开查看

然后出现

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171213110625.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/12/13 11:15:00
--  

是不是又是你的表名写错了?你要写成关联表的表名。

 

或者贴出你提示的判断代码。


--  作者:沪上游客
--  发布时间:2017/12/13 11:20:00
--  
我在主表的ValidateEdit中代码如下:
If e.Col.Name = "成本计划_充盈系数" Then
    If Tables("成本计划表").Current("采购名称") <> "商品混凝土" And Tables("成本计划表").Current("成本计划_充盈系数") IsNot Nothing Then \'判断是否不符合验证要求
        MessageBox.Show("只有商品混凝土才能录入充盈系数.请核实数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) \'提示用户
        e.Cancel = True \'则禁止退出编辑模式
    End If
End If