方法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商品条码("数量"))
加好友 
发短信
Post By：2022/9/19 18:19:00 [只看该作者]
