- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 显示最大数量的一行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179941)
-- 发布时间：2022/9/19 18:19:00
-- 显示最大数量的一行
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
显示最大数量的一行
-- 发布时间：2022/9/19 20:16:00
--
方法1、
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "Select top 1 * From {进货退货} where [店名] = \'" & e.PostValues("店名") & "\' and [日期] = \'" & e.PostValues("日期") & "\' order by 数量 desc"
dt = cmd.ExecuteReader(True)
msgbox(dt.datarow(0)("数量"))
方法2、
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "Select * From {进货退货} where [店名] = \'" & e.PostValues("店名") & "\'and [日期] = \'" & e.PostValues("日期") & "\' "
dt = cmd.ExecuteReader(True)
dim dr商品条码 As DataRow = dt.find("", "数量 desc")
msgbox(dr商品条码("数量"))