主题：不知道问题出在哪里？(已解决）

在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控件

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

 

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

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

学点调试技巧：

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