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

点击浏览该文件:管理项目6.table

请教上边问题

1. 工资表新建立的时候（右键增加或菜单增加行），自动转到工资计算表（或者打开一个绑定

    工资计算表的窗口）如何实现。

    实现后，工资表的日期中并不添日期，现在工资表的日期是关联到工资计算表的，工资计算表是从这里读取

   日期的，如果先编辑工资计算表，这里的日期如何自动加上。

2. 工资计算表下边的表中，增行的时候加入一个判断，选择工资类型。然后增加行。

    如果工资类型是零工，则增加表属性中的代码。如果不是，则工资标准没有变化。

    或者工资类型是计件，等于某个表中的计件工资。

是不是我描述的不太清楚啊。

第一个问题：

工资表新增加一行的时候，日期并不一定是今天的日期。我的想法是工资表增加行的时候，转到工资计算表去。

也可以增加一个新的工资编辑窗口，工资编辑窗口就是编辑工资计算表中的内容。上边是某个人当日的工资合计。

下边是这个人当日干的所有的活的明细，有按计件的，有按零工的。

这三个表的关系是，工资表根据日期关联日期相同内所有人员的当日工资合计。

工资计算表是所有人员当日的工资合计，它关联的工资明细表，是一定日期内，这个人干的所有的活（日工+计件，计件也可能有几个计件工资相加）

我对我做的负责，其他看不明白，希望有人能看明白。

Select Case e.DataCol.name
    Case "分厂","工段","日期" ,"工资类型"
        Dim dr As DataRow = e.DataRow
        If dr("工资类型") <> "零工" Then
            If dr.IsNull("分厂") = False AndAlso dr.IsNull("工段") = False AndAlso dr.IsNull("日期") =False Then
                Dim pr As DataRow = DataTables("工资标准").Find("分厂 = \'" & dr("分厂") & "\' and 工段  = \'" & dr("工段") & "\' And 执行日期 <= #" & dr("日期") & "#", "执行日期 Desc")
                If pr IsNot Nothing Then
                    dr("工资标准")  = pr("工资标准")
                End If
            End If
        End If
End Select

这种增加一个条件判断的问题，也需要他人帮您做好的话，说明您操之过急了.

俗话说的好，磨刀不误砍材工，心急也吃不得热豆腐，不看帮助，直接开发系统，只会耽误您更多的时间。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

三遍之后，你就是一个高手，这种问题在你眼里都不是问题了。