在命令窗口测试下代码：
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
请老师指点问题何在？
加好友 
发短信
Post By：2014/9/10 11:15:00 [只看该作者]
