有字符型和整数型，怎么改代码啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

主题：有字符型和整数型，怎么改代码啊？