Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog =DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("参加企业保险明细表").StopRedraw()
Dim nms() As String = {"姓名","身份证号码","开始日期","截止日期"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim d1 As Date = Sheet(n,2).Value
Dim d2 As Date = Sheet(n,3).Value
Dim d3 As Date = new Date(d1.year,d1.month,20)
Dim r As Row
Do While d3 < d2
r = Tables("参加企业保险明细表").AddNew()
r("姓名") = Sheet(n,0).Value
r("身份证") = Sheet(n,1).Value
r("在保月份")= d3
d3 = d3.addmonths(1)
Loop
Next
End If
Tables("参加企业保险明细表").ResumeRedraw()
DataTables("参加企业保险明细表").Save
加好友 
发短信
Post By：2022/3/16 8:51:00 [显示全部帖子]
