主题：请专家帮忙看一下这段代码该如何修改

对于一个表我之前为字段“到货日期”自定义了两种样式，“近期”和“逾期”，分别用黄色和红色标识，代码如下：

谢谢专家，试成了，挺好用的，另外想请请教一个问题，请问以下这种情况应该如何写代码：

请上例子. 描述看得头晕.

好的，上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:boc库存及订单管理项目.zip

如果要求密码，是8888，几乎忘了

搞不清楚你的对应关系.

 采购订单明细表，datacolchanged事件，代码

 

Select Case e.DataCol.Name
    Case "采购数量"
        Dim pdr As DataRow = e.DataRow.GetParentRow("采购订单主表")
        If pdr IsNot Nothing Then
            pdr("是否核销") = pdr("采购合计") = e.DataTable.Compute("sum(入库数量)", "采购订单号='" & e.DataRow("采购订单号") & "'")
        End If
End Select

就是【采购订单主表】中的一个"采购订单号"，可能在采购入库【入库主表】时对应多个"入库单号"，当有着同一个"采购订单号"的一个或多个"入库单号"的"入库合计"之和等于对应"采购订单号"的"采购合计"时， 【采购订单主表】中"是否核销"自动打勾

还需要写一下，入库明细表，datacolchanged事件，代码

 

Select Case e.DataCol.name
    Case "采购入库日期", "销售出库日期"
        If e.DataRow.isnull("采购入库日期") = False Then
            If e.DataRow.isnull("销售出库日期") = False Then
                e.DataRow("钢瓶状态") = "销售出库"
            Else
                e.DataRow("钢瓶状态") = "采购入库"
            End If
        Else
            e.DataRow("钢瓶状态") = Nothing
        End If
    Case "入库数量"
        DataTables("采购订单明细表").DataCols("采购数量").RaiseDataColChanged(e.DataRow.GetParentRow("采购订单明细表"))
End Select