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

免费版有使用期限的限制的。

如果你有加密狗，那就去下载一个【商业版】的安装包，安装使用即可。

以下是引用cglsg5076在2018/4/18 15:48:00的发言：
我想继续使用免费版，请问怎么办，是通过客服激活码？谢谢！

如果试用版过期，不能继续使用。请购买正版。

如果你有开发版加密狗，你安装一个商业版来使用，不就好了？

[此贴子已经被作者于2018/4/18 15:55:46编辑过]

没看懂你需要做什么。

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A") '定义一个变量t引用数据表
Chart =Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.XYPlot
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisY.Reversed = True '翻转Y轴
Chart.AxisX.Compass= CompassEnum.North 'X轴位置设为北方(上方)

Chart.AxisY.text="Time"
Chart.AxisX.text="FF"

Series = Chart.SeriesList.Add() '增加一个图系
Dim drs As List(Of DataRow) = t.DataTable.Select("")
Series.Length = drs.Count*t.Cols.count
For r As Integer = 0 To drs.count-1
    For c As Integer = 0 To t.Cols.count-1
        Series.X(r*t.Cols.count+c) = r*t.Cols.count+c
        Series.Y(r*t.Cols.count+c) = val(drs(r)(t.cols(c).name))
        Series.LineColor = Color.Black
        Series.MarkShape = MarkShapeEnum.Star
        Series.MarkColor= Color.Red
    Next
Next

Dim doc As New PrintDoc '定义一个新报表

Dim selecteddate As Date

selecteddate=e.Form.Controls("Calendar1").value
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb As Table = Tables("DailyProd") ''("Comments") 必须用comments的副本
Dim ColNames() As String ={"VN","Activity","SLN","SOLT","EOLT","SR","ER","ProductionSta","Comment"} '"DailySummary"}
rt.Width =200' "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
'rt.Height= "Auto" '表格宽度为自动,也就是等于各列设置宽度之和
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded '表格宽度超出页宽时,可以水平换页
Dim VNs As List(Of DataRow)

VNs = DataTables("DailyProd").Select("[ODate]=#" & selecteddate & "#")

'rt.Cols.Count = 9 '设置列数

rt.Style.Gridlines.All = New prt.Linedef(Color.Black) '灰色网格线
Dim ccNodeOperations As Integer
ccNodeOperations=0
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '数据水平居中
rt.Rows(0).Style.TextAlignVert = prt.AlignVertEnum.Center

For c As Integer = 0 To ColNames.length-1 '逐列设置和填入内容
    rt.Cells(0,c).Text = ColNames(c) '列名作为标题
    rt.Cells(0,c).Style.textcolor =Color.Black
    rt.Cells(0,c).Style.BackColor = Color.LightSlateGray
    rt.Cells(0,c).Style.textcolor =Color.White
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '标题内容水平居中
    rt.Cells(0,c).Style.TextAlignVert = prt.AlignVertEnum.Center '标题内容水平居中

    For r As Integer = 0 To VNs.count-1 '开始填入该列内容

        'messagebox.show(c & " " & r)
        rt.Cells(r+1,c).Text = tb.Rows(r)(ColNames(c))
        rt.Style.Font = New Font("宋体", 10, FontStyle.Bold)
        '
    Next
    rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Center '数据水平居中
    rt.Cols(c).Style.TextAlignVert = prt.AlignVertEnum.Center
    'ccNodeOperations=ccNodeOperations+1
Next

rt.Cols(1).Width = 18
rt.Cols(2).Width = 18
rt.Cols(3).Width = 15
rt.Cols(4).Width = 15
rt.Cols(5).Width = 15
rt.Cols(6).Width = 20
rt.Cols(7).Width = 19
rt.Cols(8).Width = 30

'rt.Style.Borders.All = New prt.Linedef(0.05, Color.Black)

doc.Body.Children.Add(rt)

doc.Preview()

以下是引用cglsg5076在2019/4/23 11:43:00的发言：
我说的意思是在一个单元格里绘制柱状图，比如10个柱状图，帮助里是只绘制一个,而且是纵向的，不是横向绘制。怎么写代码。谢谢

方法一：生成图表的图片，然后单元格显示图片。

方法二：看懂上面代码，改成你自己的。

For i As Integer = DataTables("An").DataRows.Count-1 To 0 Step -1
    Dim dr0000 As DataRow = DataTables("An").DataRows(i)
    If dr0000("Ho")=0 Then
        DataTables("An").DataRows(i).Delete()
    End If
Next

Dim ex3 As New Exporter

ex3.SourceTableName = "VTPF" '指定导出表
ex3.FilePath ="c:\ON" & "_" & ".xls" '指定目标文件
ex3.Format = "Excel" '导出格式为Excel
ex3.Fields = "VName,[From],To" '指定导出字段

ex3.Filter=""
ex3.Export() '开始导出

messagebox.show("Save to " & ex3.FilePath & " completed.", "ST",MessageBoxButtons.OK,MessageBoxIcon.Information)

升级到最新版foxtable，然后测试。

主题：免费版激活