Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助甘特图


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

主题：求助甘特图
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/29 15:58:00 [显示全部帖子]

我测试没有问题，上传实例测试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/8/29 16:07:00 [显示全部帖子]

Chart.AxisY.MinDate = Tables("表A").Compute("min(开始日期)") '设置Y轴的起始日期
Chart.AxisY.MaxDate = Tables("表A").Compute("max(结束日期)") '设置Y轴的终止日期

结果都不在这个指定的范围之内当然不会显示了
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/8 15:41:00 [显示全部帖子]

Encoding.Default改为其它编码试试

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/19 9:35:00 [显示全部帖子]

json数据发上来看看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/19 10:07:00 [显示全部帖子]

去掉第二个循环：For j As Integer = 0 To ja(i).Count - 1

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/22 20:12:00 [显示全部帖子]

Dim cmd As New SQLCommand        '后台查找
            cmd.C
            cmd.CommandText = "sel ect * from {JD_ERP品种配置} where " & filter   '不加载数据
            Dim dt As DataTable = cmd.ExecuteReader(True)
Dim dr1 As dataRow 
            If dt.datarows.count = 0 Then       '如果不存在同编号的订单
                dr1 = dt.AddNew()
else
dr1 = dt.DataRows(0)
            end if
                For m As Integer = 0 To nms.Length - 1    '开始导入
                    dr1(nms(m)) = Sheet(n,m).Value
                Next
                dr1("创建人") = user_rename
                dr1("创建日期") = Date.Now
                dr1("创建人编号") = user_ID
dr1.save
                hj = hj + 1   '记录导入的条数
        Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 17:19:00 [显示全部帖子]

Dim img = getimage("c:\1.png")
Dim bmp As new bitmap(img.Width, img.Height) '宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0)
Dim img2 =  getimage("c:\2.png")
g.DrawImage(img2,0,0)
bmp.save("c:\3.png"，img.RawFormat)
bmp.dispose
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/9/24 17:43:00 [显示全部帖子]

Dim bmp As new bitmap(cint(img.Width),cint(img.Height))

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询