Foxtable所有范例代的码.doc

=====Excel图表.foxdb===== 项目事件 AfterOpenProject Forms(图表设置).Open() 计划管理 表事件 窗口表事件 窗口与控件事件 图表设置_AfterLoad Dim x,y As String Dim i As Integer For Each c As Col In Currenttable.Cols If c.Visible Then i = i + 1 If c.Datacol.IsNumeric Then y = y |【 i 】 c.Caption Else x = x |【 i 】 c.Caption End If End If Next e.Form.Controls(CheckedComboBox1).ComboList = y.Trim(|) e.Form.Controls(CheckedComboBox2).ComboList = x.Trim(|) 图表设置_Button1_Click exStr = 图表区 Forms(图表外观).Open 图表设置_Button2_Click exStr = 绘图区 Forms(图表外观).Open 图表设置_Button3_Click exStr = 图例 Forms(图表外观).Open 图表设置_Button4_Click exStr = 标题 Forms(图表外观).Open 图表设置_Button5_Click 对数据列验证 Dim y As String = e.Form.Controls(CheckedComboBox1).Value Dim x As String = e.Form.Controls(CheckedComboBox2).Value If y = Then MessageBox.Show(数据系列中的数值轴(Y)必须设置! ,信息提示,MessageBoxButtons.OK,MessageBoxIcon.Warning) Return Else If e.Form.Controls(ListBox1).ComboList = Then MessageBox.Show(数值轴(Y)不能全部设置为次坐标轴! ,信息提示,MessageBoxButtons.OK,MessageBoxIcon.Warning) Return End If End If Dim ksl,jsl As Integer x轴的起始列与结束列 If x Then Dim xs As String() = x.Split(,) If xs.Length 1 如果x轴有多列 Dim xsn(xs.Length-1) As Integer For n As Integer = 0 To xs.Length - 1 xsn(n) = xs(n).SubString(1,xs(n).LastIndexOf(】)-1) Next Array.Sort(xsn) 得到各列的序号,并排序 For n As Integer = 1 To xsn.Length - 1 If xsn(n) - xsn(n-1) 1 MessageBox.Show(如果X轴的分类列有多个, 那么它必须是连续的! ,信息提示,MessageBoxButtons.OK,MessageBoxIcon.Warning) Return End If Next ksl = xsn(0) jsl = xsn(xsn.Length-1) Else ksl = x.SubString(1,x.LastIndexOf(】)-1) jsl = ksl End If End If 定义Excel Dim f As String = ProjectPath Excel数据.xls Dim t As Table = CurrentTable Dim flg As New SaveExcelFlags flg.CellStyle = True t.SaveExcel(f,t.Name,flg) 导