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


  共有3515人关注过本帖树形打印复制链接

主题:应为标识符

帅哥哟,离线,有人找我吗?
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 If
        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


加好友 发短信
等级:狐神 帖子:4771 积分:34663 威望: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

 


 回到顶部