以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不知道问题出在哪里？(已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17527)
--  作者：pb_1
--  发布时间：2012/3/15 22:38:00
--  不知道问题出在哪里？(已解决）

在DATETIMEPICHER控件的TEXTCHANGED事件里有如下代码

Dim BHTEMP As String

BHTEMP=format(e.Form.Controls("DateTimePicker2").Value,"yyyyMMdd")
Dim max As String
Dim idx As Integer

max = Tables("bmk").Compute("Max(BH)","substring([bh],5,8) = " & bhtemp & "" )
If max>"" Then
idx = CInt(max.Substring(10)) + 1
Else
idx = 1
End If

e.form.Controls("BH").Value ="HHZY" & BHTEMP & Format(idx,"00000")

一运行总是出现如下错误提示。不知道代码问题出在哪里


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
这个问题出在“e.form.Controls("BH").Value ”我查了一下LABEL空间，我将代码修改成"e.form.Controls("BH").text",解释一下e.form.Controls("BH")这是窗体中的一个LABLE控件
[此贴子已经被作者于2012-3-16 12:00:08编辑过]
--  作者：程兴刚
--  发布时间：2012/3/15 22:52:00
--  

max = Tables("bmk").Compute("Max(BH)","[bh]  like \'" & bhtemp & "\'" )

 

注意上面的取值列和条件列名称，您自己修改，按我看，BH列和bh列应该是一样的（好像列名称应该不区分大小写吧），根据您的取字符串的位置和长度看，bh列应该是字符型，但BH又如何取最大值？请确定列名称和列类型再修改对应代码

[此贴子已经被作者于2012-3-15 22:56:17编辑过]
--  作者：banemon
--  发布时间：2012/3/16 9:18:00
--  

写错了......我删了

[此贴子已经被作者于2012-3-16 9:32:18编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/3/16 9:32:00
--  

学点调试技巧：

http://www.foxtable.com/help/topics/1485.htm