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

最前面加上一个判断：

If e.NewValue = Nothing Then

Else

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

..................

这样呢：

 

If e.DataCol.Name = "住院号" Then

 

If e.NewValue = Nothing Then

Else

    Dim vals() As String = e.NewValue.split(":")
    If vals.length > 2 Then
        e.DataRow("住院号") =vals(2)
    Else
        e.DataRow("住院号") =vals(0)
    End If
    Dim dr As DataRow = DataTables("入院登记").Find("[住院号] = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        e.DataRow("患者姓名") = dr("患者姓名")
    Else
        MsgBox("项目不存在,请重新输入!",64,"提示")
        e.DataRow("患者姓名") = Nothing
    End If
End If

End If

 

 

或者把：

If e.NewValue = Nothing Then

Else

换成：

   If e.DataRow.Isnull("住院号") Then

    Else

你发个例子上来吧，这样来回都没有效果，说明你的东东别人没有理解或····  总之原因很多啦···

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