- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求会计科目期未余额的自定义函数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170062)
-- 发布时间：2021/7/10 14:22:00
-- 求会计科目期未余额的自定义函数
目前系统要做自定义财务报表，想设置求会计科目期未余额的自定义函数，函数叁数：函数名称、科目代码、起始年、起始月、结束年、结束月，有相关的案例学习下吗？
-- 发布时间：2021/7/10 14:29:00
--
没接触过财务，不懂。如果有实例，和详细的计算规则，可以上传发上来看看
-- 发布时间：2021/7/12 14:37:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:例子.rar |
此主题相关图片如下：qq截图20210712143321.png
此主题相关图片如下：qq截图20210712143415.png
这些函数不知怎样设
-- 发布时间：2021/7/12 14:39:00
--
如果函数代码设好，还想着怎样才能应用于EXCEL表
-- 发布时间：2021/7/12 14:48:00
--
按什么规则计算？
-- 发布时间：2021/7/13 6:57:00
--
按会计科目、年份、月份，例如：函数名ABA,会计科目1001，年份2021、月份01，组合成：ABA(1001,2021,01)
单一求一个的值，这个值可放文本、单元格、EXCEL
-- 发布时间：2021/7/13 8:39:00
--
还是没看懂，意思就是组合成这么一个字符串【ABA(1001,2021,01)】放到单元格里？
-- 发布时间：2021/7/13 11:08:00
--
是
-- 发布时间：2021/7/13 11:10:00
--
ABA是函数，这个ABA的自定义函数怎样写呢？？
-- 发布时间：2021/7/13 11:18:00
--
以下是引用zhuxinhui在2021/7/13 11:08:00的发言：
报表，datacolchanged事件是
If e.DataCol.Name = "第一列" Then
If e.DataRow.IsNull("第一列") Then
e.DataRow("第三列") = Nothing
Else
Dim dr As DataRow = DataTables("明细").Find("科目名称=\'" & e.DataRow("第一列") & "\'")
If dr IsNot Nothing Then
e.DataRow("第三列") = "=ABA(" & dr("科目") & "," & Date.Today.Year & "," & Format(Date.Today.Month,"00") & ")"
Else
e.DataRow("第三列") = Nothing
End If
End If
End If