主题：这么自动充填字符的表达式，如何写，烦请狐哥帮手

Select e.DataCol.name
    Case "核销费用01","核销费用02","申请费用","累计核销费用"
        If e.DataRow.IsNull("待报费用") Then
            e.DataRow("项目状态") = "等待资料中"
        ElseIf  e.DataRow("待报费用") = 0 Then
            e.DataRow("项目状态") = "核销完成"
        Else
            e.DataRow("项目状态") = "正在核销中"
        End If
End Select

If e.DataCol.Name = "项目状态" Then
    If  e.DataRow("项目状态") =  "核销完成" Then
        e.DataRow.Locked = True
        Dim n As Integer = Tables("表A").Findrow(e.DataRow)+1
        Tables("表A").SetHeaderCellBackColor("项目状态",Color.Red,n)
    End If
End If