Select Case e.DataCol.name

    Case "铸锭批号2"

        Dim dr As DataRow =DataTables("熔炼效率").find("铸锭批号 =\'" & e.oldvalue & "\'")

        If dr Is Nothing Then dr = DataTables("熔炼效率").sqlfind("铸锭批号 =\'" & e.oldvalue & "\'")

        If dr Is Nothing Then

            dr=DataTables("熔炼效率").addnew()

            dr("铸锭批号")=e.DataRow("铸锭批号2")

            dr("毛锭规格")=e.DataRow("锭型")

            dr("熔炼起始时间")=e.DataRow("熔炼时间")

            dr("熔炼结束时间")=e.DataRow("补缩时间")

            dr("熔炼1_班组")=e.DataRow("熔炼班组")

            dr("熔炼1_长度_结束")=e.DataRow("熔炼长度")

            dr("熔炼2_班组")=e.DataRow("熔炼班组2")

            dr("熔炼2_长度_结束")=e.DataRow("熔炼长度2")

            dr("熔炼3_班组")=e.DataRow("熔炼班组3")

            dr("熔炼3_长度_结束")=e.DataRow("熔炼长度3")

            dr("熔炼4_班组")=e.DataRow("熔炼班组4")

            dr("熔炼4_长度_结束")=e.DataRow("熔炼长度4")

        Else

            dr("铸锭批号")=e.DataRow("铸锭批号2")

        End If

        dr.save

   Case "熔炼起始时间","熔炼结束时间","熔炼1_班组","熔炼1_长度_结束","熔炼2_班组","熔炼2_长度_开始","熔炼2_长度_结束","熔炼3_班组","熔炼3_长度_开始","熔炼3_长度_结束","熔炼4_班组","熔炼4_长度_开始","熔炼4_长度_结束"

        Dim dr As DataRow=DataTables("熔炼效率").find("铸锭批号 =\'" & e.DataRow("铸锭批号") & "\'")

        If dr Is Nothing Then dr=DataTables("熔炼效率").sqlfind("铸锭批号 =\'" & e.DataRow("铸锭批号") & "\'")

        If dr IsNot Nothing Then

            dr(e.DataCol.name)=e.DataRow(e.DataCol.name)

            dr.save

        End If

End Select

然而，在填写信息后，没有任何效果。请教：如何寻找问题。