Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口上报，帮忙指导一下


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

主题：接口上报，帮忙指导一下
帅哥哟，离线，有人找我吗？
zoyong
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/1/12 14:16:00 [只看该作者]

'合计
Dim r As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价","折扣","定价","金额"
        If r("折扣") > 0 Then
            r("单价") = r("定价") * r("折扣") / 100
        End If
        If r("数量") <> 0 Then
            r("单价") = r("金额") / r("数量")
        End If
        If r("单价") > 0 Then
            r("折扣") = r("金额") / r("单价")
        End If
        r("金额") = r("数量") * r("单价")
End Select


想修改（金额、单价、折扣）列中的一个，其他两个同时改变值
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/12 14:23:00 [只看该作者]

分开处理

Dim r As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "折扣","定价"
        If r("折扣") > 0 Then
            r("单价") = r("定价") * r("折扣") / 100
        End If
End Select
Select Case e.DataCol.Name
    Case "数量","金额"
        If r("数量") <> 0 Then
            r("单价") = r("金额") / r("数量")
        End If
End Select
……
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/1/23 13:36:00 [只看该作者]

SQL函数

CONVERT(decimal(18, 0), c.现存数 / b.装箱数) AS 现存件数,

现存件数的值为四舍五入了，不想四舍五入怎么写代码



想在现存件数的值中加入“件”，代码怎么写

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


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/25 21:43:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/1827.htm

Ceiling

返回大于或等于给定数值的最小整数。


CONVERT(nvarchar(10),Ceiling(c.现存数 / b.装箱数) + '件' as 现存件数
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/1/30 13:00:00 [只看该作者]

Dim bjs As List(Of String) = DataTables("记录_table2").GetValues("企业名称")
For Each bj As String In bjs     '获得该企业名称的全部行,按总得分降序排序
    Dim drs As List(Of DataRow) = DataTables("记录_table2").Select("[企业名称] = " & bj, "总得分 DESC")
    For n As Integer = 0 To drs.Count - 1     '遍历所有行
        If n > 0 AndAlso drs(n)("总得分") = drs(n-1)("总得分") Then     '如果总得分和上一行相同
            drs(n)("排名") = drs(n-1)("排名")     '则排名等于上一行
        Else
            drs(n)("排名") = n + 1     '设置排名
        End If
    Next
Next



.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,记录,Button1,Click
详细错误信息：
语法错误:“=”运算符后缺少操作数。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/1/30 13:34:00 [只看该作者]


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


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/2/5 9:56:00 [只看该作者]

麻烦帮忙修改一下代码

CONVERT(nvarchar(10), CEILING(c.现存数 / b.装箱数)) + '件' + CONVERT(nvarchar(10), c.现存数 - CONVERT(decimal(18, 0), c.现存数 / b.装箱数) * b.装箱数) + b.单位 AS 现存件数

假如上面的代码得出的结果是 5件-5只

想得到的结果是 4件7只
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/5 20:32:00 [只看该作者]

没看懂，请给出具体数据举例说明

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


加好友 发短信
等级：三尾狐 帖子：653 积分：7741 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2023/2/5 20:40:00 [只看该作者]

SQL视图代码

CONVERT(nvarchar(10), CEILING(c.现存数 / b.装箱数)) + '件' + CONVERT(nvarchar(10), c.现存数 - CONVERT(decimal(18, 0), c.现存数 / b.装箱数) * b.装箱数) + b.单位 AS 现存件数


此主题相关图片如下：360截图20230205203644257.jpg
按此在新窗口浏览图片

装箱数是12只，现存数只有10只，正确的结果应该是0件10只，现在显示错误了
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/2/5 20:53:00 [只看该作者]


 回到顶部
总数 73 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询