Select Case e.DataCol.name Case "图纸状态", "BOM状态", "任务类型" If e.DataRow.isnull("图纸状态")=False AndAlso e.DataRow.Isnull("Bom状态")=False Then e.DataRow("任务类型")="已有全套" ElseIf e.DataRow.isnull("图纸状态")=False Then e.DataRow("任务类型")="已有图纸,无BOM" ElseIf e.DataRow.Isnull("Bom状态")=False Then e.DataRow("任务类型")="无图纸,有BOM" Else e.DataRow("任务类型")="新品" End If End Select
|