主题：[求助]图号生成问题

产品表有个产品ID，图号表有个产品图号， 产品ID和产品图号一对一， 有的产品ID有图号，有的没有，有的产品有固定的图号， 产品ID和产品图号都是唯一的，

 

需要实现的功能：

 

1. 产品图号自动生成， 对应相应的产品ID

2. 产品表的产品图号列能自动填入对应的产品图号， 没有图号的空白， 特殊图号手工填入， 对于子图号选用总图号+代号

 

做了一个列子， 看看各位大师有无好的方案

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:图号生成1.foxdb

此主题相关图片如下：qq截图20151011224748.png

 

在图号生成窗口中删除图号，如何使产品表里的图号也同步删除呢？

生成图号时候，如果发现产品表中产品图号有内容不为空， 则禁止生成图号并提示已有图号， 如何实现

产品表和图号表通过产品ID关联着呢

这段代码应该写在哪里呢

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    Tables("产品表.图号表").Current.Delete
End If
DataTables("产品表").ReplaceFor("产品图号", Nothing, "[产品ID] = '" & Forms("图号生成").Controls("TextTH").text & "'")
e.Form.close

 

没有作用？？？

图号表的产品图号删除后， 产品表里的产品图号没有自动删除

好像没有参考的产品ID， 因为图号表的产品图号删除后产品ID也同步删除了，这应该如何办

怪我问题没有描述清楚， 应该是产品表.图号表的数据删除后清除产品表里相应的已填入的产品图号， 删除代码如下：

 

If MessageBox.Show("是否删除?","确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
    Tables("产品表.图号表").Current.Delete
Tables("产品表").Current("产品图号") = Nothing
End If
e.Form.close

 

这样， 达到了目的，自行解决了