Foxtable(狐表)用户栏目专家坐堂 → [求助]项目管理


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

主题:[求助]项目管理

帅哥哟,离线,有人找我吗?
qq51837000
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2326 威望:0 精华:0 注册:2021/3/7 1:27:00
[求助]项目管理  发帖心情 Post By:2022/6/23 10:26:00 [只看该作者]

老师帮我看看:我按帮助里的例子做了一个多项目的甘特图,在删除分解任务时总提示出错,不知道怎么解决了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目管理.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 11:10:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目管理.zip


 回到顶部
帅哥哟,离线,有人找我吗?
qq51837000
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2326 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2022/6/23 11:24:00 [只看该作者]

刚打开项目点击父表的行时,又出现这个错误提示

图片点击可在新窗口打开查看此主题相关图片如下:截图_20220623111936.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 11:31:00 [只看该作者]

我这边测试没有问题,删除项目里的bin目录,重启项目试试

或者改改PositionChanged事件
If Forms("项目管理").Opened Then 
    DrawGannt = False
    Functions.Execute("BuildGanttTable")
    DrawGannt = True
End if

 回到顶部
帅哥哟,离线,有人找我吗?
qq51837000
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2326 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2022/6/23 11:37:00 [只看该作者]

问题已解决,感谢蓝老师!

 回到顶部
帅哥哟,离线,有人找我吗?
qq51837000
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2326 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2022/7/12 17:01:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目管理.foxdb

麻烦老师再看一下,上次修改后使用挺正常的,更新了FT版本后,打开项目选择不同行后又出现跟上次相同的错误提示

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/12 17:04:00 [只看该作者]

我测试没有问题。按照什么步骤测试?

 回到顶部
帅哥哟,离线,有人找我吗?
qq51837000
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:234 积分:2326 威望:0 精华:0 注册:2021/3/7 1:27:00
  发帖心情 Post By:2022/7/12 17:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:123456.gif
图片点击可在新窗口打开查看
就这样直接打开,选择上面的行,就弹出了。
如果重新应用窗口打开就没有提示

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/12 17:49:00 [只看该作者]

已反馈

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/13 10:08:00 [只看该作者]

drawcell事件改为:

If DrawGannt Then
    If e.Row.Index >= 0 Then
        Dim r As Row = Tables("项目管理.项目任务").Rows(e.Row.Index)
        Dim str1 As String = r("开始日期")
        Dim str2 As String = r("结束日期")
        Dim dt1 As Date 
        Dim dt2 As Date 
        
        If Date.TryParse(str1, dt1) AndAlso Date.TryParse(str2, dt2) Then
            Dim dta As Date = e.Col.Name.Replace("年", "-").Replace("月_", "-")
            If dta >= dt1 AndAlso dta <= dt2 Then
                e.StartDraw()
                If dta < Date.Today Then
                    e.Graphics.FillRectangle(Brushes.Green, e.x , e.y + 3, e.Width, e.Height - 7)
                Else
                    e.Graphics.FillRectangle(Brushes.Red, e.x , e.y + 3, e.Width, e.Height - 7)
                End If
                e.EndDraw()
            End If 
        End If 
        
    End If 
End If

 回到顶部
总数 11 1 2 下一页