- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为啥跳转出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138481)
-- 发布时间：2019/8/1 11:29:00
-- 为啥跳转出
此主题相关图片如下：简易税额.png
此主题相关图片如下：应交税额.png
红色背景的测试有,可计算结果为啥出不来呢?
Select Case e.DataCol.Name
Case "年份","月份"
Dim dr As DataRow = e.DataRow
Dim filter As String = "[年份] = "& dr("年份") & "and [月份] = "& dr("月份") & " and 税率 <> 0.03 " \'进项统计
Dim filter1 As String = "[年份] = "& dr("年份") & "and [月份] = "& dr("月份") & "and 税额 > 0 " \'销项统计
Dim filter2 As String = "[年份] = "& dr("年份") & "and [月份] = "& dr("月份") & "And 税额 < 0 " \'进项转出统计
Dim filter3 As String = "[年份] = "& dr("年份") & "and [月份] = "& dr("月份") & " and 税率 = 0.03 " \'简易征收统计
For Each dc As DataCol In DataTables("税金统计").DataCols \'计算简易征收的税
If dc.Name.Contains("简易销项金额") = True Then
MessageBox.Show(1) \'测试用
dr("进项_金额") = DataTables("进项发票").SQLCompute("sum(金额)",filter1)
dr("进项_税额") = DataTables("进项发票").SQLCompute("sum(税额)",filter1)
dr("进项_价税合计") = DataTables("进项发票").SQLCompute("sum(金额 + 税额)",filter1)
dr("进项_份数") = DataTables("进项发票").SQLCompute("count(*)",filter1)
dr("进项转出_份数") = DataTables("进项发票").SQLCompute("count(*)",filter2)
dr("进项转出_税额") = DataTables("进项发票").SQLCompute("sum(税额)",filter2)
dr("销项_份数") = DataTables("销项发票").SQLCompute("count(*)",filter)
dr("销项_金额") = DataTables("销项发票").SQLCompute("sum(金额)",filter)
dr("销项_税额") = DataTables("销项发票").SQLCompute("sum(税额)",filter)
dr("销项_价税合计") = DataTables("销项发票").SQLCompute("sum(金额 + 税额)",filter)
dr("简易销项份数") = DataTables("销项发票").SQLCompute("count(*)",filter3)
dr("简易销项金额") = DataTables("销项发票").SQLCompute("sum(金额)",filter3)
dr("简易销项税额") = DataTables("销项发票").SQLCompute("sum(税额)",filter3)
dr("简易销项价税合计") = DataTables("销项发票").SQLCompute("sum(金额 + 税额)",filter3)
Dim dr1 As DataRow
Dim drs As List(of DataRow)
dr1 = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行
If dr1 Is Nothing Then \'如果没有找到上一行,说明本行就是第一行
e.DataRow("正数是应交税额负数是留抵税额") = e.DataRow("销项_税额") - e.DataRow("进项_税额") - e.DataRow("进项转出_税额")
dr1 = e.DataRow
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr1("_SortKey"), "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
If drs(i-1)("正数是应交税额负数是留抵税额") >= 0 Then
drs(i)("正数是应交税额负数是留抵税额") = drs(i)("销项_税额") - drs(i)("进项_税额") - e.DataRow("进项转出_税额")
Else
drs(i)("正数是应交税额负数是留抵税额") = drs(i-1)("正数是应交税额负数是留抵税额") + drs(i)("销项_税额") - drs(i)("进项_税额")- e.DataRow("进项转出_税额")
End If
Next
If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
e.DataRow("应交税额") = e.DataRow("简易销项税额")
Else
MessageBox.Show("应交税额:" & e.DataRow("正数是应交税额负数是留抵税额")) \'测试用
MessageBox.Show("简易销项税额:" & e.DataRow("简易销项税额")) \'测试用
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额") + e.DataRow("简易销项税额")
End If
Else
dr("进项_金额") = DataTables("进项发票").SQLCompute("sum(金额)",filter1)
dr("进项_税额") = DataTables("进项发票").SQLCompute("sum(税额)",filter1)
dr("进项_价税合计") = DataTables("进项发票").SQLCompute("sum(金额 + 税额)",filter1)
dr("进项_份数") = DataTables("进项发票").SQLCompute("count(*)",filter1)
dr("进项转出_份数") = DataTables("进项发票").SQLCompute("count(*)",filter2)
dr("进项转出_税额") = DataTables("进项发票").SQLCompute("sum(税额)",filter2)
dr("销项_份数") = DataTables("销项发票").SQLCompute("count(*)",filter)
dr("销项_金额") = DataTables("销项发票").SQLCompute("sum(金额)",filter)
dr("销项_税额") = DataTables("销项发票").SQLCompute("sum(税额)",filter)
dr("销项_价税合计") = DataTables("销项发票").SQLCompute("sum(金额 + 税额)",filter)
Dim dr1 As DataRow
Dim drs As List(of DataRow)
dr1 = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") \'找出上一行
If dr1 Is Nothing Then \'如果没有找到上一行,说明本行就是第一行
e.DataRow("正数是应交税额负数是留抵税额") = e.DataRow("销项_税额") - e.DataRow("进项_税额") - e.DataRow("进项转出_税额")
dr1 = e.DataRow
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr1("_SortKey"), "[_SortKey]")
For i As Integer = 1 To drs.Count - 1 \'重算余下行的余额
If drs(i-1)("正数是应交税额负数是留抵税额") >= 0 Then
drs(i)("正数是应交税额负数是留抵税额") = drs(i)("销项_税额") - drs(i)("进项_税额") - e.DataRow("进项转出_税额")
Else
drs(i)("正数是应交税额负数是留抵税额") = drs(i-1)("正数是应交税额负数是留抵税额") + drs(i)("销项_税额") - drs(i)("进项_税额")- e.DataRow("进项转出_税额")
End If
Next
If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
e.DataRow("应交税额") = Nothing
Else
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额")
End If
End If
Next
End Select
-- 发布时间：2019/8/1 11:37:00
--
代码是放在哪个表的datacolchanged事件的？
为什么要遍历这个表的所有列？For Each dc As DataCol In DataTables("税金统计").DataCols
没看出来这个遍历和整体逻辑有什么关系
-- 发布时间：2019/8/1 13:51:00
-- 回复：（有点蓝）代码是放在哪个表的datacolchanged事...
是放在 税金统计 的DataColChanged中的
我是因为在同一个系统中可以切换不同的数据源,当切换到不同数据源时,表的结构有所变化,变化的部分见截图的红色框框,所以我就做了这样一个判断,我觉得也是这个判断出了问题,但又不知道怎么改
此主题相关图片如下：无简易征收项的数据源.png
此主题相关图片如下：有简易征收项的数据库.png
[此贴子已经被作者于2019/8/1 13:51:34编辑过]
-- 发布时间：2019/8/1 14:07:00
--
如果要判断是否存在某列，参考：http://www.foxtable.com/webhelp/topics/1428.htm
If e.DataTable.DataCols.Contains("简易销项金额") Then