class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
|
class= de
secondaire " de " codeSnippet847099 d'id= " de Private de class= cboTechnologySet_SelectedIndexChanged (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule cboTechnologySet.SelectedIndexChanged
Essai
RemoveHandler lvSubprograms.ItemCheck, AddressOf lvSubprograms_ItemChecked
Si cboTechnologySet.SelectedIndex > -1 puis
Faible strSP comme corde = cboTechnologySet.SelectedItem.ToString
TechnologyList = TechnologySetDB.GetProgramSubprogramList (strSP)
lvSubprograms.Items.Clear ()
Pour j comme nombre entier = 0 à TechnologyList.Count - 1
Faible t en tant que nouveau TechnologySet
t = TechnologyList (j)
lvSubprograms.Items.Add (t.TechnologySetCode)
lvSubprograms.Items (lvSubprograms.Items.Count - 1).SubItems.Add (t.SubTechnologyCode)
lvSubprograms.Items (lvSubprograms.Items.Count - 1).Checked = faux
Après
Autrement
MessageBox.Show (« un choix doit être fait »)
Finir si
Attraper ex comme exception
MessageBox.Show (ex. Message, ex.GetType.ToString)
Enfin
AddHandler lvSubprograms.ItemCheck, AddressOf lvSubprograms_ItemChecked
Essai de fin
Sous-marin d'extrémité
Secondaire privé lvSubprograms_ItemChecked (expéditeur de ByVal comme System.Object, ByVal e comme System.Windows.Forms.ItemCheckedEventArgs) manipule lvSubprograms.ItemChecked
Faible mymetriclist en tant que nouvelle liste (de métrique)
Essai
lvMetrics.Items.Clear ()
Pour chaque checkedItem comme ListViewItem dans lvSubprograms.CheckedItems
Faible m en tant que nouvelle métrique
Si cboInputCode.Text = « NEMS » puis
m.Technology = « nanomètre »
Autrement
m.Technology = checkedItem.SubItems (1).Text.ToString
Finir si
mymetriclist. Ajouter (m)
Après
Faible myDataTable en tant que nouveau DataTable
myDataTable = MetricsDB.GetMetricList (mymetriclist)
'PopulateMetricsListView (myDataTable)
Faible ds en tant que nouvel ensemble de données
Faible dsHelper = nouveau DataSetHelper (ds)
ds. Tables.Add (myDataTable)
Faible dtnew en tant que nouveau DataTable
dtnew = dsHelper.SelectDistinct (« DistinctMetrics », ds. Tableaux (0), « MetricName »)
'PopulateMetricsListView (dtnew)
Crochet ex comme exception
MessageBox.Show (ex. Message, ex.GetType.ToString)
Essai de fin
Sous-marin d'extrémité
|
