以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  查询表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131128)

--  作者:admin22327
--  发布时间:2019/2/18 7:23:00
--  查询表
一个租赁站,给甲公司出租A产品,2月5日发出A产品2000件,3月3日发出A产品800件,6月20日收回1500件,6月28日收回1000件,8月5日收回300件,计算每个月的租赁费,租赁收回当天不计费,发出当天计费,现在要生成每个月的账单这样个查询表怎么弄,每天的租赁费为1.55在发货单据中已经注明
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站4.table

[此贴子已经被作者于2019/2/18 8:26:42编辑过]

--  作者:有点蓝
--  发布时间:2019/2/18 14:15:00
--  

[此贴子已经被作者于2019/2/18 14:14:44编辑过]

--  作者:admin22327
--  发布时间:2019/2/18 14:37:00
--  
怎么没有东西哦
--  作者:admin22327
--  发布时间:2019/2/18 16:22:00
--  
不能实现吗,还是应该换一个方式呢
--  作者:有点蓝
--  发布时间:2019/2/18 17:42:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站4.zip


--  作者:admin22327
--  发布时间:2019/2/18 22:55:00
--  
谢谢老师,计算的很准,但是,你发过来的这个,不能按客户选择,其次,按2月或3月这样计算,到下一年是不是会把2年的2月或3月加在一起统计计算呢,我也没有测试,本想自己弄一下,实在不会了,还请老师帮助一下,把客户选择加进去,时间不要月份了,按开始时间和结束计算好像更灵活些,谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站4.table

[此贴子已经被作者于2019/2/18 22:57:01编辑过]

--  作者:有点蓝
--  发布时间:2019/2/18 23:17:00
--  
客户本来就有,如果看不懂代码,先学习基础吧:http://www.foxtable.com/webhelp/scr/1592.htm




--  作者:xdfoxtable
--  发布时间:2019/2/20 16:38:00
--  
你写的代码为什么仅限一个客户的一个产品计算呢,怎么不是多个的产品的
--  作者:xdfoxtable
--  发布时间:2019/2/20 16:39:00
--  
你的代码我看有循环客户和产品,但是实际只能计算一个客户的一个产品
--  作者:有点蓝
--  发布时间:2019/2/20 17:08:00
--  
一点小bug

……
Dim tb As Table = e.Form.Controls("Table1").Table
tb.DataTable.DataRows.Clear
Dim khs As List(Of String()) = DataTables("发货收货查询表").GetValues("客户|名称")
For Each kh() As String In khs
    d = new Date(Date.Today.Year,yf,1) \'还原d值
    Dim r As Row = tb.AddNew()
    r("客户") = kh(0)
……