主题：[原创]代码问题

老师，下面这段代码，如果不变，如果增加了行，编辑之前HTLB（合同类别）列为空，则LBJM（类别简码）的值是“QT”，但是，当HTLB输入相应的值后，LBJM的值却无法更新。

Dim L As String = e.DataRow("HTLB") 

Select Case e.DataRow("HTLB") 

    Case "工程施工合同"

        E.DataRow("LBJM") = "SG"

    Case "工程设计合同"

        E.DataRow("LBJM") = "SJ"

    Case "工程绿化合同"

        E.DataRow("LBJM") = "LH"

    Case "工程勘测合同"

        E.DataRow("LBJM") = "KC"

    Case "工程合同"

        E.DataRow("LBJM") = "CQ"

    Case "工程前期合同"

        E.DataRow("LBJM") = "QQ"

    Case "行政管理合同"

        E.DataRow("LBJM") = "HZ"

    Case "投融资类合同"

        E.DataRow("LBJM") = "TR"

    Case Else

        E.DataRow("LBJM") = "QT"

End Select

如果代码转为这样，则LBJM无法赋值：