- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]图号生成问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75621)
-- 发布时间：2015/10/11 17:54:00
-- [求助]图号生成问题
产品表有个产品ID，图号表有个产品图号， 产品ID和产品图号一对一， 有的产品ID有图号，有的没有，有的产品有固定的图号， 产品ID和产品图号都是唯一的，
需要实现的功能：
1. 产品图号自动生成， 对应相应的产品ID
2. 产品表的产品图号列能自动填入对应的产品图号， 没有图号的空白， 特殊图号手工填入， 对于子图号选用总图号+代号
做了一个列子， 看看各位大师有无好的方案
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图号生成1.foxdb |
-- 发布时间：2015/10/11 20:10:00
--
呃，你做好了啊。就是这个思路。
-- 发布时间：2015/10/11 22:50:00
--
此主题相关图片如下：qq截图20151011224748.png
在图号生成窗口中删除图号，如何使产品表里的图号也同步删除呢？
-- 发布时间：2015/10/12 8:44:00
--
根据产品ID删除产品表里的图号
DataTables("产品表").ReplaceFor("产品图号", Nothing, "[产品ID] = \'" & Forms("窗口名称").Controls("textbox1").text & "\'")
-- 发布时间：2015/10/12 9:06:00
--
参考 http://www.foxtable.com/help/topics/2490.htm
-- 发布时间：2015/10/12 17:34:00
--
生成图号时候，如果发现产品表中产品图号有内容不为空， 则禁止生成图号并提示已有图号， 如何实现
-- 发布时间：2015/10/12 17:36:00
--
呃，直接检测当前行即可。如
If Tables(“产品表").Current.IsNull("产品图号") = False Then
msgbox("已填入图号")
Else
End If
-- 发布时间：2015/10/12 22:33:00
--
产品表和图号表通过产品ID关联着呢
-- 发布时间：2015/10/12 22:40:00
--
根据产品ID删除产品表里的图号
DataTables("产品表").ReplaceFor("产品图号", Nothing, "[产品ID] = \'" & Forms("窗口名称").Controls("textbox1").text & "\'")
这段代码应该写在哪里呢
-- 发布时间：2015/10/12 22:53:00
--
删除图号的按钮里面