以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两表日期内容显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110587)

--  作者:有点蓝
--  发布时间:2017/12/6 8:47:00
--  
请上传实例
--  作者:有点甜
--  发布时间:2017/12/6 9:24:00
--  

看看这里,类似

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109981&authorid=0&page=0&star=1

 

查询或者统计,你用find和compute不就好了?

 

http://www.foxtable.com/webhelp/scr/0681.htm

 


--  作者:有点甜
--  发布时间:2017/12/6 12:37:00
--  

1、开发者密码不正确;

 

2、请自行根据逻辑编写代码

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109981&authorid=0&page=0&star=1

 

http://www.foxtable.com/webhelp/scr/0681.htm

 

http://www.foxtable.com/webhelp/scr/0548.htm

 

http://www.foxtable.com/webhelp/scr/0396.htm

 

3、如果代码不会写,请,先,学习一下foxtable基础语法,再继续下去。


--  作者:有点甜
--  发布时间:2017/12/6 15:20:00
--  

1、类似代码,逻辑和细节自己调整。实在是看不懂你到底要做什么

 

Select Case e.DataCol.name
    Case "成品编码","工作时间","成品描述","生产批次","加工工序","加工内容","毛坯产地","加工顺序","循环时间","计划数量"
        Dim filter As String = "成品编码=\'" & e.DataRow("成品编码") & "\' and 生产批次=\'" & e.DataRow("生产批次") & "\' and 加工工序=\'" & e.DataRow("加工工序") & "\'"
        Dim fdr1 As DataRow = DataTables("生产排产表").find(filter)
        For i As Integer = 1 To 31
            Dim d As Date = Date.Today.AddDays(i-1)
            e.DataRow("日" & i) = e.DataRow("计划数量")-(e.DataRow("工作时间")-(cdate(fdr1("开始日期"))-d.AddHours(8)).totalminutes/e.DataRow("循环时间"))-DataTables("工序跟踪表").compute("sum(完成数量)", filter)
        Next
End Select

 

2、你哪一步不会?请细分你的问题。你会find数据了吗?你会compute数据了吗?如果固定列名的情况,比如12月6日,你能计算出答案了吗?

 

    你这样没有一点基础,理解不了代码意思的情况下,是无法开发项目的。

 

3、请先吧基础学习一下,你现在连看懂代码的基础都没有。