如果一个模板上同一个字段需要弹出不同的选择列表，可以通过命令代码来实现，提供一个参考的方案：

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 Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.         Public Class StandardInterface
    
14.                 '预留位置1
    
15.                 '预留位置2
    
16.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
17.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.                         EV = Excel
    
19.                         Excel.GetLock()
    
20.                         AW = Excel.ActiveWorkbook
    
21.                         Range = AW.ActiveWorksheet.Range
    
22.                         Excel.ReleaseLock()
    
23.                         AddHandler EV.PreviewMouseLeftButtonDown, AddressOf ExcelView_PreviewMouseLeftButtonDown
    
24.                 End Sub'打开时执行事件
    
25. 
    
26.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
27. 
    
28.                 End Sub'单元格选择后执行的事件
    
29. 
    
30.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
31. 
    
32.                 End Sub'单元格编辑完成后执行事件
    
33. 
    
34.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
35. 
    
36.                 End Sub'按钮/标签点击事件
    
37. 
    
38.                 Public Sub FollowHyperlink(sender As Object)
    
39. 
    
40.                 End Sub '暂不支持
    
41. 
    
42.                 Private Sub ExcelView_PreviewMouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs)
    
43.                         If e.ClickCount = 2 Then
    
44.                                 ActiveWorkbook.WorkbookSet.GetLock()
    
45.                                 '获取选择的单元格
    
46.                                 Dim selectedRange As SpreadsheetGear.IRange = EV.RangeSelection
    
47.                                 '判断选择的单元格区域
    
48.                                 If selectedRange IsNot Nothing Then
    
49.                                         If selectedRange.Intersect(Range("F_740")) IsNot Nothing Then
    
50.                                                
    
51.                                                 If Range("F_839").Text = "委外加工单" Then
    
52.                                                         App.KBFormula(3, "委外列表")
    
53.                                                 Else
    
54.                                                         App.KBFormula(3, "货品列表")
    
55.                                                 End If
    
56.                                                 e.Handled = True
    
57.                                         End If
    
58.                                        
    
59.                                 End If
    
60.                                
    
61.                                 AW.WorkbookSet.ReleaseLock()
    
62.                         End If
    
63.                 End Sub
    
64. 
    
65. 
    
66.         End Class
    
67.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码

如果一个模板上同一个字段需要弹出不同的选择列表，可以通过命令代码来实现，提供一个参考的方案：

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 Microsoft.VisualBasic
   
8. Imports System.IO
   
9. Imports System.Text
   
10. Imports System.Net
    
11. Imports System.Windows.forms
    
12. Namespace ExcelViewVBDotnet
    
13.         Public Class StandardInterface
    
14.                 '预留位置1
    
15.                 '预留位置2
    
16.                 Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView, AW As SpreadsheetGear.IWorkbook, Range As SpreadsheetGear.IRange
    
17.                 Public Sub Workbook_Open(OldRoot As Object, NewRoot As Object, Excel As SpreadsheetGear.Windows.Controls.WorkbookView)
    
18.                         EV = Excel
    
19.                         Excel.GetLock()
    
20.                         AW = Excel.ActiveWorkbook
    
21.                         Range = AW.ActiveWorksheet.Range
    
22.                         Excel.ReleaseLock()
    
23.                         AddHandler EV.PreviewMouseLeftButtonDown, AddressOf ExcelView_PreviewMouseLeftButtonDown
    
24.                 End Sub'打开时执行事件
    
25. 
    
26.                 Public Sub RangeSelection(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeSelectionChangedEventArgs)
    
27. 
    
28.                 End Sub'单元格选择后执行的事件
    
29. 
    
30.                 Public Sub RangeChanged(sender As Object, e As SpreadsheetGear.Windows.Controls.RangeChangedEventArgs)
    
31. 
    
32.                 End Sub'单元格编辑完成后执行事件
    
33. 
    
34.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
    
35. 
    
36.                 End Sub'按钮/标签点击事件
    
37. 
    
38.                 Public Sub FollowHyperlink(sender As Object)
    
39. 
    
40.                 End Sub '暂不支持
    
41. 
    
42.                 Private Sub ExcelView_PreviewMouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs)
    
43.                         If e.ClickCount = 2 Then
    
44.                                 ActiveWorkbook.WorkbookSet.GetLock()
    
45.                                 '获取选择的单元格
    
46.                                 Dim selectedRange As SpreadsheetGear.IRange = EV.RangeSelection
    
47.                                 '判断选择的单元格区域
    
48.                                 If selectedRange IsNot Nothing Then
    
49.                                         If selectedRange.Intersect(Range("F_740")) IsNot Nothing Then
    
50.                                                
    
51.                                                 If Range("F_839").Text = "委外加工单" Then
    
52.                                                         App.KBFormula(3, "委外列表")
    
53.                                                 Else
    
54.                                                         App.KBFormula(3, "货品列表")
    
55.                                                 End If
    
56.                                                 e.Handled = True
    
57.                                         End If
    
58.                                        
    
59.                                 End If
    
60.                                
    
61.                                 AW.WorkbookSet.ReleaseLock()
    
62.                         End If
    
63.                 End Sub
    
64. 
    
65. 
    
66.         End Class
    
67.         '  注：除事件字眼下可以自定义代码外的所有代码不允许改动，否则编译将有可能失败。
    
68. End Namespace
    

复制代码