- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]weui下界面显示字段 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109911)
-- 发布时间：2017/11/22 16:03:00
-- [求助]weui下界面显示字段
我现在想在界面上的“已盘存数”显示一张表里的数量的总和，显示不出来，我所写的代码如下：
Dim a As String
For Each dt As DataRow In DataTables("用户信息设置").DataRows
If dt("用户编码") = e.Cookies("username") Then
a = dt("mdbm")
End If
Next
.AddInput("ypcs","已盘存数","number").value = DataTables("商品盘点").Compute("Sum(sl)", "spbm = \'" & e.postvalues("spbm") & "\' and mdbm = \'" & a & "\'")
此主题相关图片如下：qq图片20171122155806.png
-- 发布时间：2017/11/22 16:18:00
--
直接写呢？
.AddInput("ypcs","已盘存数","number").value = 1000
-- 发布时间：2017/11/22 16:19:00
--
直接写肯定是可以的，问题是我现在想要求和一个字段根据相应的判断条件
-- 发布时间：2017/11/22 16:22:00
--
弹出值看看
msgbox("spbm = \'" & e.postvalues("spbm") & "\' and mdbm = \'" & a & "\'")
msgbox(DataTables("商品盘点").Compute("Sum(sl)", "spbm = \'" & e.postvalues("spbm") & "\' and mdbm = \'" & a & "\'"))
-- 发布时间：2017/11/22 17:12:00
--
Dim dr As DataRow = DataTables("商品信息").Find("商品信息=\'" & e.values("spxx") & "\'")
\'Dim dr As DataRow = DataTables("商品信息").Find("商品条码=\'" & e.Values("sptm") & "\' and 商品信息=\'" & e.values("spxx") & "\'")
If dr IsNot Nothing Then
Dim pr As DataRow = DataTables("用户信息设置").Find("用户编码 = \'" & e.Cookies("username") & "\'")
If pr Is Nothing Then
e.WriteString(dr("商品编码") & "|" & dr("商品名称") & "|" & dr("商品规格") & "|" & dr("生产企业") & "|" & dr("标准单位") & "|" & 0)
Else
Dim sum As Integer = DataTables("商品盘点").Compute("Sum(sl)", "spbm = \'" & e.postvalues("spbm") & "\' and mdbm = \'" & pr("mdbm") & "\'")
MessageBox.Show(e.postvalues("spbm") & "|" & pr("mdbm") & "|" & sum)
e.WriteString(dr("商品编码") & "|" & dr("商品名称") & "|" & dr("商品规格") & "|" & dr("生产企业") & "|" & dr("标准单位") & "|" & sum)
End If
Else
MessageBox.Show("商品信息")
End If
现在是能取后面两个的值，第一个值取不到e.postvalues("spbm")
此主题相关图片如下：qq图片20171122171041.png
此主题相关图片如下：qq图片20171122171041.png-- 发布时间：2017/11/22 17:19:00
--
不用了，谢谢，已经找到了问题所在了。