Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用按钮统计数据问题


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

主题：用按钮统计数据问题
帅哥哟，离线，有人找我吗？
有点色
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/13 15:57:00 [显示全部帖子]

汗，你写这么多，还不如看一眼帮助文档。

 

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

 

条件 http://www.foxtable.com/webhelp/scr/1647.htm

 

日期条件 http://www.foxtable.com/webhelp/scr/2720.htm

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/13 17:13:00 [显示全部帖子]

Dim rst As DialogResult = MessageBox.Show("你确认要删除", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
If rst = DialogResult.Yes Then
    CurrentTable.Current.Delete
Else
    msgbox("点击了 否 ")
End If

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/14 9:42:00 [显示全部帖子]

类似这样改一下

 

    Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = " & val(dr("财务编号")))
    Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = " & val(dr("财务编号")))
    Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = " & val(dr("财务编号")))
    Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = " & val(dr("财务编号")))
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/14 9:43:00 [显示全部帖子]

如果不用10楼的方法修改。那你可以不改代码，你直接把编号列改成字符类型的列即可。

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/2/14 11:09:00 [显示全部帖子]

把单引号去掉

 

  Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & val(dr("财务编号")))

 

改成

 

  Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = " & val(dr("财务编号")))
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/16 10:25:00 [显示全部帖子]

加入msgbox 定位是哪一句代码有错。

 

你的编号列，都要是数值列，才行，不能是字符列。
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/3/16 11:05:00 [显示全部帖子]

那全部改成字符列，然后代码修改，加上单引号

 

Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "'")  '按高开编号求批发表中数量
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询