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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助甘特图  (http://www.foxtable.com/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
}
}