菜单栏自定义按钮执行提取公式

功能说明：

在填报、修改、查阅模板时，顶部的菜单栏添加一个自定义按钮并在点击按钮时执行表间提取公式。

支持版本：

企业版7.0以上

效果：

1. Imports SpreadsheetGear
   
2. Imports C1.Silverlight
   
3. Imports C1.Silverlight.C1MessageBoxButton
   
4. Imports C1.Silverlight.C1MessageBoxIcon
   
5. Imports Newtonsoft.Json
   
6. Imports Newtonsoft.Json.Linq
   
7. Imports System.Windows.forms
   
8. Namespace ExcelViewVBDotnet
   
9.         Public Class StandardInterface
   
10.        '预留位置1
    
11.        '预留位置2
    
12.         Dim EV As SpreadsheetGear.Windows.Co**ols.WorkbookView,AW As SpreadsheetGear.IWorkbook,Range As SpreadsheetGear.IRange
    
13.         Dim CF As Textbox,VW As Object
    
14.         Dim TS As StackPanel
    
15.                 Public Sub Workbook_Open(OldRoot As Object,NewRoot As Object,Excel As SpreadsheetGear.Windows.Co**ols.WorkbookView)
    
16.                         EV = Excel
    
17.                         Excel.GetLock()
    
18.                         AW = Excel.ActiveWorkbook
    
19.                         Range = AW.ActiveWorksheet.Range
    
20.                         Excel.ReleaseLock()
    
21. 
    
22.                         CF = CType(OldRoot.Children(1),TextBox)
    
23.                         TS = CType(OldRoot.Children(5),StackPanel)
    
24.                        
    
25.              '工具条添加第一个按钮
    
26.                        
    
27.                         Dim BT1 As New Button
    
28.                         BT1.Name = "BT_TQ"
    
29.                         BT1.Content = "执行提取公式"
    
30.                         BT1.Margin= New Thickness(0, 2, 0, 2)
    
31.                         BT1.Padding= New Thickness(13, 3, 13, 3)
    
32.                         BT1.Style=CType(Application.Current.Resources("ButtonStyle3"),style)
    
33.                         BT1.Foreground =  CType(Application.Current.Resources("Foreground1"),System.Windows.Media.Brush)
    
34.                         AddHandler BT1.Click, Sub()
    
35.                                 CF.Tag = "1,提取物资"     '公式类型：1为提取，2为传递。逗号后加执行的公式名称，与表间公式中的显示的名称一致
    
36.                                 CF.Text = "#执行公式"   '执行提取公式写入"#执行公式",执行SQL语句写入"#执行SQL"
    
37.                         End Sub
    
38.                         TS.Children.Insert(16, BT1)
    
39.                   
    
40.                 End Sub'打开时执行事件
    
41. 
    
42.                 Public Sub RangeSelection(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeSelectionChangedEventArgs)
    
43. 
    
44.                 End Sub'单元格选择后执行的事件
    
45. 
    
46.                 Public Sub RangeChanged(sender As Object,e As SpreadsheetGear.Windows.Co**ols.RangeChangedEventArgs)
    
47. 
    
48.                 End Sub'单元格编辑完成后执行事件
    
49. 
    
50.                 Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Co**ols.ShapeActionEventArgs)
    
51. 
    
52.                 End Sub'按钮/标签点击事件
    
53. 
    
54.                 Public Sub FollowHyperlink(sender As Object)
    
55. 
    
56.                 End Sub '暂不支持
    
57. 
    
58.         End Class
    
59. '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
60. End Namespace
    

复制代码

企业版7.0什么时候发布？

目前在内测中，测试完毕后即将发布，请耐心等候。

admin 发表于 2019-8-22 09:22
目前在内测中，测试完毕后即将发布，请耐心等候。

新功能在不断新增中，跨数据表提取数据什么时候能做到1-2S完成，有时提取速度要等，

数据的提取变量因素会比较多，如果你那存在问题可以联系客服具体看看。

企业版7.0什么时候发布？

目前在内测中，测试完毕后即将发布，请耐心等候。

admin 发表于 2019-8-22 09:22
目前在内测中，测试完毕后即将发布，请耐心等候。

新功能在不断新增中，跨数据表提取数据什么时候能做到1-2S完成，有时提取速度要等，

数据的提取变量因素会比较多，如果你那存在问题可以联系客服具体看看。