向煮江品茶老师求教

韩云　发表于：2011-06-23 11:31:06 　

复制

煮江品茶老师几次批评我把表搞得太罗嗦了，我想将表优化一下但是一些具体的问题我不知道如何解决我在附件中已经标明了请帮我一下吧。

点击下载此附件

Top

煮江品茶发表于：2011-06-23 11:37:37

下午帮你看看。

Top

煮江品茶发表于：2011-06-23 14:53:03

你的表依然很乱，因此不打算具体帮你折腾了。所提的问题很简单，限定子窗体员工组合框的问题可以在车间组合框的更新后事件中改变员工组合框的数据源，限定工序问题原理相同。

Top

煮江品茶发表于：2011-06-23 16:03:07

Private Sub 员工姓名_AfterUpdate()
Me.产品ID.SetFocus
End Sub

Private Sub 员工姓名_GotFocus()
Dim strwh As String
Dim ssql As String
strwh = "员工部门 = " & Nz(Me.Parent.Form.Controls("生产车间").Value, 0)
If IsNull(Me.工序.Value) = False Then
strwh = strwh & " and 工种=" & Me.工序.Value
End If
Me.员工姓名.RowSource = "select * from 员工表 where " & strwh
End Sub

Private Sub 员工姓名_LostFocus()
Me.员工姓名.RowSource = "select * from 员工表"
Me.员工姓名.Requery
End Sub

点击下载此附件

Top

韩云发表于：2011-06-23 21:37:28

谢谢老师的帮助，前面员工姓名和生产车间相关联效果挺好后面工序和工种相关联不起作用我想照猫画虎继续完成但是因为不但“工序”要和“工种”相关联而且每个工序的单价要和具体的每个“产品名称”相关联自己做了这几次始终不得要领还望老师再帮一把

Top

韩云发表于：2011-06-23 21:55:25

补充：工序与产品名称相关联的单价是“工费设定表”

Top

韩云发表于：2011-06-24 08:30:31

现在我用：Private Sub 工序_AfterUpdate()
Dim aa As String
Me.工费单价 = Nz(DLookup("[工费标准]", "工费设定表", "[工费设定ID]=" & Me.产品名称 & " and [工序明细]=" & Me.工序))

End Sub
可以使工费单价和产品名称相关联但是下一步如何让只和工种相关联我不知道该如何设定因为按现在的形式工序下拉框中显示内容太多查找起来太麻烦了

Top

煮江品茶发表于：2011-06-24 08:41:21

简化表结构即可。

Top

煮江品茶发表于：2011-06-24 09:46:15

工费部分在以下表结构基础上做：

点击下载此附件

Top

韩云发表于：2011-06-24 11:31:13

首先谢谢煮江品茶老师的耐心指导看了你建议的表格式（主要是订单明细表和生产明细表）坦率的说不大切合这个行业的实际需要比如：相同款号的产品一般按套生产销售，会有从“S/44”“M/46”....“6X/60”7个号 ,如果按你目前设想表架构那么操作人员在日常录入的时候会很麻烦的因为要点击7次的产品名称，还要点击7次的型号再输入7次数字（数量），所以说不切合实际需求的。按我原来的表架构只需点击一次产品名称填写七个数字（数量）便完成输入了。因此还是在原来的基础上解决工种和工费的链接比较合适。不知道我的思路对不对，敬请指正。

Top

煮江品茶发表于：2011-06-24 16:29:02

不会除了这7个号外就没有其他的号吧？也不会每次都是这完整的七个号吧？呵呵。这个问题倒不是什么关键，如果规格就是这七个号，横向展开也是可以的。

主要的问题在于表间的关系，你可参考一下以下的处理方法：

点击下载此附件

Top

韩云发表于：2011-06-24 17:58:38

再次感谢需要要说明每个产品必须是7个型号有时最多达到10个进过测试输入一个7个型号的产品需要6分多钟因为要先找出产品名称点击一下再找出具体型号再点击一下最后再输入数量而用原来的界面仅用46秒即可完成因为只需找到产品名称后按回车键一次输入数量即可因此说你的这个界面看起来好看但是不适用

Top

煮江品茶发表于：2011-06-24 19:14:05

呵呵

Top

总记录：12篇页次：1/1 9 1 :

Access交流中心

向煮江品茶老师求教