Foxtable所有范例代码

《Foxtable所有范例代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、=====Excel图表.foxdb=====项目事件AfterOpenProjectForms("图表设置").Open()计划管理表事件窗口表事件窗口与控件事件图表设置_AfterLoadDimx,yAsStringDimiAsIntegerForEachcAsColInCurrenttable.ColsIfc.VisibleTheni=i+1Ifc.Datacol.IsNumericTheny=y&"

2、【"&i&"】"&c.CaptionElsex=x&"

3、【"&i&"】"&c.CaptionEndIfEndIfNexte.Form.Controls("C

4、heckedComboBox1").ComboList=y.Trim("

5、")e.Form.Controls("CheckedComboBox2").ComboList=x.Trim("

6、")图表设置_Button1_ClickexStr="图表区"Forms("图表外观").Open图表设置_Button2_ClickexStr="绘图区"Forms("图表外观").Open图表设置_Button3_ClickexStr="图例"Forms("图表外观").Open图表设置_Button4_ClickexStr="标题"Forms("图表外观").Open图表

7、设置_Button5_Click'对数据列验证274DimyAsString=e.Form.Controls("CheckedComboBox1").ValueDimxAsString=e.Form.Controls("CheckedComboBox2").ValueIfy=""ThenMessageBox.Show("数据系列中的数值轴(Y)必须设置!","信息提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)ReturnElseIfe.Form.Controls("ListBox1").ComboList=""T

8、henMessageBox.Show("数值轴(Y)不能全部设置为次坐标轴!","信息提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)ReturnEndIfEndIfDimksl,jslAsInteger'x轴的起始列与结束列Ifx<>""ThenDimxsAsString()=x.Split(",")Ifxs.Length>1'如果x轴有多列Dimxsn(xs.Length-1)AsIntegerFornAsInteger=0Toxs.Length-1xsn(n)=xs(n).SubString(1,xs(n).

9、LastIndexOf("】")-1)NextArray.Sort(xsn)'得到各列的序号,并排序FornAsInteger=1Toxsn.Length-1Ifxsn(n)-xsn(n-1)>1MessageBox.Show("如果X轴的分类列有多个,那么它必须是连续的!","信息提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)ReturnEndIfNextksl=xsn(0)jsl=xsn(xsn.Length-1)Elseksl=x.SubString(1,x.LastIndexOf("】")-1)jsl=k

10、slEndIfEndIf'定义ExcelDimfAsString=ProjectPath&"Excel数据.xls"DimtAsTable=CurrentTableDimflgAsNewSaveExcelFlagsflg.CellStyle=Truet.SaveExcel(f,t.Name,flg)'导出数据到指定文件DimAppAsNewMSExcel.ApplicationApp.DisplayAlerts=FalseDimWbAsMSExcel.WorkBook=App.WorkBooks.Open(f)DimWsAsMSExcel.WorkSheet=W

11、b.WorkSheets(1)DimiAsInteger=e.Form.Controls("NumericComboBox1").Value'指定大小DimjAsInteger=e.Form.Controls("NumericComboBox2").ValueDimrgAsMSExcel.Range=Ws.Cells(t.HeaderRows+t.Rows.Count,1)DimCoAsMSExcel.ChartObject=Ws.ChartObjects.Add(rg.Left,rg.Top,i,j)'在最末行的第一个单元格处生成图表Ws.DrawingObj

12、ects(1).Shad