If User.Group = "财务" OrElse User.name = "开发者" OrElse User.Group = "行政"
If CurrentTable.name.contains("综合所得申报")
Dim Book As New XLS.Book("C:\综合所得申报.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("综合所得申报").StopRedraw()
Dim nms() As String = {"","","","身份证码","","","","","","","","","","","","","","","","","","","","","上月税务局累计子女教育","上月税务局累计赡养老人","上月税务局累计房贷利息","上月税务局累计租房租金","上月税务局累计继续教
育","","","","","","","","","","上月税务局实际扣税"}
For n As Integer = 8 To Sheet.Rows.Count -1
Dim sfz As String = sheet(n,3).Text
Dim znjy As String = sheet(n,24).Text
Dim sylr As String = sheet(n,25).Text
Dim zfdk As String = sheet(n,26).Text
Dim zfzj As String = sheet(n,27).Text
Dim jxjy As String = sheet(n,28).Text
Dim ybts As String = sheet(n,38).Text
Dim dr As DataRow
dr = DataTables("综合所得申报").AddNew()
For m As Integer = 0 To nms.Length - 1
If nms(m) = "" Then Continue For '跳过空标题(这个if不用加end if)
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("综合所得申报").ResumeRedraw()
End If
End If
上述代码我在上载excel数据至foxtable时，如果excel表格里面同一"身份证号"有相同的多条记录，那么“上月税务局实际扣税” 这栏数据如何实现多行数据的相加，累计到foxtable里面的一行数据里面去?谢谢。
加好友 
发短信
Post By：2021/3/15 11:09:00 [显示全部帖子]
