Foxtable所有范例代码.doc

Foxtable所有范例代码————————————————————————————————作者:————————————————————————————————日期: ==========项目事件AfterOpenProjectForms("图表设置").Open()计划管理表事件窗口表事件窗口与控件事件图表设置_AfterLoadDimx,=i+=y&"|【"&i&"】"&=x&"|【"&i&"】"&("boBox1").ComboList=("|")("boBox2").ComboList=("|")图表设置_Button1_ClickexStr="图表区"Forms("图表外观").Open图表设置_Button2_ClickexStr="绘图区"Forms("图表外观").Open图表设置_Button3_ClickexStr="图例"Forms("图表外观").Open图表设置_Button4_ClickexStr="标题"Forms("图表外观").Open图表设置_Button5_Click'对数据列验证DimyAsString=("boBox1").ValueDimxAsString=("boBox2").ValueIfy=""("数据系列中的数值轴(Y)必须设置!","信息提示",,)("ListBox1").ComboList=""("数值轴(Y)不能全部设置为次坐标轴!","信息提示",,)ReturnEndIfEndIfDimksl,jslAsInteger'x轴的起始列与结束列Ifx<>""ThenDimxsAsString()=(",")>1'如果x轴有多列Dimxsn(-1)AsIntegerFornAsInteger=-1xsn(n)=xs(n).SubString(1,xs(n).LastIndexOf("】")-1)(xsn)'得到各列的序号,并排序FornAsInteger=-1Ifxsn(n)-xsn(n-1)>("如果X轴的分类列有多个,那么它必须是连续的!","信息提示",,)ReturnEndIfNextksl=xsn(0)jsl=xsn(-1)Elseksl=(1,("】")-1)jsl=kslEndIfEndIf'定义ExcelDimfAsString=ProjectPath&""DimtAsTable==(f,,flg)'==(f)=(1)DimiAsInteger=("boBox1").Value'指定大小DimjAsInteger=("boBox2").=(+,1)=(,,i,j)'在最末行的第一个单元格处生成图表Ws.