以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助甘特图  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153971)
--  作者：zoyong
--  发布时间：2020/8/29 15:35:00
--  求助甘特图

Dim Chart As WinForm.Chart
Chart= Forms("窗口1").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Gantt \'图表类型为甘特图
Chart.Inverted = True \'对调X轴和Y轴位置
Chart.AxisY.DateType= True \'Y轴为日期型
Chart.AxisY.AnnoFormatString = "MM-dd" \'设置Y轴的标示格式
Chart.AxisY.MinDate = #01/01/2010# \'设置Y轴的起始日期
Chart.AxisY.MaxDate = #04/30/2010# \'设置Y轴的终止日期
Chart.AxisX.GridMajorVisible = False \'隐藏X轴的网格线
With Chart.SeriesList
.AddGanttSeries("任务一", #1/1/2010#, #3/9/2010#)
.AddGanttSeries("任务二", #1/23/2010#, #2/14/2010#)
.AddGanttSeries("任务三", #1/21/2010#, #2/24/2010#)
.AddGanttSeries("任务四", New DateTime() {#1/22/2010#, #2/28/2010#}, New DateTime() {#2/12/2010#, #3/24/2010#})
.AddGanttSeries("任务五", New DateTime() {#2/13/2010#, #3/8/2010#}, New DateTime() {#3/5/2010#, #3/31/2010#})
.AddGanttSeries("任务六", #3/15/2010#, #4/20/2010#)
.AddGanttSeries("任务七", #4/6/2010#, #4/30/2010#)
.AddGanttLabels("M月d日")
End with


红色代码如何用表格的形式展示，代码无效



With Chart.SeriesList

    For Each r As Row In Tables("表A").Rows

        If r("任务") IsNot Nothing Then

            Dim rq1 As Date = r("开始日期")

            Dim rq2 As Date = r("结束日期")

            .AddGanttSeries(r("任务"), rq1, rq2)

        End If

    Next

    .AddGanttLabels("M月d日")

End With


[此贴子已经被作者于2020/8/29 15:47:56编辑过]
--  作者：有点蓝
--  发布时间：2020/8/29 15:58:00
--  
我测试没有问题，上传实例测试
--  作者：zoyong
--  发布时间：2020/8/29 16:01:00
--  
  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.foxdb
--  作者：有点蓝
--  发布时间：2020/8/29 16:07:00
--  
Chart.AxisY.MinDate = Tables("表A").Compute("min(开始日期)") \'设置Y轴的起始日期
Chart.AxisY.MaxDate = Tables("表A").Compute("max(结束日期)") \'设置Y轴的终止日期

结果都不在这个指定的范围之内当然不会显示了
--  作者：zoyong
--  发布时间：2020/9/8 15:35:00
--  
Dim TbName As String = eform.name & "_活动书目"
Dim r As Row = Tables(TbName).Current

\'创建目录新建目录
If FileSys.DirectoryExists("d:\\temp") = False Then    \'是否存在
    FileSys.CreateDirectory("d:\\temp")
End If

Dim ex As New Exporter
ex.SourceTableName = TbName    \'指定导出表
ex.FilePath = "d:\\temp\\" \'指定目标文件路径
ex.Format = "Delimited" \'导出格式为符号分割的文本文件
ex.NewTableName = "书号" & r("目录期号")  \'指定文件名,注意无须扩展名
ex.Fields = "书号" \'指定导出列字段
ex.Header = False  \'不包括列名称
ex.Export() \'开始导出
Dim mc As String = "书号" & r("目录期号") & ".txt"


If FileSys.FileExists("d:\\temp\\" & mc) Then \'如果指定的文件存在
    FileSys.DeleteFile("d:\\temp\\" & mc,2,2) \'则彻底删除之
End If

Dim str As String = FileSys.ReadAllText("d:\\temp\\" & mc, Encoding.Default)
str = str.Replace("""", "")
str = str.Replace(",", " ")
FileSys.WriteAllText("d:\\temp\\" & mc, str, False, Encoding.Default)
\'End If
MessageBox.Show("已成功导出书号,文本存放在d:\\temp\\" & mc,"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim Proc As New Process \'定义一个新的Process
Proc.File = "d:\\temp\\" \'指定要打开的文件
Proc.Start()



输出乱码
生成一个名为schema配置文件

[书号1.txt]
ColNameHeader=False
CharacterSet=936
Format=CSVDelimited
Col1=书号 Char Width 26
--  作者：有点蓝
--  发布时间：2020/9/8 15:41:00
--  
Encoding.Default改为其它编码试试
--  作者：zoyong
--  发布时间：2020/9/19 9:24:00
--  
Dim ja As JArray = jo("data")("items")
For i As Integer = 0 To ja.Count - 1
    For j As Integer = 0 To ja(i).Count - 1
        cmd.CommandText = "se lect * from {XQ_订单明细} where 下次日期 = \'" & ja(i)(1).ToString & "\' and 商品代码 =\'" & ja(i)(0).ToString & "\'"
        Dim dt As DataTable = cmd.ExecuteReader(True)
        If dt.DataRows.count = 0 Then
            Dim dr As DataRow = dt.AddNew()
            dr("商品代码") = ja(i)(0).ToString
            dr("日期") = ja(i)(1).ToString
            dr("商品全称") = ja(i)(2).ToString
            dr("数量") = ja(i)(3).ToString
            dr.Save
        End If
    Next
Next

上面代码有效，但是下载的数据会重复，一条数据保存了5次
--  作者：有点蓝
--  发布时间：2020/9/19 9:35:00
--  
json数据发上来看看
--  作者：zhenghangbo
--  发布时间：2020/9/19 9:42:00
--  
顶
--  作者：zoyong
--  发布时间：2020/9/19 9:59:00
--  
代码

{
    "request_id": "93625048a11dafefd84c45b160a11eaa739b7a0263700966",
    "code": 0,
    "msg": "",
    "data": {
        "fields": [
            "code",
            "date",
            "mkv",
            "stkmkv",
        ],
        "items": [
            [
                "515100",
                "20200630",
                "900023SH",
                2.00,
            ],
            [
                "515101",
                "20200630",
                "901288SH",
                18.80,
            ],
            [
                "515102",
                "20200630",
                "860108SH",
                20.80,
            ],
        ],
        "more": true
    }
}