主题：邮件发送

m.SendAsync()

改成

m.Send

看报什么错。

我这样测试没问题，红色要匹配

Dim m As New MailSender
m.Host = "smtp.163.com"
m.Account = "13827126079@163.com"
m.Password = "6849338."
m.From ="13827126079@163.com"
m.To = "zong@sina.com.cn"
m.Title = "订单上报"
m.Content = "订单上报"
'm.AddAttachments("c:\temp\gd.mdb") '将上报文件作为附件发送
m.Send
msgbox("OK")

你需要显示一个点的数据？

'
''--------------------------------------------------下面是动态生成Gun Error柱状图-----------------------------------------------------------------
Dim str As String
Dim str2,selected  As String
Dim kk As Integer
kk=0
selected=e.Form.Controls("ComboBox1").value
For Each na As String In DataTables("ONDBDS").GetValues("VN","[Blk]='" & selected & "'")
    Dim pan As WinForm.Panel'需要加上这一句
    Dim tabs As WinForm.TabControl
    str=na
    Forms("窗口1").Controls("TabControl1").TabPages.Add(str, str)
    pan = Forms("窗口1").CreateControl("pan" &  na,ControlTypeEnum.Panel)
    pan.Dock = System.Windows.Forms.DockStyle.fill
    Forms("窗口1").Controls("TabControl1").basecontrol.tabpages (str).addcontrol(pan)
    tabs= Forms("窗口1").CreateControl("tab" & na,ControlTypeEnum.TabControl)
    tabs.Dock = System.Windows.Forms.DockStyle.fill
    pan.addcontrol(tabs)
    Dim val1 As Integer=1
    Dim k1 As Integer=val1
    Dim ppp = tabs.tabpages.add("Summary","Summary")
    Dim Chart5 As WinForm.Chart
    Dim Series5 As WinForm.ChartSeries
    Dim tChart5 As Table = Tables("ONDBDS")
    Chart5 = New ChartBuilder
    Chart5.ChartType = ChartTypeEnum.Bubble
    Chart5.SeriesList.Clear() '清除图表原来的图系
    Chart5.Dock = System.Windows.Forms.DockStyle.fill
    Chart5.HeaderText=selected & " " & na & "  Timing"
    Chart5.AxisX.AnnoRotation = - 25
    Dim tt As Table = Tables("ONDBDS")
    Dim max2 As Date = tt.Compute("max(ODate)","Blk= '" & selected & "'")
    Dim min2 As Date = tt.Compute("min(ODate)","Blk= '" & selected & "'")
    Dim ii As Integer = 0
    Dim dd = min2
Chart5.AxisX.Major = 1
Chart5.AxisX.MinorTick = False
Chart5.AxisX.Max = (max2-min2).Totaldays
Chart5.AxisX.Min = 0
    For Each rChart5  As Col In tChart5.Cols
        If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And  rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
            Series5 = Chart5.SeriesList.Add()
            Series5.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
            series5.Text = rchart5.Name
            Series5.length = (max2-min2).Totaldays + 1
        End If
    Next
Dim max = 0
    Do While dd <= max2
        Dim fdrr = tt.DataTable.find("VN='" & na & "' and ODate= #" & dd & "# and Blk= '" & selected & "'")
        Dim jj As Integer = 0
        For Each rChart5  As Col In tChart5.Cols
            If rChart5.Name<>"ODate" And rChart5.Name<>"Ofcha" And  rChart5.Name<>"Blk" And rChart5.Name<>"VN" Then
                Series5 = Chart5.SeriesList(jj)
                If fdrr Is Nothing Then
                    Series5.X(ii) = ii
                    Series5.Y(ii) = 0
                    Series5.Y1(ii) = 1
                Else
If max < (fdrr(rChart5.Name)) Then
max = (fdrr(rChart5.Name))
End If
                    Series5.X(ii) = ii
                    Series5.Y(ii) = (fdrr(rChart5.Name))
                    Series5.Y1(ii) = 1
Chart5.AxisY.Max = max + 2
                End If
                jj += 1
            End If
        Next
        If ii Mod k1 = 0 Then
            Chart5.AxisX.SetValueLabel(ii, dd) '指定字符表示
        Else
            Chart5.AxisX.SetValueLabel(ii, "")
        End If
        ii+= 1
        dd = dd.adddays(1)
    Loop
    Chart5.SeriesList(0).Text="Opl"
    Chart5.SeriesList(0).FillColor=Color.Green
    Chart5.SeriesList(1).Text="CStan"
    Chart5.SeriesList(1).FillColor=Color.Yellow
    Chart5.SeriesList(2).Text="Dbil"
    Chart5.AxisX.AnnoWithLabels = True
    Chart5.LegendVisible = True '显示图列
    Chart5.LegendCompass= CompassEnum.South
    Chart5.Stacked = True
    ppp.addcontrol(Chart5)
Next

条形图就是这样的啊。清楚明白什么是条形图。

http://www.foxtable.com/webhelp/scr/0980.htm

http://www.foxtable.com/webhelp/scr/0990.htm

如果要显示点或者线段，请更改类型

http://www.foxtable.com/webhelp/scr/0977.htm

1、bar就是这样显示的啊。从最下面显示到最上面啊；
 
2、http://www.foxtable.com/webhelp/scr/0977.htm

3、设置你Y轴的最大最小值啊

Chart5.AxisY.Min = 0

1、添加数据源

http://www.foxtable.com/webhelp/scr/1944.htm

2、循环读取外部表名

http://www.foxtable.com/webhelp/scr/1943.htm

3、执行导入代码

Dim ip As New Importer
ip.SourcePath = "c:\Data\销售管理.mdb" '指定数据文件
ip.SourceTableName = 变量1
ip.NewTableName = 变量2
ip.Import()

请先添加数据源

http://www.foxtable.com/webhelp/scr/1944.htm

参考代码

Connections.Delete("test")
Connections.Add("test","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;Persist Security Info=False")
Dim cn As Connection = Connections("test")
Dim lst As List(Of String)
lst = Connections("test").GetTableNames
msgbox(lst.count)
Connections.Delete("test")

窗口里面的table，必须打开窗口才能访问的。所以，你只能在每个窗口的afterLoad事件写代码处理。或者是，做一个【定时器】定时循环每一个tables，然后设置。

设置table字体，参考 http://www.foxtable.com/webhelp/scr/0497.htm