Foxtable所有范例代码.doc=====Excel=====
项目事件
AfterOpenProject
Forms("图表设置").Open()
计划管理
表事件
窗口表事件
窗口与控件事件
图表设置_AfterLoad
Dim x,y As String
Dim i As Integer
For Each c As Col In Currenttab
If le Then
i = i + 1
If eric Then
y = y & "|【" & i & "】" & on
Else
x = x & "|【" & i & "】" & on
End If
End If
Next
ols("CheckboBox1").ComboList = ("|")
ols("CheckboBox2").ComboList = ("|")
图表设置_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 = ols("CheckboBox1").Value
Dim x As String = ols("CheckboBox2").Value
If y = "" Then
MessageBox.Show("数据系列中的数值轴(Y)必须设置! ","信息提示",MessageBoxButto,MessageBoxng)
Return
Else
If ols("ListBox1").ComboList = "" Then
MessageBox.Show("数值轴(Y)不能全部设置为次坐标轴! ","信息提示",MessageBoxButto,MessageBoxng)
Return
End If
End If
Dim ksl,jsl As Integer 'x轴的起始列与结束列
If x <> "" Then
Dim xs As String() = (",")
If h > 1 '如果x轴有多列
Dim xsn(h-1) As Integer
For n As Integer = 0 To h - 1
xsn(n) = xs(n).SubString(1,xs(n).LastIndexOf("】")-1)
Next
Array.Sort(xsn) '得到各列的序号,并排序
For n As Integer = 1 To h - 1
If xsn(n) - xsn(n-1) > 1
MessageBox.Show("如果X轴的分类列有多个, 那么它必须是连续的! ","信息提示",MessageBoxButto,MessageBoxng)
Return
End If
Next
ksl = xsn(0)
jsl = xsn(h-1)
Else
ksl = ring(1,ndexOf("】")-1)
jsl = ksl
End If
End If
'定义Excel
Dim f As String = ProjectPath & "Excel"
Dim t As Table= CurrentTable
Dim flg As New SaveExcelFlags
tyle = True
xcel(
Foxtable所有范例代码 来自淘豆网m.daumloan.com转载请标明出处.
