以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想不出问题出在哪里  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=17471)
--  作者：pb_1
--  发布时间：2012/3/14 16:06:00
--  想不出问题出在哪里

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

以上是代码，放在DATETIMEPICKER2控件的TEXTCHANG事件中，一调试的时候总是出现如下错误，我不知道原因，求解

 

 

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名3.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2012/3/14 16:12:00
--  

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

 

另外注意表达式的Substring, 第一个字符的编号是1，不是0.
--  作者：hhbb
--  发布时间：2012/3/14 16:37:00
--  
長句式容易看不出問題,建議用短句式:

Dim BHTEMP ,max ,Fl As String
Dim idx As Integer
BHTEMP=e.Form.Controls("DateTimePicker2").Value
BHTEMP = Format(BHTEMP,"yyyyMMdd") 
FL = "substring([bh],5,8) = \' " & bhtemp & "\'"
max = Tables("bmk").Compute("Max(BH)",FL) 
idx = 1+ CInt(max.Substring(10))* -val(max >"")