因为项目多次使用患者ID号（姓名+出生日期）和访问日期间的比较，我想做一个内部函数，每次调用即可。但过不了。提示：datarow 不是 datatable的成员。代码如下：
Dim dt As DataTable=DataTables(args(0))
Dim dr As DataRow= dt.DataRow
If dt.DataCol.Name="访问日期" Then
If dr("patientsID")>"" Then
Dim s As String = dr("patientsID")
Dim s1 As Date = CDate(left(right(s,8),4) & "-" & _
left(right(s,4),2) & "-" & right(s,2))
Dim s2 As Date=dr("访问日期")
If s2 IsNot Nothing Then
If s1>s2 Then
MessageBox.Show("访问日期不可能早于出生日期,请仔细核对访问日期","提示" )
End If
End If
End If
End If
加好友 
发短信
Post By：2015/12/17 16:10:00 [只看该作者]
