主题：[求助]代码不能正确返回姓名，请指教

我测试过了不会有任何提示的，楼主你重启项目看看，实在不行就发项目上来或做个简单的例子上来····

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

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

 

代码位置：临时医嘱表-表属性

请大家指导

问题未解决，文件已上传

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

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

DataColChanging事件：

 

If e.DataCol.Name = "住院号" Then
    If e.NewValue IsNot Nothing Then
        Dim vals() As String = e.NewValue.split(":")
        If vals.length > 2 Then
            e.NewValue =vals(2)
        Else
            e.NewValue =vals(0)
        End If
    End If
End If

 

DataCoChanged事件：

If e.DataCol.Name = "住院号" Then
    If e.DataRow.Isnull("住院号") Then
        e.DataRow("患者姓名") = Nothing
    Else
        Dim dr As DataRow = DataTables("入院登记").Find("[住院号] = '" & e.DataRow("住院号") & "'")
        If dr IsNot Nothing Then
            e.DataRow("患者姓名") = dr("患者姓名")
        Else
            MsgBox("项目不存在,请重新输入!",64,"提示")
            e.DataRow("患者姓名") = Nothing
        End If
    End If
End If

 

 

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

点击浏览该文件:管理项目165.rar

谢谢老总，看来还是要发文件。衷心感谢老总和各位朋友的帮助。代码的执行结果正是我需要的，如此可以举一反三，写出其他相似的代码。学习中...

 

变化前是进行时

变化后是完成时