主题：[求助]工资表问题

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

 

 

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

 

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

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

 

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

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