Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于计划管理


  共有3116人关注过本帖树形打印复制链接

主题：关于计划管理
帅哥哟，离线，有人找我吗？
outcat
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		关于计划管理  发帖心情 Post By：2020/9/20 5:05:00 [显示全部帖子]

老师，我下面是一段关于生成当天营业数据的代码，但怕有时候商家忘记交班，想在每天下班前自动生成营业数据，比如  18点01执行这个操作，计划管理里，该怎样处理这段代码嘛

Dim d As WinForm.Label =Forms("交班").Controls("今日日期")
d.text = Date.Today

Dim jby As WinForm.Label =Forms("交班").Controls("交班员")
jby.text = _UserName

Dim lsxssl As WinForm.Label =Forms("交班").Controls("商家订货数量")
Dim lsxsje As WinForm.Label =Forms("交班").Controls("商家订货金额")
Dim lsxsds As WinForm.Label =Forms("交班").Controls("商家订货单数")
lsxssl.text = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = '#" & d.text & "#'")
lsxsje.text = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d.text & "#'")
lsxsds.text = DataTables("供应商订货总表").Compute("count(订货单号)","日期 = '#" & d.text & "#'")

Dim cldhsl As WinForm.Label =Forms("交班").Controls("供应商回货数量")
Dim cldhje As WinForm.Label =Forms("交班").Controls("供应商回货金额")
Dim cldhds As WinForm.Label =Forms("交班").Controls("供应商回货单数")
cldhsl.text =DataTables("供应商回货总表").Compute("sum(回货数量)","日期 = '#" & d.text & "#'")
cldhje.text=    DataTables("供应商回货总表").Compute("sum(回货金额)","日期 = '#" & d.text & "#'")
cldhds.text =  DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d.text & "#'")

Dim khdhsl As WinForm.Label =Forms("交班").Controls("客户订货数量")
Dim khdhje As WinForm.Label =Forms("交班").Controls("客户订货金额")
Dim khdhdj As WinForm.Label =Forms("交班").Controls("客户预付订金")
Dim khdhds As WinForm.Label =Forms("交班").Controls("客户订货单数")
khdhsl.text = DataTables("客户订货总表").Compute("sum(总数量)","日期 = '#" & d.text & "#'")
khdhdj.text = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d.text & "#'")
khdhje.text = DataTables("客户订货总表").Compute("sum(应付金额)","日期 = '#" & d.text & "#'")
khdhds.text = DataTables("客户订货总表").Compute("count(订货单号)","日期 = '#" & d.text & "#'")

Dim sjshsl As WinForm.Label =Forms("交班").Controls("商家送货数量")
Dim sjshds As WinForm.Label =Forms("交班").Controls("商家送货单数")
sjshsl.text =DataTables("商场送货总表").Compute("sum(送货数量)","日期 = '#" & d.text & "#'")
sjshds.text =  DataTables("商场送货总表").Compute("count(送货单号)","日期 = '#" & d.text & "#'")

Dim rr As DataRow
rr = DataTables("营业综合报表").sqlFind("日期 = '" & d.text & "'")
If rr IsNot Nothing Then
    DataTables("营业综合报表").SQLDeleteFor("日期 = '" & d.text & "'")
    Dim r As Row = Tables("营业综合报表").AddNew
    r("商家订货数量") = lsxssl.text
    r("商家订货金额") = lsxsje.text
    r("商家订货单数") = lsxsds.text
    r("供应商回货数量") = cldhsl.text
    r("供应商回货金额") = cldhje.text
    r("供应商回货单数") = cldhds.text
    r("客户订货数量") = khdhsl.text
    r("客户订货金额") = khdhje.text
    r("客户订货单数") = khdhds.text
    r("客户预付订金") = khdhdj.text
    r("商家送货数量") = sjshsl.text
    r("商家送货单数") = sjshds.text
    r("交班员") = jby.text
    r("日期") = d.text
    DataTables("营业综合报表").save
End If
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/21 16:26:00 [显示全部帖子]

老师，你这让把控件去掉的方式，我修改了代码，可是这样生成不了数据，我还是用原来的代码，现在出现的问题是在窗体上都能看到生成的数据，可是却保存不到数据表里，后台数据库也没有，昨天我还能保存到数据库里的，也不知道怎么回事。

图片点击可在新窗口打开查看此主题相关图片如下：1111.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/21 17:03:00 [显示全部帖子]

老师，不弹出对对话框，真不知道怎么回事了，昨天也不知道怎么保存的一条记录，现在也删除了。增加不了了

 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/21 22:07:00 [显示全部帖子]

Dim rr As DataRow

rr = DataTables("营业综合报表").SQLFind("日期 = '" & d.text & "'")

