- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 帮忙看下代码那地方写错了啊 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42934)
-- 发布时间：2013/11/26 16:29:00
-- 帮忙看下代码那地方写错了啊
Dim d As Date = e.Form.Controls("DateTimePicker1").Value
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月.
If Tables("预存表").Current("编号").StartsWith(bh) = False \'如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = Tables("预存表").Compute("Max(编号)","预存日期 >= #" & fd & "# And 预存日期 <= #" & ld & "# And [_Identify] <> " & Tables("预存表").("_Identify")) \'取得该月的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
Tables("预存表").Current("编号") = bh & "-" & Format(idx,"000")
End If
-- 发布时间：2013/11/26 16:30:00
--
出现什么错误?
-- 发布时间：2013/11/26 16:33:00
--
此主题相关图片如下：3hy9bwirrnvaxz{aw_65.jpg
-- 发布时间：2013/11/26 16:35:00
--
Tables("预存表").("_Identify")
这是什么东西?
如果你想获取当前行的Identify 应该是
Tables("预存表").current("_Identify")
-- 发布时间：2013/11/26 16:51:00
--
此主题相关图片如下：s.jpg
代码改过来了 执行的时候出现这样，这是什么错误呀？
-- 发布时间：2013/11/26 16:53:00
--
也许是表达式不对,弹出一下你拼接的表达式看看.