主题：帮忙看下代码吧？

 不知道你想实现什么，也不知道你报什么错误……估计是这句代码写错了。

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

 把你这个表的数据上传上来。 看不懂你代码的逻辑。

 数据源呢？

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

这句代码你想实现的内容是什么？怎么处理日期是 无 的情况？

 改好了你的逻辑，不过不知道怎么去测试。看着头晕。

Select Case e.DataCol.name
    Case "工艺状态","粗车计划完成日","钳工热焊计划完成日","外协计划完成日","精车计划完成日","采购计划完成日","设计图计划完成日"
        Dim dr As DataRow = e.DataRow
        If dr("工艺状态") = "原材料" OrElse dr("工艺状态") = "外购毛坯" Then
            Dim dx As Row = Tables("生产明细表").Filter = "[项目编号] = '" & Tables("生产项目表").current("项目编号")& "'"
            If dx("粗车计划完成日") = "无" AndAlso dx("钳工热焊计划完成日") = "无" AndAlso dx("外协计划完成日") = "无" AndAlso dx("精车计划完成日") = "无" Then
                dr("装配入库计划开始日") = "缺值"
            Else
                Dim max As Date = IIF(dx("采购计划完成日") = "无", "1900/1/1", dx("采购计划完成日"))
                Dim temp As Date = IIF(dx("钳工热焊计划完成日") = "无", "1900/1/1", dx("钳工热焊计划完成日"))
                If temp > max Then max = temp
                temp = IIF(dx("采购计划完成日") = "无", "1900/1/1", dx("采购计划完成日"))
                If temp > max Then max = temp
                temp = IIF(dx("精车计划完成日") = "无", "1900/1/1", dx("精车计划完成日"))
                If temp > max Then max = temp
                dr("装配入库计划开始日") = max
            End If
        Else
            If dr("工艺状态") = "外购成品" OrElse dr("工艺状态") = "库存成品" Then
                dr("装配入库计划开始日") = dr("设计图计划完成日")
            End If
        End If
End Select

 建议实用日期类型，然后，无的，就留空。这样好判断。

 不用日期列本身就不合理的。这样试试。

Select Case e.DataCol.name
    Case "工艺状态","粗车计划完成日","钳工热焊计划完成日","外协计划完成日","精车计划完成日","采购计划完成日","设计图计划完成日"
        Dim dr As DataRow = e.DataRow
        If dr("工艺状态") = "原材料" OrElse dr("工艺状态") = "外购毛坯" Then
            Dim dx As Row = Tables("生产明细表").Filter = "[项目编号] = '" & Tables("生产项目表").current("项目编号")& "'"

            Dim colnames() As String = {"钳工热焊计划完成日", "钳工热焊计划完成日", "钳工热焊计划完成日", "钳工热焊计划完成日"}   '加入你的列名

            Dim max As Date = "1900/1/1"
            For Each colname As String In colnames
                If dx(colname) <> "无" Then
                    Dim temp As Date = dx(colname)
                    If temp > max Then max = temp
                End If
            Next

            If max = "1900/1/1" Then
                dr("装配入库计划开始日") = "缺值"
            Else
                dr("装配入库计划开始日") = max
            End If
        Else
            If dr("工艺状态") = "外购成品" OrElse dr("工艺状态") = "库存成品" Then
                dr("装配入库计划开始日") = dr("设计图计划完成日")
            End If
        End If
End Select