If msgbox("导入更新可以导入客户基础数据和最新的理财金额,是否进行?",65,"提示") = 1 Then
Dim Book As New XLS.Book("D:\khdaxt\drgx\lcdrgx.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("理财客户明细").StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("理财客户明细").AddNew()
Dim val As String = sheet(n,0)
r("产品代码") = val.Substring(0,9)
r("网点号") = val.SubString(12,6)
val = sheet(n,2)
Dim y As Integer = val.SubString(0,4)
Dim m As Integer = val.Substring(4,2)
Dim d As Integer = val.Substring(6,2)
r("起息日") = new Date(y,m,d)
r("户名") = sheet(n,5)
'....大概如此,自己写下去
Tables("理财客户明细").ResumeRedraw()
msgbox("理财数据导入更新完毕!",64,"提示")
End If
加好友 
发短信
Post By：2015/3/24 9:24:00 [显示全部帖子]
