以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有字符型和整数型，怎么改代码啊？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98128)
--  作者：xhydxs
--  发布时间：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
--  作者：有点色
--  发布时间：2017/3/24 16:31:00
--  
 代码不用改，报神没错？