[求助]逻辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]逻辑

共有1912人关注过本帖树形打印复制链接主题：[求助]逻辑

xh2207

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：190 积分：1593 威望：0 精华：0 注册：2013/1/6 19:46:00

[求助]逻辑 发帖心情

Post By：2017/8/4 18:29:00 [只看该作者]

请教：

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

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

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

此主题相关图片如下：1.png

此主题相关图片如下：2.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1_201708041812.zip

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111416 积分：567156 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：190 积分：1593 威望：0 精华：0 注册：2013/1/6 19:46:00

Post By：2017/8/5 10:09:00 [只看该作者]

感谢指教！ok了。

主题：[求助]逻辑