1.   Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                         If e.Shape.Name = "Button 1" Then
   
3.                                 '通过回调获得数据。
   
4.                                 Dim GetData As Action(Of JArray) = Function(res As JArray)
   
5.                                         Dim i As Integer
   
6.                                         EV.GetLock()
   
7.                                         '行数不足，先插入行
   
8.                                         App.KBInsertRows("T_274",2)
   
9.                                         '获取到结果后开始遍历
   
10.                                         For Each Row As JObject In Res
    
11.                                                 '写入单元格
    
12.                                                 Range("C6").Cells(i,0).Value = Row("USERNAME").ToString
    
13.                                                 Range("D6").Cells(i,0).Value = Row("LOGTYPE").ToString
    
14.                                                 i += 1
    
15.                                         Next
    
16.                                         EV.ReleaseLock()
    
17.                                 End Function
    
18.                                 '执行SQL获取数据
    
19.                                 App.KBRES("SELECT TOP 5 USERNAME,LOGTYPE FROM SYS_LOG", GetData)
    
20.                         End If
    
21.                 End Sub'按钮/标签点击事件

复制代码

1.   Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                         If e.Shape.Name = "Button 1" Then
   
3.                                 '通过回调获得数据。
   
4.                                 Dim GetData As Action(Of JArray) = Function(res As JArray)
   
5.                                         Dim i As Integer
   
6.                                         EV.GetLock()
   
7.                                         '行数不足，先插入行
   
8.                                         App.KBInsertRows("T_274",2)
   
9.                                         '获取到结果后开始遍历
   
10.                                         For Each Row As JObject In Res
    
11.                                                 '写入单元格
    
12.                                                 Range("C6").Cells(i,0).Value = Row("USERNAME").ToString
    
13.                                                 Range("D6").Cells(i,0).Value = Row("LOGTYPE").ToString
    
14.                                                 i += 1
    
15.                                         Next
    
16.                                         EV.ReleaseLock()
    
17.                                 End Function
    
18.                                 '执行SQL获取数据
    
19.                                 App.KBRES("SELECT TOP 5 USERNAME,LOGTYPE FROM SYS_LOG", GetData)
    
20.                         End If
    
21.                 End Sub'按钮/标签点击事件

复制代码