- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 高手请进 问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24911)
-- 发布时间：2012/10/26 13:08:00
-- 高手请进 问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:拆单系统.foxdb |
此主题相关图片如下：未命名1.jpg
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2012-10-26 13:08:38编辑过]
-- 发布时间：2012/10/26 14:11:00
--
到订单明细表里写这样的代码。DataColChanged事件。
Select Case e.DataCol.Name
Case "部件名称","板件名称","成品长","成品宽","成品高","封边信息"
If e.DataRow.RowState = DataRowState.Detached AndAlso e.DataRow.IsNull("产品编号") Then
e.DataRow("产品编号") = Forms("部件筛选").Controls("ComboBox1").Text
End If
End Select
-- 发布时间：2012/11/2 20:40:00
--
以下是引用lin_hailun在2012-10-26 14:11:00的发言：
到订单明细表里写这样的代码。DataColChanged事件。
Select Case e.DataCol.Name
Case "部件名称","板件名称","成品长","成品宽","成品高","封边信息"
If e.DataRow.RowState = DataRowState.Detached AndAlso e.DataRow.IsNull("产品编号") Then
e.DataRow("产品编号") = Forms("部件筛选").Controls("ComboBox1").Text
End If
End Select
到订单明细表里写这样的代码。DataColChanged事件。
Select Case e.DataCol.Name
Case "部件名称","板件名称","成品长","成品宽","成品高","封边信息"
If e.DataRow.RowState = DataRowState.Detached AndAlso e.DataRow.IsNull("产品编号") Then
e.DataRow("产品编号") = Forms("部件筛选").Controls("ComboBox1").Text
End If
End Select
如果我需要在多加几个关联的和产品编号对应的列 如产品名称 产品颜色、已经关联好了 或是只需要代码就好
该如何修改代码
谢谢
[此贴子已经被作者于2012-11-2 20:44:02编辑过]
-- 发布时间：2012/11/2 21:00:00
--
楼主，你只是想把 产品编号 写入，这个和你添加多了几列是没有关系的吧？