应为标识符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 应为标识符

共有3733人关注过本帖树形打印复制链接主题：应为标识符

zahdddddd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2019/5/27 22:16:00

应为标识符

Post By：2019/5/28 10:26:00 [只看该作者]

Select Case e.DataCol.name

Case "时间","委托部门代码"

If dr.Isnull("时间") And dr.Isnull("委托部门代码")

dr.("项目代码") = Nothing

Else

Dim d As Date = dr.("时间")

Dim y As Integer =d.year

Dim wtbmdm As String =dr.("委托部门代码")

Dim bh As String = Format(d,"yyyy") & "-" & dr.("委托部门代码")

If dr.("项目代码").startswith(bh)= False

Dim max As String

Dim idx As Integer

max= e.DataTable.compute("max(项目代码)","时间 = # " & y & "# and 委托部门代码 = '"& wtbmdm &"' And [_Identify] <>" & dr.("_Identify"))

If max > "" Then

idx = CInt(max.Substring(bh.length,3)) + 1

Else idx= 1

End If

dr.("项目代码")= bh & "-" & Format(idx,"000")

End If

End Select

zahdddddd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2019/5/27 22:16:00

Post By：2019/5/28 10:28:00 [只看该作者]

编译错误：应为标识符

错误代码：dr.（“项目代码”） = nothing

y2287958

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/5/28 10:28:00 [只看该作者]

dr（“项目代码”） = nothing

zahdddddd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2019/5/27 22:16:00

Post By：2019/5/28 10:32:00 [只看该作者]

谢谢

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/28 10:34:00 [只看该作者]

Select Case e.DataCol.name
    Case "时间","委托部门代码"
        If dr.Isnull("时间") And dr.Isnull("委托部门代码")
            dr("项目代码") = Nothing
        Else
            Dim d As Date = dr("时间")
            Dim y As Integer =d.year
            Dim wtbmdm As String =dr("委托部门代码")
            Dim bh As String = Format(d,"yyyy") & "-" & dr("委托部门代码")
            If dr("项目代码").startswith(bh)= False
                Dim max As String
                Dim idx As Integer
                max= e.DataTable.compute("max(项目代码)","时间 = # " & y & "# and 委托部门代码 = '"& wtbmdm &"' And [_Identify] <>" & dr("_Identify"))
                If max > "" Then
                    idx = CInt(max.Substring(bh.length,3)) + 1
                Else idx= 1
                End If
                dr("项目代码")= bh & "-" & Format(idx,"000")
            End If
        End If
End Select

zahdddddd

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2019/5/27 22:16:00

Post By：2019/5/28 10:44:00 [只看该作者]

老师：运行的时候又报错

调用的目标发生了异常。

该字符串未被识别为有效的 DateTime。

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/28 10:56:00 [只看该作者]

Select Case e.DataCol.name
    Case "时间","委托部门代码"
        If dr.Isnull("时间") And dr.Isnull("委托部门代码")
            dr("项目代码") = Nothing
        Else
            Dim d As Date = dr("时间")
            d = new Date(d.year, 1, 1)
            Dim wtbmdm As String =dr("委托部门代码")
            Dim bh As String = Format(d,"yyyy") & "-" & dr("委托部门代码")
            If dr("项目代码").startswith(bh)= False
                Dim max As String
                Dim idx As Integer
                max= e.DataTable.compute("max(项目代码)","时间 >= # " & d & "# and 时间 < #" & d.AddYears(1) & "# and 委托部门代码 = '"& wtbmdm &"' And [_Identify] <>" & dr("_Identify"))
                If max > "" Then
                    idx = CInt(max.Substring(bh.length+1,3)) + 1
                Else idx= 1
                End If
                dr("项目代码")= bh & "-" & Format(idx,"000")
            End If
        End If
End Select

[此贴子已经被作者于2019/5/28 10:56:15编辑过]

zahdddddd

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：6 积分：101 威望：0 精华：0 注册：2019/5/27 22:16:00

Post By：2019/5/28 11:02:00 [只看该作者]

啊啊啊，谢谢老师，可以了！！！，这是什么原因啊

有点甜

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/28 12:04:00 [只看该作者]

以下是引用zahdddddd在2019/5/28 11:02:00的发言：
啊啊啊，谢谢老师，可以了！！！，这是什么原因啊

日期请这样比较 http://www.foxtable.com/webhelp/scr/2720.htm

下一主题 >> << 上一主题

主题：应为标识符