- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 出错了，请帮忙看一下 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93818)
-- 发布时间：2016/12/7 20:35:00
-- 出错了，请帮忙看一下
此主题相关图片如下：qq图片20161207202559.png
备注1为单面，单价也不执行程序半价显示，手动重新再输一次规格弹出图片的报错提示，点规格重置列同样弹出图片的窗口提示错误，我知道是喷涂车间工资表的表属性DataColChanged事件的程序出了问题，但不知怎么解决。麻烦帮忙看一下，谢谢。
[此贴子已经被作者于2016/12/7 22:00:53编辑过]
-- 发布时间：2016/12/7 21:11:00
--
Select Case e.DataCol.name
Case "规格", "工序","备注"
Dim fdr As DataRow = DataTables("价目表").find("产品规格及名称 = \'" & e.DataRow("规格") & "\' and 工序 = \'" & e.DataRow("工序") & "\' and 细目 = \'" & e.DataRow("备注") & "\'")
If fdr IsNot Nothing
If e.DataRow("备注1") Like "*单面*" Then
e.DataRow("单价") = fdr("单价") / 2
Else
e.DataRow("单价") = fdr("单价")
End If
End If
End Select
Select Case e.DataCol.name
Case "姓名","岗位"
Dim d As Date = e.DataRow("日期")
d = new Date(d.year, d.month, 1)
Dim fdr As DataRow = DataTables("系数表").find("姓名 = \'" & e.DataRow("姓名") & "\' and 日期 >= #" & Format(d,"yyyy-MM-dd") & "# and 日期 < #" & Format(d.AddMonths(1),"yyyy -MM-dd") & "#", "日期 desc")
\'Dim fdr As DataRow = DataTables("系数表").find("姓名 = \'" & e.DataRow("姓名") & "\' and 日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#", "日期 desc")
If fdr IsNot Nothing
e.DataRow("系数") = fdr("系数")
e.DataRow("岗位") = fdr("级别")
Else
e.DataRow("岗位") = Nothing
e.DataRow("系数") = Nothing
End If
End Select
-- 发布时间：2016/12/7 22:02:00
--
谢谢，能重算了。