[求助]内部函数问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]内部函数问题

共有2031人关注过本帖树形打印复制链接主题：[求助]内部函数问题

Hyphen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/17 16:48:00 [显示全部帖子]

Dim dr As DataRow= dt.DataRows(0)'具体要指定某行，这里是第一行

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/17 16:50:00 [显示全部帖子]

还不如直接传入一个datarow

Hyphen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/17 16:59:00 [显示全部帖子]

函数
Dim dr As DataRow= args(0)

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

调用
Functions.Execute("函数名",e.DataRow)

下一主题 >> << 上一主题

主题：[求助]内部函数问题