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

Select e.DataCol.name

    Case "累计核销费用","待报费用"

        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