主题：怎样做下面的表格

 

项目事件

 

MainTableChanged

 

If MainTable.Name = "表A"

    DataTables("表A").DataCols("第一列").RaiseDataColChanged

    Functions.Execute("a")

End If

 

计划管理

 

表事件

 

表A_DataColChanged

 

Select Case e.DataCol.Name

    Case "第一列","第二列","第三列"

        Dim s As String = "第一列='" & e.DataRow("第一列") & "'"

        Dim i As Integer = DataTables("表A").Compute("Sum(第三列)",s)

        DataTables("表A").ReplaceFor("第五列",i,s)

End Select

 

窗口表事件

 

窗口与控件事件

 

自定义函数

 

a

 

With Tables("表A")

    .MergeMode = MergeModeEnum.Free

    .MergeCols.Clear()

    .MergeCols.Add("第一列")

    .MergeCols.Add("第五列")

    .MergeSort = ""

    .AllowMerge = True

End With

 

 

很有使用价值