帮忙看下代码吧？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.name

Case "工艺状态","粗车计划完成日","钳工热焊计划完成日","外协计划完成日","精车计划完成日","采购计划完成日","设计图计划完成日"

Dim dr As DataRow = e.DataRow

If dr("工艺状态") = "原材料" Or dr("工艺状态") = "外购毛坯" Then

Dim dx As Row = Tables("生产明细表").Filter = "[项目编号] = '" & Tables("生产项目表").current("项目编号")& "'"

If math.max(dx("粗车计划完成日"),dx("钳工热焊计划完成日"),dx("外协计划完成日"),dx("精车计划完成日")) = "无" Then

dr("装配入库计划开始日") = "缺值"

Else

dr("装配入库计划开始日") = math.max(dx("采购计划完成日"),dx("粗车计划完成日"),dx("钳工热焊计划完成日"),dx("外协计划完成日"),dx("精车计划完成日"))

End If

Else

If dr("工艺状态") = "外购成品" Or dr("工艺状态") = "库存成品" Then

dr("装配入库计划开始日") = dr("设计图计划完成日")

End If

End Select

请帮忙看下谢谢了~~自己弄了好久弄不来了~~

此主题相关图片如下：qq截图20121130124026.png

这个是找出指定列里面的最大值

不知道该如何判断日期~~请教下狐爸~ 图片点击可在新窗口打开查看

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.foxdb

帮忙看下，在datacolchanged里

下载信息 [文件大小：下载次数： ]
点击浏览该文件:db.rar

抱歉 ~忘记了 ~~~

dx("粗车计划完成日"),dx("钳工热焊计划完成日"),dx("外协计划完成日"),dx("精车计划完成日") 根据前面写的判断如果这些列里没日期就会显示“无",而这句代码的意思是如果都显示”无“ then

等我回去测试下，看着却是挺疼的~~其实这个在excel里用max函数就可以实现的……

谢谢lin_hailun帮忙（抱歉前几天人不在）但这样判断貌似没判断全，Case "工艺状态","粗车计划完成日","钳工热焊计划完成日","外协计划完成日","精车计划完成日","采购计划完成日","设计图计划完成日" 这些列都是 string，所以还要转换~有没有更好的方法来实现 excel里面的max 函数？

有木有其他办法了亲~

主题：帮忙看下代码吧？