Select Case e.DataCol.Name
    Case "住院号","患者姓名","主管医生"
        If e.DataCol.Name = "患者姓名" Then
            If e.DataRow.IsNull("患者姓名") Then
                e.DataRow("sys_拼音码") = Nothing
            Else
                e.DataRow("sys_拼音码") = getpy(e.DataRow("患者姓名"),True)
            End If
        End If
        If e.DataCol.Name = "患者姓名"
            Dim Filter As String = "[住院号] = \'" & e.DataRow("住院号") & "\'"
            DataTables("长期医嘱").ReplaceFor("患者姓名", e.NewValue, Filter)
            DataTables("临时医嘱").ReplaceFor("患者姓名", e.NewValue, Filter)
        End If
        If e.DataCol.Name = "主管医生"
            Dim Filter As String = "住院号= \'" & e.DataRow("住院号") & "\'"
            Dim drs1 As List(of DataRow) = DataTables("长期医嘱").Select(Filter)
            Dim drs2 As List(of DataRow) = DataTables("临时医嘱").Select(Filter)
            For Each dr1 As DataRow In drs1
                If dr1("医生") = ""
                    dr1("医生") = e.DataRow("主管医生")
                End If
            Next
            For Each dr2 As DataRow In drs2
                If dr2("医生") = ""
                    dr2("医生") = e.DataRow("主管医生")
                End If
            Next
        End If      
End Select

问题在标注为红色的代码。

我在入院登记表写入代码，要求：长期医嘱和临时医嘱表“医生”列如果存在医生姓名，那么姓名保持不变，如果更换了医生，那么新录入的数据将显示更换的医生姓名。

简单的说就是：长期医嘱和临时医嘱表“医生”列，就得数据保持不变，新的数据使用新的医生。

文件已上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:住院收费.rar

简单的说就是：长期医嘱和临时医嘱表“医生”列，旧的数据保持不变，新增数据使用新的医生。

朋友的代码不能满足我的要求。

入院登记表某个病人更换医生后，长期医嘱和临时医嘱重置后刷新为更换后的医生。

我的要求是更换以前的医生不变。

比如入院登记是某个病人“唐连刚”的医生是“张月霞”，那么长期医嘱和临时医嘱该病人的医嘱“医生”列为“张月霞”。

过得一段时间，该病人的医生更换为“武爱花”，那么该病人新增医嘱医生为“武爱花”，此前的医生姓名不变。