Dim t As Table = Tables("交易明细_table1")
For i As Integer = 0 To t.rows.Count-1
rt.cells(i+1,0).text= t.rows(i)("交易日期")
rt.cells(i+1,1).text= t.rows(i)("银行账号")
rt.cells(i+1,2).text= t.rows(i)("银行卡号")
rt.cells(i+1,3).text= t.rows(i)("交易户名")
rt.cells(i+1,4).text= t.rows(i)("交易内容")
rt.cells(i+1,5).text= t.rows(i)("借方金额")
rt.cells(i+1,6).text= t.rows(i)("贷方金额")
rt.cells(i+1,7).text= t.rows(i)("余额")
rt.cells(i+1,8).text= t.rows(i)("对方账号")
rt.cells(i+1,9).text= t.rows(i)("对方户名")
rt.cells(i+1,10).text= t.rows(i)("地点号")
rt.cells(i+1,11).text= t.rows(i)("交易机构")
Next
加好友 
发短信
Post By：2016/4/8 9:04:00 [显示全部帖子]
