以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]逻辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104774)

--  作者:xh2207
--  发布时间:2017/8/4 18:29:00
--  [求助]逻辑

请教:

1、在到货窗口的新增按钮增加一句:Tables("到货_到货明细表").Filter = "品名 is null  " 后出现了在窗口无显示新导入的行问题,具体操作如下:按新增、合同编号、   导入合同明细、购选、导入,在到货明细表可见有导入,但在窗口无见显示。

2、当到货窗口的到货明细表有行时(即表体有内容),不允许修改供方单据号、合同编号等表头的内容。若无表体的内容时可修改表头的内容。代码如何?表头内容无绑定表格的。

请将代码和修改的内容贴出,小狗到期无法升级了。非常感谢指教!


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

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_201708041812.zip


--  作者:有点蓝
--  发布时间:2017/8/4 20:45:00
--  
1、新增按钮

\'加载
Dim nr As Row = Tables("到货主表").AddNew
e.Form.Controls("录入员").text = User.Name
Dim max As Integer = DataTables("到货明细表").Compute("MAx(_Identify)")
Tables("到货_到货明细表").Filter = "品名 is null or [_Identify] > " & max

2、参考


--  作者:xh2207
--  发布时间:2017/8/5 10:09:00
--  

感谢指教!ok了。