主题：[求助]重置时保持数据不变？

Select Case e.DataCol.Name

    Case "住院号","患者姓名","主管医生"         

         Dim drs1,drs2 As  List(of DataRow)

         Dim dt1,dt2 as DataTable

         Dim dr,dr1 As  DataRow

         dr = e.DataRow

         Dim Filter As String = "[住院号] = '" & dr("住院号") & "'"

         dt1 = DataTables("长期医嘱")

         dt2 = DataTables("临时医嘱")

         drs1 = dt1.Select(Filter)

         drs2 = dt2.Select(Filter)

         If e.DataCol.Name = "患者姓名"

           dr("sys_拼音码") = getpy(dr("患者姓名"),True)

            For Each dr1  In drs1           

                    dr1("患者姓名") = e.NewValue

            Next

            For Each dr1 In drs2

                 dr1("患者姓名") = e.NewValue

            Next

        End If

        If e.DataCol.Name = "主管医生"            

            For Each dr1 In drs1

                If dr1("医生") = Nothing Then

                    dr1("医生") = dr("主管医生")

                End If

            Next

            For Each dr1 In drs2

                If dr1("医生") = Nothing Then

                    dr1("医生") = dr("主管医生")

                End If

            Next

        End If

End Select

我测试3楼代码没有更改 旧数据