专家坐堂-所需类型是 Int32。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb As Table = Tables("建档就读台帐_table1")

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog

dlg.Filter= "Excel文件|*.xls;*.xlsx" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

Dim Book As New XLS.Book(dlg.filename)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim bh As Integer

Dim sjh As Integer

Dim xm As Integer

Dim xb As Integer

Dim csny As Integer

For i As Integer = 0 To sheet.Cols.count -1

If sheet(0,i).value = "身份证件号"

bh =i

End If

For n As Integer = 1 To Sheet.Rows.Count -1

If sheet(n,bh).text>""

Dim dr As DataRow = DataTables("建档就读台帐").Find("身份证件号 =\'" & trim(sheet(n,bh).text) & "\'")

If dr Is Nothing Then dr = DataTables("建档就读台帐").AddNew()

For m As Integer =0 To sheet.Cols.count-1

If trim(sheet(0,m).text)>"" And tb.Cols.Contains(trim(sheet(0,m).text))

dr(trim(sheet(0,m).text))=trim(sheet(n,m).text)

End If

dr("归属中心校")=sszxx

dr("学校")=_usergroup

End If

For Each r As Row In tb.Rows

If ValidPIN(r("身份证件号"))

r("出生日期") = CStr(ReadBirthDay(r("身份证件号")))

r("性别") = ReadSex(trim(r("身份证件号")))

Dim tp As TimeSpan = Date.today - CDate(r("出生日期"))

r("年龄") = Math.Round(tp.TotalDays / 365.2422,2)

Else

r("出生日期") = Nothing

r("性别")=Nothing

r("年龄") =Nothing

End If