主题：没学会也买开发版

是这个意思.

好啦.谢谢!

之前按图号选工序需在项目事件AfterOpenProject和执行表的PrepareEdit事件中作相关设置.

这个按工段选姓名为什么不需将上述两项做设置呢?是不是那两项不是必需的?先下课休息,稍后试试.

谢谢鼓励!刚开始确实晕晕糊糊,现在感觉能上手了.

哦,以上两项是必须的,如果没有以上两项,如果排产表没有新增行,则不能通过筛选来修改之前执行表操作工列.

我在项目事件AfterOpenProject增加了一行代码: 

Tables("执行").Cols("工段").Combolist = DataTables("员工表").GetComboListString("工段")

第二项执行表的PrepareEdit事件:

If e.IsFocusCell Then '如果是焦点所在单元格

    If e.Col.Name = "工序" Then '如果正在编辑的是工序列

        '从工序表提取该图号的工序作为列表项目

        e.Col.Combolist = DataTables("工序表").GetComboListString("工序", "[零件图号] = '" & e.Row("零件图号") & "'")

    End If

End If

不知道怎么补充代码.

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

点击浏览该文件:管理项目10.rar

----------------------------------

学会了,直接再复制以上代码,必定相应参数.

If e.IsFocusCell Then '如果是焦点所在单元格

    If e.Col.Name = "工序" Then '如果正在编辑的是工序列

        '从工序表提取该图号的工序作为列表项目

        e.Col.Combolist = DataTables("工序表").GetComboListString("工序", "[零件图号] = '" & e.Row("零件图号") & "'")

    End If

End If

If e.IsFocusCell Then '如果是焦点所在单元格

    If e.Col.Name = "操作工" Then '如果正在编辑的是操作工列

        e.Col.Combolist = DataTables("员工表").GetComboListString("姓名", "[工段] = '" & e.Row("工段") & "'")

    End If

End If

本项目基础表及输入问题基本解决,可以进入下一环节:权限管理.

下课.

我也是刚使用开发版，已经开发了销售预测项目，很简单的5个表，但很实用。放在局域网上，4个客服更新销售预测，计划员安排发货计划。我能随时看到需求变化情况，发货情况，和销售预测，比从前用Excel好用。

同感!EXCEL上手快,但是协作方面有局限.