[求助]weui下界面显示字段 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我现在想在界面上的“已盘存数”显示一张表里的数量的总和，显示不出来，我所写的代码如下：

Dim a As String

For Each dt As DataRow In DataTables("用户信息设置").DataRows

If dt("用户编码") = e.Cookies("username") Then

a = dt("mdbm")

End If

.AddInput("ypcs","已盘存数","number").value = DataTables("商品盘点").Compute("Sum(sl)", "spbm = '" & e.postvalues("spbm") & "' and mdbm = '" & a & "'")

此主题相关图片如下：qq图片20171122155806.png

直接写呢？

.AddInput("ypcs","已盘存数","number").value = 1000

直接写肯定是可以的，问题是我现在想要求和一个字段根据相应的判断条件

弹出值看看

msgbox("spbm = '" & e.postvalues("spbm") & "' and mdbm = '" & a & "'")

msgbox(DataTables("商品盘点").Compute("Sum(sl)", "spbm = '" & e.postvalues("spbm") & "' and mdbm = '" & a & "'"))

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

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)

End If

Else

MessageBox.Show("商品信息")

End If

现在是能取后面两个的值，第一个值取不到e.postvalues("spbm")
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20171122171041.png

不用了，谢谢，已经找到了问题所在了。

主题：[求助]weui下界面显示字段