Foxtable(狐表)用户栏目专家坐堂 → 有字符型和整数型,怎么改代码啊?


  共有1245人关注过本帖树形打印复制链接

主题:有字符型和整数型,怎么改代码啊?

帅哥哟,离线,有人找我吗?
xhydxs
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:2232 威望:0 精华:0 注册:2016/10/29 14:17:00
有字符型和整数型,怎么改代码啊?  发帖心情 Post By:2017/3/24 16:30:00 [只看该作者]

 Case "遗属身份证号码"
        Dim nms() As String = {"每月享受补助金额","调标后每月补助金额","遗属姓名"}
        If e.Newvalue Is Nothing Then
            For Each nm As String In nms
                e.DataRow(nm) = Nothing
            Next
        Else
            Dim pr As DataRow
            pr = DataTables("遗属基础信息").Find("遗属身份证号码 ='" & e.Newvalue &"'")
            If pr IsNot Nothing Then
                For Each nm As String In nms
                    e.DataRow(nm) = pr(nm)
                Next
            End If
        End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/24 16:31:00 [只看该作者]

 代码不用改,报神没错?

 回到顶部