MessageBox.show(rr("日期"))
''
If rr IsNot Nothing Then
msgbox("能不能弹出来?")
DataTables("营业综合报表").SQLDeleteFor("日期 = '" & d.text & "'")
    Dim r As Row = Tables("营业综合报表").AddNew
    r("商家订货数量") = lsxssl.text

老师，现在的问题应该就在红色部分这块了，现在数据里没有一条记录时，  在 MessageBox.show(rr("日期"))就报错了，当把这个判断条件去掉了，直接增加记录就可以，然后 再判断，当某个表发生了改变，再次点交班，就可以把当天旧的交班记录删除，生成新的交班记录了。

我想这样，当数据库里一条记录都没有是，就不判断了，直接向表中添加记录，等有了记录时再判断，这个逻辑对吗，我按照这个思路写了代码，现在头大了，怎么也不对，请教老师。
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/21 23:42:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：123.jpg
图片点击可在新窗口打开查看

老师， 我现在 这个本日收入 = 客户订金+订货付款 +订货货款

srje.text = (khdhdj.text) + (khdhfk.text) + (khdhjk.text)  我现在这样写是错了，只是把这三个数字排在一起了，无法相加，老师这个该怎么处理呢
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/22 15:07:00 [显示全部帖子]

我在计划管理里谢了如下代码 想实现比如今天忘记了交班，我在一个固定的时间里让系统自动交班，我现在设置的是 15:01 执行这个代码，可是没有生成及交班记录，请老师看一下

Dim d As Date = Date.now
If d.hour=15 And d.Minute=0 And d.Second=1 Then
    
    Dim rr As DataRow
    rr = DataTables("营业综合报表").sqlFind("日期 = '" & d & "'")
    If rr Is Nothing Then
        Dim r As Row = Tables("营业综合报表").AddNew
        r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = '#" & d & "#'")
        r("商家订货金额") = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d & "#'")
        r("商家订货单数") = DataTables("供应商订货总表").Compute("count(订货单号)","日期 = '#" & d & "#'")
        r("供应商回货数量") = DataTables("供应商回货总表").Compute("sum(回货数量)","日期 = '#" & d & "#'")
        r("供应商回货金额") = DataTables("供应商回货总表").Compute("sum(回货金额)","日期 = '#" & d & "#'")
        r("供应商回货单数") = DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d & "#'")
        r("客户订货数量") = DataTables("供应商回货总表").Compute("count(回货单号)","日期 = '#" & d & "#'")
        r("客户订货金额") = DataTables("客户订货总表").Compute("sum(应付金额)","日期 = '#" & d & "#'")
        r("客户订货单数") =  DataTables("客户订货总表").Compute("count(订货单号)","日期 = '#" & d & "#'")
        r("客户订货订金") = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d & "#'")
        r("商家送货数量") = DataTables("商场送货总表").Compute("sum(送货数量)","日期 = '#" & d & "#'")
        r("商家送货单数") = DataTables("商场送货总表").Compute("count(送货单号)","日期 = '#" & d & "#'")
        r("客户订货付款金额") = DataTables("客户订货付款表").Compute("sum(付款金额)","日期 = '#" & d & "#'")
        r("客户订货结款金额") = DataTables("客户订货总表").Compute("sum(实付金额)","日期 = '#" & d & "#'")
        r("收入金额") = DataTables("客户订货总表").Compute("sum(预付订金)","日期 = '#" & d & "#'") + DataTables("客户订货总表").Compute("sum(实付金额)","日期 = '#" & d & "#'") +DataTables("客户订货付款表").Compute("sum(付款金额)","日期 = '#" & d & "#'")
        r("支出金额") = DataTables("供应商订货总表").Compute("sum(订货金额)","日期 = '#" & d & "#'")
        r("利润") = r("收入金额") - r("支出金额")
        r("交班员") = "Admin"
        r("日期") = d
        
        Tables("营业综合报表").Current.save
        DataTables("营业综合报表").save
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/22 20:59:00 [显示全部帖子]

老师，现在定义的是Dim d As Date = Date.now 

 r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = ''" & d & "''")
可这个 日期 是Date.Today 

如何把 日期 = ''" & d & "''" 中的  d，转换为转换为 日期格式呢
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/22 21:20:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：131.jpg
图片点击可在新窗口打开查看

r("商家订货数量") = DataTables("供应商订货总表").Compute("sum(订货数量)","日期 = ''" & d & "''")  老师，我把 d 改成了，Date.Today  ,结果就出来了这个错误，老师，这是什么意思呢
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2020/9/22 22:51:00 [显示全部帖子]

老师，现在设置的时间间隔是 1分钟，这样的话，每过一分钟就生成一条交班记录，这样是不对的，我把时间间隔 24小时（86400000），这样就执行不了

这个怎样让在这个固定的时间段生成一条交班记录，就不要在生成了，或者生成了一条记录，这个计划就停止了，到第二天的时候，再根据条件判断，生成记录

因为每天的交班记录只是一条呀。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 6 次数据查询