以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：compute计算结果不对的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56644)
--  作者：peterx
--  发布时间：2014/9/10 11:15:00
--  求助：compute计算结果不对的问题
在命令窗口测试下代码：
Dim zxh As Short
zxh = Tables("购置申请管理").Compute("max(购置申请编号分解_总序号)", "购置申请编号分解_年度 = \'2013\'")
output.show(zxh)
显示结果为：303
是正确的。
但放在窗口中，使用下代码，显示的结果为:0 .请问问题何在？

Dim bh As String = e.Form.Controls("购置申请编号").text
Dim ndb As String = e.Form.Controls("年度表").text
Dim pib As String = e.Form.Controls("PI表") .text
Dim jfly As  String = e.Form.Controls("经费来源表").text

Dim zxh As Short
MessageBox.Show(ndb)                 ‘输入2013后，此步显示为：2013，是正确的

zxh = Tables("购置申请管理").Compute("max(购置申请编号分解_总序号)", "购置申请编号分解_年度 = \'ndb\'")
MessageBox.Show(zxh)                ’ 此处显示结果为0

请老师指点问题何在？
--  作者：Bin
--  发布时间：2014/9/10 11:17:00
--  
zxh = Tables("购置申请管理").Compute("max(购置申请编号分解_总序号)", "购置申请编号分解_年度 = \'" & ndb & "\'")
--  作者：有点甜
--  发布时间：2014/9/10 11:18:00
--  
zxh = Tables("购置申请管理").Compute("max(购置申请编号分解_总序号)", "购置申请编号分解_年度 = \'" & ndb & "\'")