diff --git a/Extensions/Extensions.csproj b/Extensions/Extensions.csproj index 370ff88..4ee4c85 100755 --- a/Extensions/Extensions.csproj +++ b/Extensions/Extensions.csproj @@ -6,6 +6,9 @@ + + + diff --git a/Extensions/csv/CSVAdapter.cs b/Extensions/csv/CSVAdapter.cs new file mode 100755 index 0000000..58b2c7e --- /dev/null +++ b/Extensions/csv/CSVAdapter.cs @@ -0,0 +1,43 @@ +using System; +using System.Collections.Generic; +using CsvHelper; +using System.IO; +using System.Linq; +using Extensions.Models; + +namespace Extensions.CSV +{ + public static class CSVAdapter + { + public static void LoadFileToDb(string pathToFile, string ConnectionString, string countryCode, string clientId, string year, string setId, string setIndex) + { + List samples = null; + using (var reader = new StreamReader(pathToFile)) + using (var csv = new CsvReader(reader)) + { + //csv.Configuration.PrepareHeaderForMatch = (string header, int index) => header.ToLower(); + csv.Configuration.ShouldSkipRecord = row => row[0].StartsWith("0"); + csv.Configuration.Delimiter = "\t"; + try + { + samples = new List(csv.GetRecords()); + + samples.ForEach(s => { s.F_Country_Code = countryCode; s.F_Client_Id = clientId; s.F_Year = year; s.F_Sample_Set_Id = setId; s.F_Sample_Set_Index = setIndex; s.A_Sample_ID = s.Number.ToString("d2"); }); + + using (var ic = new InfoContext(ConnectionString)) + { + ic.Samples.AddRange(samples); + ic.SaveChanges(); + } + + + } + catch (Exception ex) + { + ; + } + } + + } + } +} diff --git a/Extensions/csv/InfoContext.cs b/Extensions/csv/InfoContext.cs new file mode 100755 index 0000000..4cd9ad3 --- /dev/null +++ b/Extensions/csv/InfoContext.cs @@ -0,0 +1,29 @@ +using Microsoft.EntityFrameworkCore; + +namespace Extensions.Models +{ + public class InfoContext : DbContext + { + public DbSet Samples { get; set; } + + private readonly string connectionString; + public InfoContext(string connectionString) : base() + { + this.connectionString = connectionString; + } + + protected override void OnConfiguring(DbContextOptionsBuilder optionsBuilder) + { + if (!optionsBuilder.IsConfigured) + { + optionsBuilder.UseSqlServer(connectionString); + } + } + + protected override void OnModelCreating(ModelBuilder modelBuilder) + { + modelBuilder.Entity() + .HasKey(s => new { s.F_Country_Code, s.F_Client_Id, s.F_Year, s.F_Sample_Set_Id, s.F_Sample_Set_Index, s.A_Sample_ID }); + } + } +} diff --git a/Extensions/csv/SampleInfo.cs b/Extensions/csv/SampleInfo.cs new file mode 100755 index 0000000..338878f --- /dev/null +++ b/Extensions/csv/SampleInfo.cs @@ -0,0 +1,188 @@ +using CsvHelper.Configuration.Attributes; +using System.ComponentModel.DataAnnotations.Schema; +using System.ComponentModel.DataAnnotations; + +namespace Extensions.Models +{ + [Table("table_Sample")] + public class SampleInfo + { + + [Ignore] + [Key] + public string F_Country_Code { get; set; } + [Ignore] + [Key] + public string F_Client_Id { get; set; } + [Ignore] + [Key] + public string F_Year { get; set; } + [Ignore] + [Key] + public string F_Sample_Set_Id { get; set; } + [Ignore] + [Key] + public string F_Sample_Set_Index { get; set; } + [Ignore] + [Key] + public string A_Sample_ID { get; set; } + + [NotMapped] + [Index(0)] + public int Number { get; set; } + [Index(1)] + public string A_Client_Sample_ID { get; set; } + [Index(2)] + public string A_Sample_Type { get; set; } + [Index(3)] + public string A_Sample_Subtype { get; set; } + [Index(4)] + public string A_Latitude { get; set; } + [Index(5)] + public string A_Longitude { get; set; } + [Index(6)] + public string A_Collection_Place { get; set; } + [Index(7)] + public string A_Determined_Elements { get; set; } + [Index(8)] + public string A_Halogens_Plan { get; set; } + [Index(9)] + public string A_Heavy_Metals_Plan { get; set; } + [Index(10)] + public bool A_Short_Lived_Plan { get; set; } + [Index(11)] + public bool A_Long_Lived_Plan { get; set; } + [Index(12)] + public bool A_F_Plan { get; set; } + [Index(13)] + public bool A_Na_Plan { get; set; } + [Index(14)] + public bool A_Mg_Plan { get; set; } + [Index(15)] + public bool A_Al_Plan { get; set; } + [Index(16)] + public bool A_Si_Plan { get; set; } + [Index(17)] + public bool A_S_Plan { get; set; } + [Index(18)] + public bool A_Cl_Plan { get; set; } + [Index(19)] + public bool A_K_Plan { get; set; } + [Index(20)] + public bool A_Ca_Plan { get; set; } + [Index(21)] + public bool A_Sc_Plan { get; set; } + [Index(22)] + public bool A_Ti_Plan { get; set; } + [Index(23)] + public bool A_V_Plan { get; set; } + [Index(24)] + public bool A_Cr_Plan { get; set; } + [Index(25)] + public bool A_Mn_Plan { get; set; } + [Index(26)] + public bool A_Fe_Plan { get; set; } + [Index(27)] + public bool A_Co_Plan { get; set; } + [Index(28)] + public bool A_Ni_Plan { get; set; } + [Index(29)] + public bool A_Cu_Plan { get; set; } + [Index(30)] + public bool A_Zn_Plan { get; set; } + [Index(31)] + public bool A_Ga_Plan { get; set; } + [Index(32)] + public bool A_Ge_Plan { get; set; } + [Index(33)] + public bool A_As_Plan { get; set; } + [Index(34)] + public bool A_Se_Plan { get; set; } + [Index(35)] + public bool A_Br_Plan { get; set; } + [Index(36)] + public bool A_Rb_Plan { get; set; } + [Index(37)] + public bool A_Sr_Plan { get; set; } + [Index(38)] + public bool A_Y_Plan { get; set; } + [Index(39)] + public bool A_Zr_Plan { get; set; } + [Index(40)] + public bool A_Nb_Plan { get; set; } + [Index(41)] + public bool A_Mo_Plan { get; set; } + [Index(42)] + public bool A_Ru_Plan { get; set; } + [Index(43)] + public bool A_Pd_Plan { get; set; } + [Index(44)] + public bool A_Ag_Plan { get; set; } + [Index(45)] + public bool A_Cd_Plan { get; set; } + [Index(46)] + public bool A_In_Plan { get; set; } + [Index(47)] + public bool A_Sn_Plan { get; set; } + [Index(48)] + public bool A_Sb_Plan { get; set; } + [Index(49)] + public bool A_I_Plan { get; set; } + [Index(50)] + public bool A_Cs_Plan { get; set; } + [Index(51)] + public bool A_Ba_Plan { get; set; } + [Index(52)] + public bool A_La_Plan { get; set; } + [Index(53)] + public bool A_Ce_Plan { get; set; } + [Index(54)] + public bool A_Pr_Plan { get; set; } + [Index(55)] + public bool A_Nd_Plan { get; set; } + [Index(56)] + public bool A_Sm_Plan { get; set; } + [Index(57)] + public bool A_Eu_Plan { get; set; } + [Index(58)] + public bool A_Gd_Plan { get; set; } + [Index(59)] + public bool A_Tb_Plan { get; set; } + [Index(60)] + public bool A_Dy_Plan { get; set; } + [Index(61)] + public bool A_Ho_Plan { get; set; } + [Index(62)] + public bool A_Er_Plan { get; set; } + [Index(63)] + public bool A_Tm_Plan { get; set; } + [Index(64)] + public bool A_Yb_Plan { get; set; } + [Index(65)] + public bool A_Lu_Plan { get; set; } + [Index(66)] + public bool A_Hf_Plan { get; set; } + [Index(67)] + public bool A_Ta_Plan { get; set; } + [Index(68)] + public bool A_W_Plan { get; set; } + [Index(69)] + public bool A_Re_Plan { get; set; } + [Index(70)] + public bool A_Os_Plan { get; set; } + [Index(71)] + public bool A_Ir_Plan { get; set; } + [Index(72)] + public bool A_Pt_Plan { get; set; } + [Index(73)] + public bool A_Au_Plan { get; set; } + [Index(74)] + public bool A_Hg_Plan { get; set; } + [Index(75)] + public bool A_Th_Plan { get; set; } + [Index(76)] + public bool A_U_Plan { get; set; } + [Index(77)] + public string A_Notes { get; set; } + } +} diff --git a/Forms/Form_ElsSum.vb b/Forms/Form_ElsSum.vb index ee9fb76..ccccdcb 100755 --- a/Forms/Form_ElsSum.vb +++ b/Forms/Form_ElsSum.vb @@ -177,44 +177,48 @@ Public Class Form_ElsSum End Sub Function FormFinalFilesDict(ByVal type As String, ByRef gYear As String) As Dictionary(Of String, String) - Debug.WriteLine("Started to form final files array:") - LabelStatus.Text = "Формирование имен загружаемых файлов..." - Dim finArr = New Dictionary(Of String, String) - Dim finSrmsArr = New Dictionary(Of String, String) - Dim typeFtp As New Dictionary(Of String, String) - Dim dtStrCont As String = "" - Dim dt As New DateTime() - typeFtp.Add("КЖИ", "kji") - typeFtp.Add("ДЖИ-1", "dji-1") - typeFtp.Add("ДЖИ-2", "dji-2") - Dim setKey As String = $"{LablelElSumCountryCode.Text}-{LabelElSumClientId.Text}-{LabelElSumYear.Text}-{LabelElSumSetId.Text}-{LabelElSumSetIndex.Text}" - - For Each row As DataGridViewRow In DataGridViewElsSum.Rows - Dim cellFile As DataGridViewCell = row.Cells($"Файлы спектров {type}") - If String.IsNullOrEmpty(cellFile.Value.ToString) Then Continue For - Dim cellDate As DataGridViewCell = row.Cells($"{typeFtp(type)}-Date") - Dim loadNumCell As DataGridViewCell = row.Cells($"loadNumber") - If String.IsNullOrEmpty(cellDate.Value.ToString) Then Continue For - dt = Convert.ToDateTime(cellDate.Value) - If (Not dtStrCont.Contains($"{dt.ToShortDateString}-{row.Cells("Container_Number").Value}")) Then dtStrCont += $"'{dt.ToShortDateString}-{row.Cells("Container_Number").Value}'," + Try + Debug.WriteLine("Started to form final files array:") + LabelStatus.Text = "Формирование имен загружаемых файлов..." + Dim finArr = New Dictionary(Of String, String) + Dim finSrmsArr = New Dictionary(Of String, String) + Dim typeFtp As New Dictionary(Of String, String) + Dim dtStrCont As String = "" + Dim dt As New DateTime() + typeFtp.Add("КЖИ", "kji") + typeFtp.Add("ДЖИ-1", "dji-1") + typeFtp.Add("ДЖИ-2", "dji-2") + Dim setKey As String = $"{LablelElSumCountryCode.Text}-{LabelElSumClientId.Text}-{LabelElSumYear.Text}-{LabelElSumSetId.Text}-{LabelElSumSetIndex.Text}" + + For Each row As DataGridViewRow In DataGridViewElsSum.Rows + Dim cellFile As DataGridViewCell = row.Cells($"Файлы спектров {type}") + If String.IsNullOrEmpty(cellFile.Value.ToString) Then Continue For + Dim cellDate As DataGridViewCell = row.Cells($"{typeFtp(type)}-Date") + Dim loadNumCell As DataGridViewCell = row.Cells($"loadNumber") + If String.IsNullOrEmpty(cellDate.Value.ToString) Then Continue For + dt = Convert.ToDateTime(cellDate.Value) + If (Not dtStrCont.Contains($"{dt.ToShortDateString}-{row.Cells("Container_Number").Value}")) Then dtStrCont += $"'{dt.ToShortDateString}-{row.Cells("Container_Number").Value}'," + + If type.Contains("ДЖИ") Then + Debug.WriteLine($"{setKey}\{loadNumCell.Value}\{typeFtp(type)}\c-{row.Cells("Container_Number").Value}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") + finArr.Add(row.Cells($"Файлы спектров {type}").Value, $"{setKey}\{loadNumCell.Value}\{typeFtp(type)}\c-{row.Cells("Container_Number").Value}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") + Else + Debug.WriteLine($"{setKey}\{typeFtp(type)}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") + finArr.Add(row.Cells($"Файлы спектров {type}").Value, $"{setKey}\{typeFtp(type)}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") + GetRelatedSLISRMs(finSrmsArr, setKey, dt) + End If + Next If type.Contains("ДЖИ") Then - Debug.WriteLine($"{setKey}\{loadNumCell.Value}\{typeFtp(type)}\c-{row.Cells("Container_Number").Value}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") - finArr.Add(row.Cells($"Файлы спектров {type}").Value, $"{setKey}\{loadNumCell.Value}\{typeFtp(type)}\c-{row.Cells("Container_Number").Value}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") - Else - Debug.WriteLine($"{setKey}\{typeFtp(type)}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") - finArr.Add(row.Cells($"Файлы спектров {type}").Value, $"{setKey}\{typeFtp(type)}\samples\{row.Cells($"Файлы спектров {type}").Value}.cnf") - GetRelatedSLISRMs(finSrmsArr, setKey, dt) + GetRelatedLLISRMs(finSrmsArr, setKey, typeFtp(type), dtStrCont.Substring(0, dtStrCont.Length - 1)) End If - Next - - If type.Contains("ДЖИ") Then - GetRelatedLLISRMs(finSrmsArr, setKey, typeFtp(type), dtStrCont.Substring(0, dtStrCont.Length - 1)) - End If - gYear = Convert.ToDateTime(DataGridViewElsSum.Rows(0).Cells($"{typeFtp(type)}-Date").Value).Year.ToString() - Debug.WriteLine($"Guessed year: {gYear}") - Return finArr.Union(finSrmsArr).ToDictionary(Function(p) p.Key, Function(p) p.Value) + gYear = Convert.ToDateTime(DataGridViewElsSum.Rows(0).Cells($"{typeFtp(type)}-Date").Value).Year.ToString() + Debug.WriteLine($"Guessed year: {gYear}") + Return finArr.Union(finSrmsArr).ToDictionary(Function(p) p.Key, Function(p) p.Value) + Catch ex As Exception + Return New Dictionary(Of String, String) + End Try End Function Function FindFiles(ByRef names As Dictionary(Of String, String).KeyCollection, ByVal gYear As String) As Dictionary(Of String, String) diff --git a/Forms/Form_Sample_Accept.Designer.vb b/Forms/Form_Sample_Accept.Designer.vb index 34a85b1..a156a5a 100755 --- a/Forms/Form_Sample_Accept.Designer.vb +++ b/Forms/Form_Sample_Accept.Designer.vb @@ -410,6 +410,7 @@ Partial Class Form_Sample_Accept 'OpenFileDialog_Fill_In_From_File ' Me.OpenFileDialog_Fill_In_From_File.Filter = "Samples info files (*.nas)|*.nas|All files (*.*)|*.*" + Me.OpenFileDialog_Fill_In_From_File.RestoreDirectory = True ' 'ComboBox_Sample_Subtype ' diff --git a/Forms/Form_Sample_Accept.resx b/Forms/Form_Sample_Accept.resx index 4827145..ad54f8e 100755 --- a/Forms/Form_Sample_Accept.resx +++ b/Forms/Form_Sample_Accept.resx @@ -120,12 +120,6 @@ 617, 24 - - 617, 24 - - - 17, 17 - 17, 17 diff --git a/Forms/Form_Sample_Accept.vb b/Forms/Form_Sample_Accept.vb index 9206e41..49f935a 100755 --- a/Forms/Form_Sample_Accept.vb +++ b/Forms/Form_Sample_Accept.vb @@ -180,26 +180,34 @@ Public Class Form_Sample_Accept sqlConnection1.Open() reader = cmd.ExecuteReader() While reader.Read() - TextBox_Client_Sample_ID.Text = reader(0) - ComboBox_Sample_Type.Text = reader(1) + TextBox_Client_Sample_ID.Text = reader(0).ToString + ComboBox_Sample_Type.Text = reader(1).ToString ComboBox_Sample_Type_SelectionChangeCommitted(sender, e) - ComboBox_Sample_Subtype.Text = reader(2) - TextBox_Collection_Place.Text = reader(3) - MaskedTextBox_Latitude.Text = reader(4) - MaskedTextBox_Longitude.Text = reader(5) + ComboBox_Sample_Subtype.Text = reader(2).ToString + TextBox_Collection_Place.Text = reader(3).ToString + MaskedTextBox_Latitude.Text = reader(4).ToString + MaskedTextBox_Longitude.Text = reader(5).ToString For i = 0 To CheckedListBox_Sample_Preparation.Items.Count - 1 - If reader(6 + i) = True Then - CheckedListBox_Sample_Preparation.SetItemChecked(i, True) + If Not IsDBNull(reader(6 + i)) Then + If reader(6 + i) = True Then + CheckedListBox_Sample_Preparation.SetItemChecked(i, True) + Else + CheckedListBox_Sample_Preparation.SetItemChecked(i, False) + End If Else CheckedListBox_Sample_Preparation.SetItemChecked(i, False) End If Next - ComboBox_Determined_Elements.Text = reader(13) + ComboBox_Determined_Elements.Text = reader(13).ToString() For i = 0 To CheckedListBox_Group_Of_Elements.Items.Count - 1 - If reader(14 + i) = True Then - CheckedListBox_Group_Of_Elements.SetItemChecked(i, True) - Else + If IsDBNull(reader(14 + i)) Then CheckedListBox_Group_Of_Elements.SetItemChecked(i, False) + Else + If reader(14 + i) = True Then + CheckedListBox_Group_Of_Elements.SetItemChecked(i, True) + Else + CheckedListBox_Group_Of_Elements.SetItemChecked(i, False) + End If End If Next For i = 0 To CheckedListBox_Separate_Elements.Items.Count - 1 @@ -213,10 +221,10 @@ Public Class Form_Sample_Accept End If End If Next - ComboBox_Cupboard_Number.Text = reader(83) - ComboBox_Box_Number.Text = reader(84) - ComboBox_Table_ReceivedBy.Text = reader(85) - TextBox_New_Sample_Accept_Notes.Text = reader(86) + ComboBox_Cupboard_Number.Text = reader(83).ToString() + ComboBox_Box_Number.Text = reader(84).ToString() + ComboBox_Table_ReceivedBy.Text = reader(85).ToString() + TextBox_New_Sample_Accept_Notes.Text = reader(86).ToString() End While sqlConnection1.Close() @@ -348,7 +356,7 @@ Public Class Form_Sample_Accept End If Catch ex As Exception If Form_Main.language = "Русский" Then - MsgBox("Операция была отменена (ошибка в Form_NewSampleAccept_Load)!", MsgBoxStyle.Critical, Me.Text) + MsgBox($"Операция была отменена (ошибка в Form_NewSampleAccept_Load)!{vbCrLf}{ex.ToString}", MsgBoxStyle.Critical, Me.Text) ElseIf Form_Main.language = "English" Then MsgBox("The operation was cancelled (error in Form_NewSampleAccept_Load)!", MsgBoxStyle.Critical, Me.Text) End If diff --git a/Forms/Form_Samples_List.vb b/Forms/Form_Samples_List.vb index c203497..1df0495 100755 --- a/Forms/Form_Samples_List.vb +++ b/Forms/Form_Samples_List.vb @@ -307,14 +307,7 @@ Public Class Form_Samples_List Private Sub B_Insert_All_Samples_Into_Sample_Set_Click(sender As System.Object, e As System.EventArgs) Handles B_Insert_All_Samples_Into_Sample_Set.Click Try - Dim sqlConnection1 As New SqlConnection(Form_Main.MyConnectionString) - 'Dim reader As SqlDataReader - 'Dim cmd As New System.Data.SqlClient.SqlCommand - 'cmd.CommandType = System.Data.CommandType.Text - Dim array_length_NAS As Integer - Dim Samples_Info(,) As String - 'Dim Samples_Weights(,) As Single - Dim row_count As Integer + With MaskedTextBox_New_Sample_ID If .Text.Trim = "" Or .Text.Trim = "0" Or .Text.Trim = "00" Then If Form_Main.language = "Русский" Then @@ -326,17 +319,6 @@ Public Class Form_Samples_List End If End With - With MaskedTextBox_New_Sample_ID - If .Text.Trim <> "01" Then - If Form_Main.language = "Русский" Then - MsgBox("Партия образцов должна быть пустой!", MsgBoxStyle.Exclamation, Me.Text) - ElseIf Form_Main.language = "English" Then - MsgBox("Sample set must be empty!", MsgBoxStyle.Exclamation, Me.Text) - End If - Exit Sub - End If - End With - If ListBox_Sample_ID.Items.Count <> 0 Then If Form_Main.language = "Русский" Then MsgBox("Партия образцов должна быть пустой!", MsgBoxStyle.Exclamation, Me.Text) @@ -346,8 +328,6 @@ Public Class Form_Samples_List Exit Sub End If - sample_action = "new sample" - If Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.ShowDialog = System.Windows.Forms.DialogResult.Cancel Then If Form_Main.language = "Русский" Then MsgBox("Выберите партию образцов!", MsgBoxStyle.Exclamation, Me.Text) @@ -356,198 +336,11 @@ Public Class Form_Samples_List End If Exit Sub Else - ' определяем количество строк в файле с инфой об образцах - array_length_NAS = 0 - Using MyReader As New FileIO.TextFieldParser(Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.FileName, System.Text.Encoding.Default) - MyReader.TextFieldType = FileIO.FieldType.Delimited - MyReader.SetDelimiters(vbTab) - Dim currentRow As String - While Not MyReader.EndOfData - currentRow = MyReader.ReadLine - currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - While InStr(currentRow, " ") > 0 - currentRow = Replace(currentRow, " ", " ") - End While - If (currentRow = "0") Or (currentRow = "1") Then - currentRow = MyReader.ReadLine - currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - While InStr(currentRow, " ") > 0 - currentRow = Replace(currentRow, " ", " ") - End While - If currentRow = "№ Sample ID Sample type Sample subtype Latitude Longitude Collection place Determined elements Halogens Heavy metals Short-lived Long-lived F Na Mg Al Si S Cl K Ca Sc Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Rb Sr Y Zr Nb Mo Ru Pd Ag Cd In Sn Sb I Cs Ba La Ce Pr Nd Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W Re Os Ir Pt Au Hg Th U Notes" Or currentRow = "№ Номер образца Тип образца Подтип образца Широта Долгота Место сбора Определяемые элементы Галогены Тяжёлые металлы Короткоживущие Долгоживущие F Na Mg Al Si S Cl K Ca Sc Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Rb Sr Y Zr Nb Mo Ru Pd Ag Cd In Sn Sb I Cs Ba La Ce Pr Nd Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W Re Os Ir Pt Au Hg Th U Примечания" Then - 'currentRow = MyReader.ReadLine - 'currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - 'While InStr(currentRow, "--") > 0 - ' currentRow = Replace(currentRow, "--", "-") - 'End While - 'If currentRow = "-" Then - 'MessageBox.Show("Похоже, правильный формат файла активностей исследуемого образца!") - currentRow = MyReader.ReadLine -a: array_length_NAS = array_length_NAS + 1 - currentRow = MyReader.ReadLine - If currentRow <> "" Then GoTo a - 'End If - End If - End If - End While - End Using - - ReDim Samples_Info(array_length_NAS, 78) - 'ReDim Samples_Weights(array_length_VES, 2) - - Dim File_Name As String - File_Name = Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.FileName - - Using MyReader As New FileIO.TextFieldParser(Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.FileName, System.Text.Encoding.Default) - MyReader.TextFieldType = FileIO.FieldType.Delimited - MyReader.SetDelimiters(vbTab) - Dim currentRow As String - While Not MyReader.EndOfData - currentRow = MyReader.ReadLine - currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - While InStr(currentRow, " ") > 0 - currentRow = Replace(currentRow, " ", " ") - End While - If (currentRow = "0") Or (currentRow = "1") Then - currentRow = MyReader.ReadLine - currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - While InStr(currentRow, " ") > 0 - currentRow = Replace(currentRow, " ", " ") - End While - If currentRow = "№ Sample ID Sample type Sample subtype Latitude Longitude Collection place Determined elements Halogens Heavy metals Short-lived Long-lived F Na Mg Al Si S Cl K Ca Sc Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Rb Sr Y Zr Nb Mo Ru Pd Ag Cd In Sn Sb I Cs Ba La Ce Pr Nd Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W Re Os Ir Pt Au Hg Th U Notes" Or currentRow = "№ Номер образца Тип образца Подтип образца Широта Долгота Место сбора Определяемые элементы Галогены Тяжёлые металлы Короткоживущие Долгоживущие F Na Mg Al Si S Cl K Ca Sc Ti V Cr Mn Fe Co Ni Cu Zn Ga Ge As Se Br Rb Sr Y Zr Nb Mo Ru Pd Ag Cd In Sn Sb I Cs Ba La Ce Pr Nd Sm Eu Gd Tb Dy Ho Er Tm Yb Lu Hf Ta W Re Os Ir Pt Au Hg Th U Примечания" Then - - ' currentRow = MyReader.ReadLine - ' currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - ' While InStr(currentRow, "--") > 0 - ' currentRow = Replace(currentRow, "--", "-") - ' End While - ' If currentRow = "-" Then - ' 'MessageBox.Show("Похоже, правильный формат файла активностей исследуемого образца!") - - row_count = 0 - currentRow = MyReader.ReadLine -b: currentRow = currentRow.Trim 'удаляем пробелы в начале и конце строки, если они есть - 'While InStr(currentRow, vbTab + vbTab) > 0 - ' currentRow = Replace(currentRow, vbTab + vbTab, vbTab) ' заменяем все двойные пробелы одинарными - 'End While - If currentRow(currentRow.Count - 1) <> vbTab Then currentRow = currentRow + vbTab 'добавляем пробел в конец строки - Dim i As Integer - i = 0 -c: Samples_Info(row_count, i) = Mid(currentRow, 1, InStr(1, currentRow, vbTab) - 1) ' первое слово до пробела - currentRow = Replace(currentRow, Samples_Info(row_count, i) + vbTab, "", , 1, ) - i = i + 1 - If currentRow <> "" Then GoTo c - 'Samples_Info(row_count, 1) = Mid(currentRow, 1, InStr(1, currentRow, vbTab) - 1) 'имя образца - первое слово до пробела - 'currentRow = Replace(currentRow, Samples_Info(row_count, 1) + vbTab, "", , 1, ) - ' Samples_Weights(row_count, 0) = CDbl(Replace(Mid(currentRow, 1, InStr(1, currentRow, " ") - 1), ".", ",")) - ' currentRow = Replace(currentRow, Mid(currentRow, 1, InStr(1, currentRow, " ") - 1) + " ", "") - ' Samples_Weights(row_count, 1) = CDbl(Replace(Mid(currentRow, 1, InStr(1, currentRow, " ") - 1), ".", ",")) - - row_count = row_count + 1 - currentRow = MyReader.ReadLine - If currentRow <> "" Then GoTo b - - 'End If - 'MsgBox(Samples_Info(row_count - 1, 71)) - End If - End If - End While - End Using - - ' цикл по количеству строк в файле с инфой об образцах - For i2 = 0 To array_length_NAS - 1 - - Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.FileName = File_Name - - MaskedTextBox_New_Sample_ID.Text = i2 + 1 - - If MaskedTextBox_New_Sample_ID.Text < 10 Then MaskedTextBox_New_Sample_ID.Text = "0" + MaskedTextBox_New_Sample_ID.Text.Trim("0") - - Form_Sample_Accept.L_SS_Country_Code.Text = L_SS_Country_Code.Text - Form_Sample_Accept.L_SS_Client_ID.Text = L_SS_Client_ID.Text - Form_Sample_Accept.L_SS_Year.Text = L_SS_Year.Text - Form_Sample_Accept.L_SS_Sample_Set_ID.Text = L_SS_Sample_Set_ID.Text - Form_Sample_Accept.L_SS_Sample_Set_Index.Text = L_SS_Sample_Set_Index.Text - - Form_Sample_Accept.L_Sample_ID.Text = MaskedTextBox_New_Sample_ID.Text.Trim - - Form_Sample_Accept.TextBox_Client_Sample_ID.Text = Samples_Info(i2, 1) - - Form_Sample_Accept.ComboBox_Sample_Subtype.Visible = False - Form_Sample_Accept.L_Name_Sample_Subtype.Visible = False - - For i = 0 To array_length_NAS - 1 - If Samples_Info(i, 2) = "почвы" Then Samples_Info(i, 2) = "soils" - If Samples_Info(i, 2) = "донные отложения" Then Samples_Info(i, 2) = "sediments" - If Samples_Info(i, 2) = "горные породы" Then Samples_Info(i, 2) = "rocks" - If Samples_Info(i, 2) = "продукты" Then Samples_Info(i, 2) = "foodstuffs" - If Samples_Info(i, 2) = "растительность" Then Samples_Info(i, 2) = "vegetation" - If Samples_Info(i, 2) = "биосубстраты" Then Samples_Info(i, 2) = "biomedical materials" - If Samples_Info(i, 2) = "технологический" Then Samples_Info(i, 2) = "technological" - If Samples_Info(i, 2) = "фильтры" Then Samples_Info(i, 2) = "filters" - If Samples_Info(i, 2) = "жидкий" Then Samples_Info(i, 2) = "luquids" - If Samples_Info(i, 2) = "другие" Then Samples_Info(i, 2) = "others" - - If Samples_Info(i, 3) = "мох" Then Samples_Info(i, 3) = "moss" - If Samples_Info(i, 3) = "листья" Then Samples_Info(i, 3) = "leaves" - If Samples_Info(i, 3) = "кора" Then Samples_Info(i, 3) = "tree-bark" - If Samples_Info(i, 3) = "лишайники" Then Samples_Info(i, 3) = "lichens" - If Samples_Info(i, 3) = "другая растительность" Then Samples_Info(i, 3) = "others vegetation" - - If Samples_Info(i, 3) = "волосы" Then Samples_Info(i, 3) = "hairs" - If Samples_Info(i, 3) = "ногти" Then Samples_Info(i, 3) = "nails" - If Samples_Info(i, 3) = "кровь" Then Samples_Info(i, 3) = "blood" - If Samples_Info(i, 3) = "моча" Then Samples_Info(i, 3) = "urine" - If Samples_Info(i, 3) = "ткани" Then Samples_Info(i, 3) = "tissues" - If Samples_Info(i, 3) = "зубы" Then Samples_Info(i, 3) = "teeth" - If Samples_Info(i, 3) = "другие биосубстраты" Then Samples_Info(i, 3) = "others biomedical materials" - - If Samples_Info(i, 7) = "группа элементов" Then Samples_Info(i, 7) = "group of elements" - If Samples_Info(i, 7) = "отдельные элементы" Then Samples_Info(i, 7) = "separate elements" - If Samples_Info(i, 7) = "все элементы" Then Samples_Info(i, 7) = "all elements" - Next - - For i = 0 To array_length_NAS - 1 - If Form_Sample_Accept.TextBox_Client_Sample_ID.Text = Samples_Info(i, 1) Then - For i1 = 0 To Form_Sample_Accept.ComboBox_Sample_Type.Items.Count - 1 - If Form_Sample_Accept.ComboBox_Sample_Type.Items(i1) = Samples_Info(i, 2) Then - Form_Sample_Accept.ComboBox_Sample_Type.SelectedItem = Form_Sample_Accept.ComboBox_Sample_Type.Items(i1) - Form_Sample_Accept.ComboBox_Sample_Type_SelectionChangeCommitted(sender, e) - End If - Next - If Form_Sample_Accept.ComboBox_Sample_Subtype.Visible = True Then - For i1 = 0 To Form_Sample_Accept.ComboBox_Sample_Subtype.Items.Count - 1 - If Form_Sample_Accept.ComboBox_Sample_Subtype.Items(i1) = Samples_Info(i, 3) Then - Form_Sample_Accept.ComboBox_Sample_Subtype.SelectedItem = Form_Sample_Accept.ComboBox_Sample_Subtype.Items(i1) - End If - Next - End If - Form_Sample_Accept.MaskedTextBox_Latitude.Text = Samples_Info(i, 4) - Form_Sample_Accept.MaskedTextBox_Longitude.Text = Samples_Info(i, 5) - Form_Sample_Accept.TextBox_Collection_Place.Text = Samples_Info(i, 6) - For i1 = 0 To Form_Sample_Accept.ComboBox_Determined_Elements.Items.Count - 1 - If Form_Sample_Accept.ComboBox_Determined_Elements.Items(i1) = Samples_Info(i, 7) Then - Form_Sample_Accept.ComboBox_Determined_Elements.SelectedItem = Form_Sample_Accept.ComboBox_Determined_Elements.Items(i1) - Form_Sample_Accept.ComboBox_Determined_Elements_SelectionChangeCommitted(sender, e) - End If - Next - For j = 0 To Form_Sample_Accept.CheckedListBox_Group_Of_Elements.Items.Count - 1 - If Samples_Info(i, j + 8) = "1" Then Form_Sample_Accept.CheckedListBox_Group_Of_Elements.SetItemChecked(j, True) - If Samples_Info(i, j + 8) = "0" Then Form_Sample_Accept.CheckedListBox_Group_Of_Elements.SetItemChecked(j, False) - Next - For j = 0 To Form_Sample_Accept.CheckedListBox_Separate_Elements.Items.Count - 1 - If Samples_Info(i, j + 12) = "1" Then Form_Sample_Accept.CheckedListBox_Separate_Elements.SetItemChecked(j, True) - If Samples_Info(i, j + 12) = "0" Then Form_Sample_Accept.CheckedListBox_Separate_Elements.SetItemChecked(j, False) - Next - Form_Sample_Accept.TextBox_New_Sample_Accept_Notes.Text = Samples_Info(i, 77) - End If - Next - 'Form_Sample_Accept.B_Fill_In_From_File_Click(sender, e) - - Form_Sample_Accept.Button_Save_Sample_Click(sender, e) - Next + Extensions.CSV.CSVAdapter.LoadFileToDb(Form_Sample_Accept.OpenFileDialog_Fill_In_From_File.FileName, Form_Main.MyConnectionString, L_SS_Country_Code.Text, L_SS_Client_ID.Text, L_SS_Year.Text, L_SS_Sample_Set_ID.Text, L_SS_Sample_Set_Index.Text) End If + Close() + Form_Main.B_Select_Sample_Set.PerformClick() Catch ex As Exception If Form_Main.language = "Русский" Then diff --git a/Forms/NAA_DB_EXPDataSet.Designer.vb b/Forms/NAA_DB_EXPDataSet.Designer.vb index e4c1141..98f4c7e 100755 --- a/Forms/NAA_DB_EXPDataSet.Designer.vb +++ b/Forms/NAA_DB_EXPDataSet.Designer.vb @@ -3073,9 +3073,9 @@ Partial Public Class NAA_DB_EXPDataSet Private columnSample_Set_Report_Date As Global.System.Data.DataColumn Private columnReceived_By As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Sample_Set" @@ -3083,9 +3083,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3101,145 +3101,145 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_Code End Get End Property - - + + _ Public ReadOnly Property Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnClient_ID End Get End Property - - + + _ Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn Get Return Me.columnYear End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_ID End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_Index End Get End Property - - + + _ Public ReadOnly Property Sample_Set_Receipt_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_Receipt_Date End Get End Property - - + + _ Public ReadOnly Property Sample_Set_Report_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_Report_Date End Get End Property - - + + _ Public ReadOnly Property Received_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnReceived_By End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_Sample_SetRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_Sample_SetRow Get - Return CType(Me.Rows(index), table_Sample_SetRow) + Return CType(Me.Rows(index),table_Sample_SetRow) End Get End Property - - + + _ Public Event table_Sample_SetRowChanging As table_Sample_SetRowChangeEventHandler - - + + _ Public Event table_Sample_SetRowChanged As table_Sample_SetRowChangeEventHandler - - + + _ Public Event table_Sample_SetRowDeleting As table_Sample_SetRowChangeEventHandler - - + + _ Public Event table_Sample_SetRowDeleted As table_Sample_SetRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_Sample_SetRow(ByVal row As table_Sample_SetRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function Addtable_Sample_SetRow(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String, ByVal Sample_Set_Receipt_Date As Date, ByVal Sample_Set_Report_Date As Date, ByVal Received_By As String) As table_Sample_SetRow - Dim rowtable_Sample_SetRow As table_Sample_SetRow = CType(Me.NewRow, table_Sample_SetRow) + Dim rowtable_Sample_SetRow As table_Sample_SetRow = CType(Me.NewRow,table_Sample_SetRow) Dim columnValuesArray() As Object = New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_Set_Receipt_Date, Sample_Set_Report_Date, Received_By} rowtable_Sample_SetRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_Sample_SetRow) Return rowtable_Sample_SetRow End Function - - + + _ Public Function FindByCountry_CodeClient_IDYearSample_Set_IDSample_Set_Index(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String) As table_Sample_SetRow - Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index}), table_Sample_SetRow) + Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index}),table_Sample_SetRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_Sample_SetDataTable = CType(MyBase.Clone, table_Sample_SetDataTable) + Dim cln As table_Sample_SetDataTable = CType(MyBase.Clone,table_Sample_SetDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_Sample_SetDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnCountry_Code = MyBase.Columns("Country_Code") Me.columnClient_ID = MyBase.Columns("Client_ID") @@ -3250,9 +3250,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnSample_Set_Report_Date = MyBase.Columns("Sample_Set_Report_Date") Me.columnReceived_By = MyBase.Columns("Received_By") End Sub - - + + _ Private Sub InitClass() Me.columnCountry_Code = New Global.System.Data.DataColumn("Country_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_Code) @@ -3270,84 +3270,82 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnSample_Set_Report_Date) Me.columnReceived_By = New Global.System.Data.DataColumn("Received_By", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnReceived_By) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index}, True)) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index}, true)) Me.columnCountry_Code.AllowDBNull = False Me.columnCountry_Code.MaxLength = 2 Me.columnClient_ID.AllowDBNull = False Me.columnClient_ID.MaxLength = 2 Me.columnYear.AllowDBNull = False Me.columnYear.MaxLength = 2 - 'Me.columnSample_Set_ID.AllowDBNull = False 'Me.columnSample_Set_ID.MaxLength = 2 - - Me.columnSample_Set_Index.AllowDBNull = False + 'Me.columnSample_Set_Index.AllowDBNull = False Me.columnSample_Set_Index.MaxLength = 1 Me.columnReceived_By.MaxLength = 25 End Sub - - + + _ Public Function Newtable_Sample_SetRow() As table_Sample_SetRow - Return CType(Me.NewRow, table_Sample_SetRow) + Return CType(Me.NewRow,table_Sample_SetRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_Sample_SetRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_Sample_SetRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_Sample_SetRowChangedEvent) Is Nothing) Then - RaiseEvent table_Sample_SetRowChanged(Me, New table_Sample_SetRowChangeEvent(CType(e.Row, table_Sample_SetRow), e.Action)) + RaiseEvent table_Sample_SetRowChanged(Me, New table_Sample_SetRowChangeEvent(CType(e.Row,table_Sample_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_Sample_SetRowChangingEvent) Is Nothing) Then - RaiseEvent table_Sample_SetRowChanging(Me, New table_Sample_SetRowChangeEvent(CType(e.Row, table_Sample_SetRow), e.Action)) + RaiseEvent table_Sample_SetRowChanging(Me, New table_Sample_SetRowChangeEvent(CType(e.Row,table_Sample_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_Sample_SetRowDeletedEvent) Is Nothing) Then - RaiseEvent table_Sample_SetRowDeleted(Me, New table_Sample_SetRowChangeEvent(CType(e.Row, table_Sample_SetRow), e.Action)) + RaiseEvent table_Sample_SetRowDeleted(Me, New table_Sample_SetRowChangeEvent(CType(e.Row,table_Sample_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_Sample_SetRowDeletingEvent) Is Nothing) Then - RaiseEvent table_Sample_SetRowDeleting(Me, New table_Sample_SetRowChangeEvent(CType(e.Row, table_Sample_SetRow), e.Action)) + RaiseEvent table_Sample_SetRowDeleting(Me, New table_Sample_SetRowChangeEvent(CType(e.Row,table_Sample_SetRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_Sample_SetRow(ByVal row As table_Sample_SetRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3376,28 +3374,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -3412,19 +3410,19 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_Sample_TypeDataTable Inherits Global.System.Data.TypedTableBase(Of table_Sample_TypeRow) - + Private columnSampleType As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Sample_Type" @@ -3432,9 +3430,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3450,158 +3448,158 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property SampleTypeColumn() As Global.System.Data.DataColumn Get Return Me.columnSampleType End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_Sample_TypeRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_Sample_TypeRow Get - Return CType(Me.Rows(index), table_Sample_TypeRow) + Return CType(Me.Rows(index),table_Sample_TypeRow) End Get End Property - - + + _ Public Event table_Sample_TypeRowChanging As table_Sample_TypeRowChangeEventHandler - - + + _ Public Event table_Sample_TypeRowChanged As table_Sample_TypeRowChangeEventHandler - - + + _ Public Event table_Sample_TypeRowDeleting As table_Sample_TypeRowChangeEventHandler - - + + _ Public Event table_Sample_TypeRowDeleted As table_Sample_TypeRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_Sample_TypeRow(ByVal row As table_Sample_TypeRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function Addtable_Sample_TypeRow(ByVal SampleType As String) As table_Sample_TypeRow - Dim rowtable_Sample_TypeRow As table_Sample_TypeRow = CType(Me.NewRow, table_Sample_TypeRow) + Dim rowtable_Sample_TypeRow As table_Sample_TypeRow = CType(Me.NewRow,table_Sample_TypeRow) Dim columnValuesArray() As Object = New Object() {SampleType} rowtable_Sample_TypeRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_Sample_TypeRow) Return rowtable_Sample_TypeRow End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_Sample_TypeDataTable = CType(MyBase.Clone, table_Sample_TypeDataTable) + Dim cln As table_Sample_TypeDataTable = CType(MyBase.Clone,table_Sample_TypeDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_Sample_TypeDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnSampleType = MyBase.Columns("SampleType") End Sub - - + + _ Private Sub InitClass() Me.columnSampleType = New Global.System.Data.DataColumn("SampleType", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSampleType) - Me.columnSampleType.AllowDBNull = False + Me.columnSampleType.AllowDBNull = false Me.columnSampleType.MaxLength = 15 End Sub - - + + _ Public Function Newtable_Sample_TypeRow() As table_Sample_TypeRow - Return CType(Me.NewRow, table_Sample_TypeRow) + Return CType(Me.NewRow,table_Sample_TypeRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_Sample_TypeRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_Sample_TypeRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_Sample_TypeRowChangedEvent) Is Nothing) Then - RaiseEvent table_Sample_TypeRowChanged(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row, table_Sample_TypeRow), e.Action)) + RaiseEvent table_Sample_TypeRowChanged(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row,table_Sample_TypeRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_Sample_TypeRowChangingEvent) Is Nothing) Then - RaiseEvent table_Sample_TypeRowChanging(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row, table_Sample_TypeRow), e.Action)) + RaiseEvent table_Sample_TypeRowChanging(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row,table_Sample_TypeRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_Sample_TypeRowDeletedEvent) Is Nothing) Then - RaiseEvent table_Sample_TypeRowDeleted(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row, table_Sample_TypeRow), e.Action)) + RaiseEvent table_Sample_TypeRowDeleted(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row,table_Sample_TypeRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_Sample_TypeRowDeletingEvent) Is Nothing) Then - RaiseEvent table_Sample_TypeRowDeleting(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row, table_Sample_TypeRow), e.Action)) + RaiseEvent table_Sample_TypeRowDeleting(Me, New table_Sample_TypeRowChangeEvent(CType(e.Row,table_Sample_TypeRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_Sample_TypeRow(ByVal row As table_Sample_TypeRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3630,28 +3628,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -3666,285 +3664,285 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_SampleDataTable Inherits Global.System.Data.TypedTableBase(Of table_SampleRow) - + Private columnF_Country_Code As Global.System.Data.DataColumn - + Private columnF_Client_ID As Global.System.Data.DataColumn - + Private columnF_Year As Global.System.Data.DataColumn - + Private columnF_Sample_Set_ID As Global.System.Data.DataColumn - + Private columnF_Sample_Set_Index As Global.System.Data.DataColumn - + Private columnA_Sample_ID As Global.System.Data.DataColumn - + Private columnA_Client_Sample_ID As Global.System.Data.DataColumn - + Private columnA_Sample_Type As Global.System.Data.DataColumn - + Private columnA_Sample_Subtype As Global.System.Data.DataColumn - + Private columnA_Collection_Place As Global.System.Data.DataColumn - + Private columnA_Latitude As Global.System.Data.DataColumn - + Private columnA_Longitude As Global.System.Data.DataColumn - + Private columnA_Cleaning_Plan As Global.System.Data.DataColumn - + Private columnA_Drying_Plan As Global.System.Data.DataColumn - + Private columnA_Evaporation_Plan As Global.System.Data.DataColumn - + Private columnA_Freeze_Drying_Plan As Global.System.Data.DataColumn - + Private columnA_Homogenizing_Plan As Global.System.Data.DataColumn - + Private columnA_Pelletization_Plan As Global.System.Data.DataColumn - + Private columnA_Fragmentation_Plan As Global.System.Data.DataColumn - + Private columnA_Determined_Elements As Global.System.Data.DataColumn - + Private columnA_Halogens_Plan As Global.System.Data.DataColumn - + Private columnA_Heavy_Metals_Plan As Global.System.Data.DataColumn - + Private columnA_Short_Lived_Plan As Global.System.Data.DataColumn - + Private columnA_Long_Lived_Plan As Global.System.Data.DataColumn - + Private columnA_F_Plan As Global.System.Data.DataColumn - + Private columnA_Na_Plan As Global.System.Data.DataColumn - + Private columnA_Mg_Plan As Global.System.Data.DataColumn - + Private columnA_Al_Plan As Global.System.Data.DataColumn - + Private columnA_Si_Plan As Global.System.Data.DataColumn - + Private columnA_S_Plan As Global.System.Data.DataColumn - + Private columnA_Cl_Plan As Global.System.Data.DataColumn - + Private columnA_K_Plan As Global.System.Data.DataColumn - + Private columnA_Ca_Plan As Global.System.Data.DataColumn - + Private columnA_Sc_Plan As Global.System.Data.DataColumn - + Private columnA_Ti_Plan As Global.System.Data.DataColumn - + Private columnA_V_Plan As Global.System.Data.DataColumn - + Private columnA_Cr_Plan As Global.System.Data.DataColumn - + Private columnA_Mn_Plan As Global.System.Data.DataColumn - + Private columnA_Fe_Plan As Global.System.Data.DataColumn - + Private columnA_Co_Plan As Global.System.Data.DataColumn - + Private columnA_Cu_Plan As Global.System.Data.DataColumn - + Private columnA_Zn_Plan As Global.System.Data.DataColumn - + Private columnA_Ga_Plan As Global.System.Data.DataColumn - + Private columnA_As_Plan As Global.System.Data.DataColumn - + Private columnA_Se_Plan As Global.System.Data.DataColumn - + Private columnA_Br_Plan As Global.System.Data.DataColumn - + Private columnA_Rb_Plan As Global.System.Data.DataColumn - + Private columnA_Sr_Plan As Global.System.Data.DataColumn - + Private columnA_Y_Plan As Global.System.Data.DataColumn - + Private columnA_Zr_Plan As Global.System.Data.DataColumn - + Private columnA_Nb_Plan As Global.System.Data.DataColumn - + Private columnA_Mo_Plan As Global.System.Data.DataColumn - + Private columnA_Ru_Plan As Global.System.Data.DataColumn - + Private columnA_Ag_Plan As Global.System.Data.DataColumn - + Private columnA_Cd_Plan As Global.System.Data.DataColumn - + Private columnA_In_Plan As Global.System.Data.DataColumn - + Private columnA_Sn_Plan As Global.System.Data.DataColumn - + Private columnA_Sb_Plan As Global.System.Data.DataColumn - + Private columnA_I_Plan As Global.System.Data.DataColumn - + Private columnA_Cs_Plan As Global.System.Data.DataColumn - + Private columnA_Ba_Plan As Global.System.Data.DataColumn - + Private columnA_La_Plan As Global.System.Data.DataColumn - + Private columnA_Ce_Plan As Global.System.Data.DataColumn - + Private columnA_Nd_Plan As Global.System.Data.DataColumn - + Private columnA_Sm_Plan As Global.System.Data.DataColumn - + Private columnA_Eu_Plan As Global.System.Data.DataColumn - + Private columnA_Gd_Plan As Global.System.Data.DataColumn - + Private columnA_Tb_Plan As Global.System.Data.DataColumn - + Private columnA_Dy_Plan As Global.System.Data.DataColumn - + Private columnA_Er_Plan As Global.System.Data.DataColumn - + Private columnA_Tm_Plan As Global.System.Data.DataColumn - + Private columnA_Yb_Plan As Global.System.Data.DataColumn - + Private columnA_Lu_Plan As Global.System.Data.DataColumn - + Private columnA_Hf_Plan As Global.System.Data.DataColumn - + Private columnA_Ta_Plan As Global.System.Data.DataColumn - + Private columnA_W_Plan As Global.System.Data.DataColumn - + Private columnA_Re_Plan As Global.System.Data.DataColumn - + Private columnA_Ir_Plan As Global.System.Data.DataColumn - + Private columnA_Pt_Plan As Global.System.Data.DataColumn - + Private columnA_Au_Plan As Global.System.Data.DataColumn - + Private columnA_Hg_Plan As Global.System.Data.DataColumn - + Private columnA_Th_Plan As Global.System.Data.DataColumn - + Private columnA_U_Plan As Global.System.Data.DataColumn - + Private columnA_Cupboard_Number As Global.System.Data.DataColumn - + Private columnA_Box_Number As Global.System.Data.DataColumn - + Private columnA_Received_By As Global.System.Data.DataColumn - + Private columnA_Notes As Global.System.Data.DataColumn - + Private columnP_Cleaning_Fact As Global.System.Data.DataColumn - + Private columnP_Drying_Fact As Global.System.Data.DataColumn - + Private columnP_Evaporation_Fact As Global.System.Data.DataColumn - + Private columnP_Freeze_Drying_Fact As Global.System.Data.DataColumn - + Private columnP_Homogenizing_Fact As Global.System.Data.DataColumn - + Private columnP_Pelletization_Fact As Global.System.Data.DataColumn - + Private columnP_Fragmentation_Fact As Global.System.Data.DataColumn - + Private columnP_Weighting_SLI As Global.System.Data.DataColumn - + Private columnP_Weighting_LLI As Global.System.Data.DataColumn - + Private columnP_Date_Sample_Preparation As Global.System.Data.DataColumn - + Private columnP_Maked_By As Global.System.Data.DataColumn - + Private columnI_SLI_Time_Start As Global.System.Data.DataColumn - + Private columnI_SLI_Channel_Irradiation As Global.System.Data.DataColumn - + Private columnI_SLI_File_First As Global.System.Data.DataColumn - + Private columnI_SLI_Irradiated_By As Global.System.Data.DataColumn - + Private columnI_LLI_1_Irradiation_Fact As Global.System.Data.DataColumn - + Private columnI_LLI_1_Date_Start As Global.System.Data.DataColumn - + Private columnI_LLI_1_Time_Start As Global.System.Data.DataColumn - + Private columnI_LLI_1_Date_Finish As Global.System.Data.DataColumn - + Private columnI_LLI_1_Time_Finish As Global.System.Data.DataColumn - + Private columnI_LLI_1_Channel_Irradiation As Global.System.Data.DataColumn - + Private columnI_LLI_1_Detector_Number As Global.System.Data.DataColumn - + Private columnI_LLI_1_File_First As Global.System.Data.DataColumn - + Private columnI_LLI_1_File_Last As Global.System.Data.DataColumn - + Private columnI_LLI_1_Irradiated_By As Global.System.Data.DataColumn - + Private columnI_LLI_1_Irradiation_Log As Global.System.Data.DataColumn - + Private columnI_LLI_2_Irradiation_Fact As Global.System.Data.DataColumn - + Private columnI_LLI_2_Date_Start As Global.System.Data.DataColumn - + Private columnI_LLI_2_Time_Start As Global.System.Data.DataColumn - + Private columnI_LLI_2_Date_Finish As Global.System.Data.DataColumn - + Private columnI_LLI_2_Time_Finish As Global.System.Data.DataColumn - + Private columnI_LLI_2_Channel_Irradiation As Global.System.Data.DataColumn - + Private columnI_LLI_2_Detector_Number As Global.System.Data.DataColumn - + Private columnI_LLI_2_File_First As Global.System.Data.DataColumn - + Private columnI_LLI_2_File_Last As Global.System.Data.DataColumn - + Private columnI_LLI_2_Irradiated_By As Global.System.Data.DataColumn - + Private columnI_LLI_2_Irradiation_Log As Global.System.Data.DataColumn - + Private columnI_SLI_Date As Global.System.Data.DataColumn - + Private columnI_SLI_Duration As Global.System.Data.DataColumn - + Private columnI_SLI_Irradiation_Log_Number As Global.System.Data.DataColumn - + Private columnI_SLI_Measured_By As Global.System.Data.DataColumn - + Private columnI_SLI_Detector_1 As Global.System.Data.DataColumn - + Private columnI_SLI_Detector_2 As Global.System.Data.DataColumn - + Private columnI_SLI_Detector_3 As Global.System.Data.DataColumn - + Private columnI_SLI_Detector_4 As Global.System.Data.DataColumn - + Private columnI_SLI_File_Last As Global.System.Data.DataColumn - + Private columnI_SLI_Duration1 As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Sample" @@ -3952,9 +3950,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3970,1281 +3968,1281 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property F_Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Country_Code End Get End Property - - + + _ Public ReadOnly Property F_Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Client_ID End Get End Property - - + + _ Public ReadOnly Property F_YearColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Year End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_ID End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_Index End Get End Property - - + + _ Public ReadOnly Property A_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sample_ID End Get End Property - - + + _ Public ReadOnly Property A_Client_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Client_Sample_ID End Get End Property - - + + _ Public ReadOnly Property A_Sample_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sample_Type End Get End Property - - + + _ Public ReadOnly Property A_Sample_SubtypeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sample_Subtype End Get End Property - - + + _ Public ReadOnly Property A_Collection_PlaceColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Collection_Place End Get End Property - - + + _ Public ReadOnly Property A_LatitudeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Latitude End Get End Property - - + + _ Public ReadOnly Property A_LongitudeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Longitude End Get End Property - - + + _ Public ReadOnly Property A_Cleaning_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cleaning_Plan End Get End Property - - + + _ Public ReadOnly Property A_Drying_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Drying_Plan End Get End Property - - + + _ Public ReadOnly Property A_Evaporation_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Evaporation_Plan End Get End Property - - + + _ Public ReadOnly Property A_Freeze_Drying_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Freeze_Drying_Plan End Get End Property - - + + _ Public ReadOnly Property A_Homogenizing_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Homogenizing_Plan End Get End Property - - + + _ Public ReadOnly Property A_Pelletization_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Pelletization_Plan End Get End Property - - + + _ Public ReadOnly Property A_Fragmentation_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Fragmentation_Plan End Get End Property - - + + _ Public ReadOnly Property A_Determined_ElementsColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Determined_Elements End Get End Property - - + + _ Public ReadOnly Property A_Halogens_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Halogens_Plan End Get End Property - - + + _ Public ReadOnly Property A_Heavy_Metals_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Heavy_Metals_Plan End Get End Property - - + + _ Public ReadOnly Property A_Short_Lived_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Short_Lived_Plan End Get End Property - - + + _ Public ReadOnly Property A_Long_Lived_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Long_Lived_Plan End Get End Property - - + + _ Public ReadOnly Property A_F_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_F_Plan End Get End Property - - + + _ Public ReadOnly Property A_Na_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Na_Plan End Get End Property - - + + _ Public ReadOnly Property A_Mg_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Mg_Plan End Get End Property - - + + _ Public ReadOnly Property A_Al_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Al_Plan End Get End Property - - + + _ Public ReadOnly Property A_Si_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Si_Plan End Get End Property - - + + _ Public ReadOnly Property A_S_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_S_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cl_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cl_Plan End Get End Property - - + + _ Public ReadOnly Property A_K_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_K_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ca_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ca_Plan End Get End Property - - + + _ Public ReadOnly Property A_Sc_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sc_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ti_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ti_Plan End Get End Property - - + + _ Public ReadOnly Property A_V_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_V_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cr_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cr_Plan End Get End Property - - + + _ Public ReadOnly Property A_Mn_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Mn_Plan End Get End Property - - + + _ Public ReadOnly Property A_Fe_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Fe_Plan End Get End Property - - + + _ Public ReadOnly Property A_Co_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Co_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cu_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cu_Plan End Get End Property - - + + _ Public ReadOnly Property A_Zn_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Zn_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ga_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ga_Plan End Get End Property - - + + _ Public ReadOnly Property A_As_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_As_Plan End Get End Property - - + + _ Public ReadOnly Property A_Se_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Se_Plan End Get End Property - - + + _ Public ReadOnly Property A_Br_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Br_Plan End Get End Property - - + + _ Public ReadOnly Property A_Rb_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Rb_Plan End Get End Property - - + + _ Public ReadOnly Property A_Sr_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sr_Plan End Get End Property - - + + _ Public ReadOnly Property A_Y_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Y_Plan End Get End Property - - + + _ Public ReadOnly Property A_Zr_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Zr_Plan End Get End Property - - + + _ Public ReadOnly Property A_Nb_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Nb_Plan End Get End Property - - + + _ Public ReadOnly Property A_Mo_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Mo_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ru_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ru_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ag_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ag_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cd_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cd_Plan End Get End Property - - + + _ Public ReadOnly Property A_In_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_In_Plan End Get End Property - - + + _ Public ReadOnly Property A_Sn_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sn_Plan End Get End Property - - + + _ Public ReadOnly Property A_Sb_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sb_Plan End Get End Property - - + + _ Public ReadOnly Property A_I_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_I_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cs_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cs_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ba_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ba_Plan End Get End Property - - + + _ Public ReadOnly Property A_La_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_La_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ce_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ce_Plan End Get End Property - - + + _ Public ReadOnly Property A_Nd_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Nd_Plan End Get End Property - - + + _ Public ReadOnly Property A_Sm_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sm_Plan End Get End Property - - + + _ Public ReadOnly Property A_Eu_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Eu_Plan End Get End Property - - + + _ Public ReadOnly Property A_Gd_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Gd_Plan End Get End Property - - + + _ Public ReadOnly Property A_Tb_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Tb_Plan End Get End Property - - + + _ Public ReadOnly Property A_Dy_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Dy_Plan End Get End Property - - + + _ Public ReadOnly Property A_Er_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Er_Plan End Get End Property - - + + _ Public ReadOnly Property A_Tm_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Tm_Plan End Get End Property - - + + _ Public ReadOnly Property A_Yb_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Yb_Plan End Get End Property - - + + _ Public ReadOnly Property A_Lu_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Lu_Plan End Get End Property - - + + _ Public ReadOnly Property A_Hf_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Hf_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ta_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ta_Plan End Get End Property - - + + _ Public ReadOnly Property A_W_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_W_Plan End Get End Property - - + + _ Public ReadOnly Property A_Re_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Re_Plan End Get End Property - - + + _ Public ReadOnly Property A_Ir_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Ir_Plan End Get End Property - - + + _ Public ReadOnly Property A_Pt_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Pt_Plan End Get End Property - - + + _ Public ReadOnly Property A_Au_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Au_Plan End Get End Property - - + + _ Public ReadOnly Property A_Hg_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Hg_Plan End Get End Property - - + + _ Public ReadOnly Property A_Th_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Th_Plan End Get End Property - - + + _ Public ReadOnly Property A_U_PlanColumn() As Global.System.Data.DataColumn Get Return Me.columnA_U_Plan End Get End Property - - + + _ Public ReadOnly Property A_Cupboard_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Cupboard_Number End Get End Property - - + + _ Public ReadOnly Property A_Box_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Box_Number End Get End Property - - + + _ Public ReadOnly Property A_Received_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Received_By End Get End Property - - + + _ Public ReadOnly Property A_NotesColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Notes End Get End Property - - + + _ Public ReadOnly Property P_Cleaning_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Cleaning_Fact End Get End Property - - + + _ Public ReadOnly Property P_Drying_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Drying_Fact End Get End Property - - + + _ Public ReadOnly Property P_Evaporation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Evaporation_Fact End Get End Property - - + + _ Public ReadOnly Property P_Freeze_Drying_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Freeze_Drying_Fact End Get End Property - - + + _ Public ReadOnly Property P_Homogenizing_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Homogenizing_Fact End Get End Property - - + + _ Public ReadOnly Property P_Pelletization_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Pelletization_Fact End Get End Property - - + + _ Public ReadOnly Property P_Fragmentation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Fragmentation_Fact End Get End Property - - + + _ Public ReadOnly Property P_Weighting_SLIColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Weighting_SLI End Get End Property - - + + _ Public ReadOnly Property P_Weighting_LLIColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Weighting_LLI End Get End Property - - + + _ Public ReadOnly Property P_Date_Sample_PreparationColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Date_Sample_Preparation End Get End Property - - + + _ Public ReadOnly Property P_Maked_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Maked_By End Get End Property - - + + _ Public ReadOnly Property I_SLI_Time_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Time_Start End Get End Property - - + + _ Public ReadOnly Property I_SLI_Channel_IrradiationColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Channel_Irradiation End Get End Property - - + + _ Public ReadOnly Property I_SLI_File_FirstColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_File_First End Get End Property - - + + _ Public ReadOnly Property I_SLI_Irradiated_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Irradiated_By End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Irradiation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Irradiation_Fact End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Date_Start End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Time_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Time_Start End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Date_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Date_Finish End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Time_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Time_Finish End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Channel_IrradiationColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Channel_Irradiation End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Detector_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Detector_Number End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_File_FirstColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_File_First End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_File_LastColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_File_Last End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Irradiated_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Irradiated_By End Get End Property - - + + _ Public ReadOnly Property I_LLI_1_Irradiation_LogColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_1_Irradiation_Log End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Irradiation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Irradiation_Fact End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Date_Start End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Time_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Time_Start End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Date_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Date_Finish End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Time_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Time_Finish End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Channel_IrradiationColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Channel_Irradiation End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Detector_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Detector_Number End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_File_FirstColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_File_First End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_File_LastColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_File_Last End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Irradiated_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Irradiated_By End Get End Property - - + + _ Public ReadOnly Property I_LLI_2_Irradiation_LogColumn() As Global.System.Data.DataColumn Get Return Me.columnI_LLI_2_Irradiation_Log End Get End Property - - + + _ Public ReadOnly Property I_SLI_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Date End Get End Property - - + + _ Public ReadOnly Property I_SLI_DurationColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Duration End Get End Property - - + + _ Public ReadOnly Property I_SLI_Irradiation_Log_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Irradiation_Log_Number End Get End Property - - + + _ Public ReadOnly Property I_SLI_Measured_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Measured_By End Get End Property - - + + _ Public ReadOnly Property I_SLI_Detector_1Column() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Detector_1 End Get End Property - - + + _ Public ReadOnly Property I_SLI_Detector_2Column() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Detector_2 End Get End Property - - + + _ Public ReadOnly Property I_SLI_Detector_3Column() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Detector_3 End Get End Property - - + + _ Public ReadOnly Property I_SLI_Detector_4Column() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Detector_4 End Get End Property - - + + _ Public ReadOnly Property I_SLI_File_LastColumn() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_File_Last End Get End Property - - + + _ Public ReadOnly Property I_SLI_Duration1Column() As Global.System.Data.DataColumn Get Return Me.columnI_SLI_Duration1 End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_SampleRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_SampleRow Get - Return CType(Me.Rows(index), table_SampleRow) + Return CType(Me.Rows(index),table_SampleRow) End Get End Property - - + + _ Public Event table_SampleRowChanging As table_SampleRowChangeEventHandler - - + + _ Public Event table_SampleRowChanged As table_SampleRowChangeEventHandler - - + + _ Public Event table_SampleRowDeleting As table_SampleRowChangeEventHandler - - + + _ Public Event table_SampleRowDeleted As table_SampleRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_SampleRow(ByVal row As table_SampleRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_SampleRow( - ByVal F_Country_Code As String, - ByVal F_Client_ID As String, - ByVal F_Year As String, - ByVal F_Sample_Set_ID As String, - ByVal F_Sample_Set_Index As String, - ByVal A_Sample_ID As String, - ByVal A_Client_Sample_ID As String, - ByVal A_Sample_Type As String, - ByVal A_Sample_Subtype As String, - ByVal A_Collection_Place As String, - ByVal A_Latitude As String, - ByVal A_Longitude As String, - ByVal A_Cleaning_Plan As Boolean, - ByVal A_Drying_Plan As Boolean, - ByVal A_Evaporation_Plan As Boolean, - ByVal A_Freeze_Drying_Plan As Boolean, - ByVal A_Homogenizing_Plan As Boolean, - ByVal A_Pelletization_Plan As Boolean, - ByVal A_Fragmentation_Plan As Boolean, - ByVal A_Determined_Elements As String, - ByVal A_Halogens_Plan As Boolean, - ByVal A_Heavy_Metals_Plan As Boolean, - ByVal A_Short_Lived_Plan As Boolean, - ByVal A_Long_Lived_Plan As Boolean, - ByVal A_F_Plan As Boolean, - ByVal A_Na_Plan As Boolean, - ByVal A_Mg_Plan As Boolean, - ByVal A_Al_Plan As Boolean, - ByVal A_Si_Plan As Boolean, - ByVal A_S_Plan As Boolean, - ByVal A_Cl_Plan As Boolean, - ByVal A_K_Plan As Boolean, - ByVal A_Ca_Plan As Boolean, - ByVal A_Sc_Plan As Boolean, - ByVal A_Ti_Plan As Boolean, - ByVal A_V_Plan As Boolean, - ByVal A_Cr_Plan As Boolean, - ByVal A_Mn_Plan As Boolean, - ByVal A_Fe_Plan As Boolean, - ByVal A_Co_Plan As Boolean, - ByVal A_Cu_Plan As Boolean, - ByVal A_Zn_Plan As Boolean, - ByVal A_Ga_Plan As Boolean, - ByVal A_As_Plan As Boolean, - ByVal A_Se_Plan As Boolean, - ByVal A_Br_Plan As Boolean, - ByVal A_Rb_Plan As Boolean, - ByVal A_Sr_Plan As Boolean, - ByVal A_Y_Plan As Boolean, - ByVal A_Zr_Plan As Boolean, - ByVal A_Nb_Plan As Boolean, - ByVal A_Mo_Plan As Boolean, - ByVal A_Ru_Plan As Boolean, - ByVal A_Ag_Plan As Boolean, - ByVal A_Cd_Plan As Boolean, - ByVal A_In_Plan As Boolean, - ByVal A_Sn_Plan As Boolean, - ByVal A_Sb_Plan As Boolean, - ByVal A_I_Plan As Boolean, - ByVal A_Cs_Plan As Boolean, - ByVal A_Ba_Plan As Boolean, - ByVal A_La_Plan As Boolean, - ByVal A_Ce_Plan As Boolean, - ByVal A_Nd_Plan As Boolean, - ByVal A_Sm_Plan As Boolean, - ByVal A_Eu_Plan As Boolean, - ByVal A_Gd_Plan As Boolean, - ByVal A_Tb_Plan As Boolean, - ByVal A_Dy_Plan As Boolean, - ByVal A_Er_Plan As Boolean, - ByVal A_Tm_Plan As Boolean, - ByVal A_Yb_Plan As Boolean, - ByVal A_Lu_Plan As Boolean, - ByVal A_Hf_Plan As Boolean, - ByVal A_Ta_Plan As Boolean, - ByVal A_W_Plan As Boolean, - ByVal A_Re_Plan As Boolean, - ByVal A_Ir_Plan As Boolean, - ByVal A_Pt_Plan As Boolean, - ByVal A_Au_Plan As Boolean, - ByVal A_Hg_Plan As Boolean, - ByVal A_Th_Plan As Boolean, - ByVal A_U_Plan As Boolean, - ByVal A_Cupboard_Number As String, - ByVal A_Box_Number As String, - ByVal A_Received_By As String, - ByVal A_Notes As String, - ByVal P_Cleaning_Fact As Boolean, - ByVal P_Drying_Fact As Boolean, - ByVal P_Evaporation_Fact As Boolean, - ByVal P_Freeze_Drying_Fact As Boolean, - ByVal P_Homogenizing_Fact As Boolean, - ByVal P_Pelletization_Fact As Boolean, - ByVal P_Fragmentation_Fact As Boolean, - ByVal P_Weighting_SLI As Single, - ByVal P_Weighting_LLI As Single, - ByVal P_Date_Sample_Preparation As Date, - ByVal P_Maked_By As String, - ByVal I_SLI_Time_Start As System.TimeSpan, - ByVal I_SLI_Channel_Irradiation As String, - ByVal I_SLI_File_First As String, - ByVal I_SLI_Irradiated_By As String, - ByVal I_LLI_1_Irradiation_Fact As Boolean, - ByVal I_LLI_1_Date_Start As Date, - ByVal I_LLI_1_Time_Start As System.TimeSpan, - ByVal I_LLI_1_Date_Finish As Date, - ByVal I_LLI_1_Time_Finish As System.TimeSpan, - ByVal I_LLI_1_Channel_Irradiation As String, - ByVal I_LLI_1_Detector_Number As String, - ByVal I_LLI_1_File_First As String, - ByVal I_LLI_1_File_Last As String, - ByVal I_LLI_1_Irradiated_By As String, - ByVal I_LLI_1_Irradiation_Log As Date, - ByVal I_LLI_2_Irradiation_Fact As Boolean, - ByVal I_LLI_2_Date_Start As Date, - ByVal I_LLI_2_Time_Start As System.TimeSpan, - ByVal I_LLI_2_Date_Finish As Date, - ByVal I_LLI_2_Time_Finish As System.TimeSpan, - ByVal I_LLI_2_Channel_Irradiation As String, - ByVal I_LLI_2_Detector_Number As String, - ByVal I_LLI_2_File_First As String, - ByVal I_LLI_2_File_Last As String, - ByVal I_LLI_2_Irradiated_By As String, - ByVal I_LLI_2_Irradiation_Log As Date, - ByVal I_SLI_Date As Date, - ByVal I_SLI_Duration As System.TimeSpan, - ByVal I_SLI_Irradiation_Log_Number As Date, - ByVal I_SLI_Measured_By As String, - ByVal I_SLI_Detector_1 As Boolean, - ByVal I_SLI_Detector_2 As Boolean, - ByVal I_SLI_Detector_3 As Boolean, - ByVal I_SLI_Detector_4 As Boolean, - ByVal I_SLI_File_Last As String, + + _ + Public Overloads Function Addtable_SampleRow( _ + ByVal F_Country_Code As String, _ + ByVal F_Client_ID As String, _ + ByVal F_Year As String, _ + ByVal F_Sample_Set_ID As String, _ + ByVal F_Sample_Set_Index As String, _ + ByVal A_Sample_ID As String, _ + ByVal A_Client_Sample_ID As String, _ + ByVal A_Sample_Type As String, _ + ByVal A_Sample_Subtype As String, _ + ByVal A_Collection_Place As String, _ + ByVal A_Latitude As String, _ + ByVal A_Longitude As String, _ + ByVal A_Cleaning_Plan As Boolean, _ + ByVal A_Drying_Plan As Boolean, _ + ByVal A_Evaporation_Plan As Boolean, _ + ByVal A_Freeze_Drying_Plan As Boolean, _ + ByVal A_Homogenizing_Plan As Boolean, _ + ByVal A_Pelletization_Plan As Boolean, _ + ByVal A_Fragmentation_Plan As Boolean, _ + ByVal A_Determined_Elements As String, _ + ByVal A_Halogens_Plan As Boolean, _ + ByVal A_Heavy_Metals_Plan As Boolean, _ + ByVal A_Short_Lived_Plan As Boolean, _ + ByVal A_Long_Lived_Plan As Boolean, _ + ByVal A_F_Plan As Boolean, _ + ByVal A_Na_Plan As Boolean, _ + ByVal A_Mg_Plan As Boolean, _ + ByVal A_Al_Plan As Boolean, _ + ByVal A_Si_Plan As Boolean, _ + ByVal A_S_Plan As Boolean, _ + ByVal A_Cl_Plan As Boolean, _ + ByVal A_K_Plan As Boolean, _ + ByVal A_Ca_Plan As Boolean, _ + ByVal A_Sc_Plan As Boolean, _ + ByVal A_Ti_Plan As Boolean, _ + ByVal A_V_Plan As Boolean, _ + ByVal A_Cr_Plan As Boolean, _ + ByVal A_Mn_Plan As Boolean, _ + ByVal A_Fe_Plan As Boolean, _ + ByVal A_Co_Plan As Boolean, _ + ByVal A_Cu_Plan As Boolean, _ + ByVal A_Zn_Plan As Boolean, _ + ByVal A_Ga_Plan As Boolean, _ + ByVal A_As_Plan As Boolean, _ + ByVal A_Se_Plan As Boolean, _ + ByVal A_Br_Plan As Boolean, _ + ByVal A_Rb_Plan As Boolean, _ + ByVal A_Sr_Plan As Boolean, _ + ByVal A_Y_Plan As Boolean, _ + ByVal A_Zr_Plan As Boolean, _ + ByVal A_Nb_Plan As Boolean, _ + ByVal A_Mo_Plan As Boolean, _ + ByVal A_Ru_Plan As Boolean, _ + ByVal A_Ag_Plan As Boolean, _ + ByVal A_Cd_Plan As Boolean, _ + ByVal A_In_Plan As Boolean, _ + ByVal A_Sn_Plan As Boolean, _ + ByVal A_Sb_Plan As Boolean, _ + ByVal A_I_Plan As Boolean, _ + ByVal A_Cs_Plan As Boolean, _ + ByVal A_Ba_Plan As Boolean, _ + ByVal A_La_Plan As Boolean, _ + ByVal A_Ce_Plan As Boolean, _ + ByVal A_Nd_Plan As Boolean, _ + ByVal A_Sm_Plan As Boolean, _ + ByVal A_Eu_Plan As Boolean, _ + ByVal A_Gd_Plan As Boolean, _ + ByVal A_Tb_Plan As Boolean, _ + ByVal A_Dy_Plan As Boolean, _ + ByVal A_Er_Plan As Boolean, _ + ByVal A_Tm_Plan As Boolean, _ + ByVal A_Yb_Plan As Boolean, _ + ByVal A_Lu_Plan As Boolean, _ + ByVal A_Hf_Plan As Boolean, _ + ByVal A_Ta_Plan As Boolean, _ + ByVal A_W_Plan As Boolean, _ + ByVal A_Re_Plan As Boolean, _ + ByVal A_Ir_Plan As Boolean, _ + ByVal A_Pt_Plan As Boolean, _ + ByVal A_Au_Plan As Boolean, _ + ByVal A_Hg_Plan As Boolean, _ + ByVal A_Th_Plan As Boolean, _ + ByVal A_U_Plan As Boolean, _ + ByVal A_Cupboard_Number As String, _ + ByVal A_Box_Number As String, _ + ByVal A_Received_By As String, _ + ByVal A_Notes As String, _ + ByVal P_Cleaning_Fact As Boolean, _ + ByVal P_Drying_Fact As Boolean, _ + ByVal P_Evaporation_Fact As Boolean, _ + ByVal P_Freeze_Drying_Fact As Boolean, _ + ByVal P_Homogenizing_Fact As Boolean, _ + ByVal P_Pelletization_Fact As Boolean, _ + ByVal P_Fragmentation_Fact As Boolean, _ + ByVal P_Weighting_SLI As Single, _ + ByVal P_Weighting_LLI As Single, _ + ByVal P_Date_Sample_Preparation As Date, _ + ByVal P_Maked_By As String, _ + ByVal I_SLI_Time_Start As System.TimeSpan, _ + ByVal I_SLI_Channel_Irradiation As String, _ + ByVal I_SLI_File_First As String, _ + ByVal I_SLI_Irradiated_By As String, _ + ByVal I_LLI_1_Irradiation_Fact As Boolean, _ + ByVal I_LLI_1_Date_Start As Date, _ + ByVal I_LLI_1_Time_Start As System.TimeSpan, _ + ByVal I_LLI_1_Date_Finish As Date, _ + ByVal I_LLI_1_Time_Finish As System.TimeSpan, _ + ByVal I_LLI_1_Channel_Irradiation As String, _ + ByVal I_LLI_1_Detector_Number As String, _ + ByVal I_LLI_1_File_First As String, _ + ByVal I_LLI_1_File_Last As String, _ + ByVal I_LLI_1_Irradiated_By As String, _ + ByVal I_LLI_1_Irradiation_Log As Date, _ + ByVal I_LLI_2_Irradiation_Fact As Boolean, _ + ByVal I_LLI_2_Date_Start As Date, _ + ByVal I_LLI_2_Time_Start As System.TimeSpan, _ + ByVal I_LLI_2_Date_Finish As Date, _ + ByVal I_LLI_2_Time_Finish As System.TimeSpan, _ + ByVal I_LLI_2_Channel_Irradiation As String, _ + ByVal I_LLI_2_Detector_Number As String, _ + ByVal I_LLI_2_File_First As String, _ + ByVal I_LLI_2_File_Last As String, _ + ByVal I_LLI_2_Irradiated_By As String, _ + ByVal I_LLI_2_Irradiation_Log As Date, _ + ByVal I_SLI_Date As Date, _ + ByVal I_SLI_Duration As System.TimeSpan, _ + ByVal I_SLI_Irradiation_Log_Number As Date, _ + ByVal I_SLI_Measured_By As String, _ + ByVal I_SLI_Detector_1 As Boolean, _ + ByVal I_SLI_Detector_2 As Boolean, _ + ByVal I_SLI_Detector_3 As Boolean, _ + ByVal I_SLI_Detector_4 As Boolean, _ + ByVal I_SLI_File_Last As String, _ ByVal I_SLI_Duration1 As Integer) As table_SampleRow - Dim rowtable_SampleRow As table_SampleRow = CType(Me.NewRow, table_SampleRow) + Dim rowtable_SampleRow As table_SampleRow = CType(Me.NewRow,table_SampleRow) Dim columnValuesArray() As Object = New Object() {F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index, A_Sample_ID, A_Client_Sample_ID, A_Sample_Type, A_Sample_Subtype, A_Collection_Place, A_Latitude, A_Longitude, A_Cleaning_Plan, A_Drying_Plan, A_Evaporation_Plan, A_Freeze_Drying_Plan, A_Homogenizing_Plan, A_Pelletization_Plan, A_Fragmentation_Plan, A_Determined_Elements, A_Halogens_Plan, A_Heavy_Metals_Plan, A_Short_Lived_Plan, A_Long_Lived_Plan, A_F_Plan, A_Na_Plan, A_Mg_Plan, A_Al_Plan, A_Si_Plan, A_S_Plan, A_Cl_Plan, A_K_Plan, A_Ca_Plan, A_Sc_Plan, A_Ti_Plan, A_V_Plan, A_Cr_Plan, A_Mn_Plan, A_Fe_Plan, A_Co_Plan, A_Cu_Plan, A_Zn_Plan, A_Ga_Plan, A_As_Plan, A_Se_Plan, A_Br_Plan, A_Rb_Plan, A_Sr_Plan, A_Y_Plan, A_Zr_Plan, A_Nb_Plan, A_Mo_Plan, A_Ru_Plan, A_Ag_Plan, A_Cd_Plan, A_In_Plan, A_Sn_Plan, A_Sb_Plan, A_I_Plan, A_Cs_Plan, A_Ba_Plan, A_La_Plan, A_Ce_Plan, A_Nd_Plan, A_Sm_Plan, A_Eu_Plan, A_Gd_Plan, A_Tb_Plan, A_Dy_Plan, A_Er_Plan, A_Tm_Plan, A_Yb_Plan, A_Lu_Plan, A_Hf_Plan, A_Ta_Plan, A_W_Plan, A_Re_Plan, A_Ir_Plan, A_Pt_Plan, A_Au_Plan, A_Hg_Plan, A_Th_Plan, A_U_Plan, A_Cupboard_Number, A_Box_Number, A_Received_By, A_Notes, P_Cleaning_Fact, P_Drying_Fact, P_Evaporation_Fact, P_Freeze_Drying_Fact, P_Homogenizing_Fact, P_Pelletization_Fact, P_Fragmentation_Fact, P_Weighting_SLI, P_Weighting_LLI, P_Date_Sample_Preparation, P_Maked_By, I_SLI_Time_Start, I_SLI_Channel_Irradiation, I_SLI_File_First, I_SLI_Irradiated_By, I_LLI_1_Irradiation_Fact, I_LLI_1_Date_Start, I_LLI_1_Time_Start, I_LLI_1_Date_Finish, I_LLI_1_Time_Finish, I_LLI_1_Channel_Irradiation, I_LLI_1_Detector_Number, I_LLI_1_File_First, I_LLI_1_File_Last, I_LLI_1_Irradiated_By, I_LLI_1_Irradiation_Log, I_LLI_2_Irradiation_Fact, I_LLI_2_Date_Start, I_LLI_2_Time_Start, I_LLI_2_Date_Finish, I_LLI_2_Time_Finish, I_LLI_2_Channel_Irradiation, I_LLI_2_Detector_Number, I_LLI_2_File_First, I_LLI_2_File_Last, I_LLI_2_Irradiated_By, I_LLI_2_Irradiation_Log, I_SLI_Date, I_SLI_Duration, I_SLI_Irradiation_Log_Number, I_SLI_Measured_By, I_SLI_Detector_1, I_SLI_Detector_2, I_SLI_Detector_3, I_SLI_Detector_4, I_SLI_File_Last, I_SLI_Duration1} rowtable_SampleRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_SampleRow) Return rowtable_SampleRow End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_SampleDataTable = CType(MyBase.Clone, table_SampleDataTable) + Dim cln As table_SampleDataTable = CType(MyBase.Clone,table_SampleDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_SampleDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnF_Country_Code = MyBase.Columns("F_Country_Code") Me.columnF_Client_ID = MyBase.Columns("F_Client_ID") @@ -5381,9 +5379,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnI_SLI_File_Last = MyBase.Columns("I_SLI_File_Last") Me.columnI_SLI_Duration1 = MyBase.Columns("I_SLI_Duration1") End Sub - - + + _ Private Sub InitClass() Me.columnF_Country_Code = New Global.System.Data.DataColumn("F_Country_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnF_Country_Code) @@ -5653,17 +5651,17 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnI_SLI_File_Last) Me.columnI_SLI_Duration1 = New Global.System.Data.DataColumn("I_SLI_Duration1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnI_SLI_Duration1) - Me.columnF_Country_Code.AllowDBNull = False + Me.columnF_Country_Code.AllowDBNull = false Me.columnF_Country_Code.MaxLength = 2 - Me.columnF_Client_ID.AllowDBNull = False + Me.columnF_Client_ID.AllowDBNull = false Me.columnF_Client_ID.MaxLength = 2 - Me.columnF_Year.AllowDBNull = False + Me.columnF_Year.AllowDBNull = false Me.columnF_Year.MaxLength = 2 - Me.columnF_Sample_Set_ID.AllowDBNull = False + Me.columnF_Sample_Set_ID.AllowDBNull = false Me.columnF_Sample_Set_ID.MaxLength = 2 - Me.columnF_Sample_Set_Index.AllowDBNull = False + Me.columnF_Sample_Set_Index.AllowDBNull = false Me.columnF_Sample_Set_Index.MaxLength = 1 - Me.columnA_Sample_ID.AllowDBNull = False + Me.columnA_Sample_ID.AllowDBNull = false Me.columnA_Sample_ID.MaxLength = 2 Me.columnA_Client_Sample_ID.MaxLength = 20 Me.columnA_Sample_Type.MaxLength = 25 @@ -5694,69 +5692,69 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnI_SLI_File_Last.MaxLength = 10 Me.columnI_SLI_Duration1.Caption = "I_SLI_Duration" End Sub - - + + _ Public Function Newtable_SampleRow() As table_SampleRow - Return CType(Me.NewRow, table_SampleRow) + Return CType(Me.NewRow,table_SampleRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_SampleRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_SampleRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_SampleRowChangedEvent) Is Nothing) Then - RaiseEvent table_SampleRowChanged(Me, New table_SampleRowChangeEvent(CType(e.Row, table_SampleRow), e.Action)) + RaiseEvent table_SampleRowChanged(Me, New table_SampleRowChangeEvent(CType(e.Row,table_SampleRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_SampleRowChangingEvent) Is Nothing) Then - RaiseEvent table_SampleRowChanging(Me, New table_SampleRowChangeEvent(CType(e.Row, table_SampleRow), e.Action)) + RaiseEvent table_SampleRowChanging(Me, New table_SampleRowChangeEvent(CType(e.Row,table_SampleRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_SampleRowDeletedEvent) Is Nothing) Then - RaiseEvent table_SampleRowDeleted(Me, New table_SampleRowChangeEvent(CType(e.Row, table_SampleRow), e.Action)) + RaiseEvent table_SampleRowDeleted(Me, New table_SampleRowChangeEvent(CType(e.Row,table_SampleRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_SampleRowDeletingEvent) Is Nothing) Then - RaiseEvent table_SampleRowDeleting(Me, New table_SampleRowChangeEvent(CType(e.Row, table_SampleRow), e.Action)) + RaiseEvent table_SampleRowDeleting(Me, New table_SampleRowChangeEvent(CType(e.Row,table_SampleRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_SampleRow(ByVal row As table_SampleRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -5785,28 +5783,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -5821,53 +5819,53 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_Sample_Sample_PreparationDataTable Inherits Global.System.Data.TypedTableBase(Of table_Sample_Sample_PreparationRow) - + Private columnA_Sample_ID As Global.System.Data.DataColumn - + Private columnA_Client_Sample_ID As Global.System.Data.DataColumn - + Private columnP_Cleaning_Fact As Global.System.Data.DataColumn - + Private columnP_Drying_Fact As Global.System.Data.DataColumn - + Private columnP_Evaporation_Fact As Global.System.Data.DataColumn - + Private columnP_Freeze_Drying_Fact As Global.System.Data.DataColumn - + Private columnP_Homogenizing_Fact As Global.System.Data.DataColumn - + Private columnP_Pelletization_Fact As Global.System.Data.DataColumn - + Private columnP_Fragmentation_Fact As Global.System.Data.DataColumn - + Private columnP_Weighting_SLI As Global.System.Data.DataColumn - + Private columnP_Weighting_LLI As Global.System.Data.DataColumn - + Private columnP_Date_Sample_Preparation As Global.System.Data.DataColumn - + Private columnP_Maked_By As Global.System.Data.DataColumn - + Private columnF_Country_Code As Global.System.Data.DataColumn - + Private columnF_Client_ID As Global.System.Data.DataColumn - + Private columnF_Year As Global.System.Data.DataColumn - + Private columnF_Sample_Set_ID As Global.System.Data.DataColumn - + Private columnF_Sample_Set_Index As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Sample_Sample_Preparation" @@ -5875,9 +5873,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -5893,243 +5891,243 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property A_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sample_ID End Get End Property - - + + _ Public ReadOnly Property A_Client_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Client_Sample_ID End Get End Property - - + + _ Public ReadOnly Property P_Cleaning_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Cleaning_Fact End Get End Property - - + + _ Public ReadOnly Property P_Drying_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Drying_Fact End Get End Property - - + + _ Public ReadOnly Property P_Evaporation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Evaporation_Fact End Get End Property - - + + _ Public ReadOnly Property P_Freeze_Drying_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Freeze_Drying_Fact End Get End Property - - - Public ReadOnly Property P_Homogenizing_FactColumn() As Global.System.Data.DataColumn - Get + + _ + Public ReadOnly Property P_Homogenizing_FactColumn() As Global.System.Data.DataColumn + Get Return Me.columnP_Homogenizing_Fact End Get End Property - - + + _ Public ReadOnly Property P_Pelletization_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Pelletization_Fact End Get End Property - - + + _ Public ReadOnly Property P_Fragmentation_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Fragmentation_Fact End Get End Property - - + + _ Public ReadOnly Property P_Weighting_SLIColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Weighting_SLI End Get End Property - - + + _ Public ReadOnly Property P_Weighting_LLIColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Weighting_LLI End Get End Property - - + + _ Public ReadOnly Property P_Date_Sample_PreparationColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Date_Sample_Preparation End Get End Property - - + + _ Public ReadOnly Property P_Maked_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnP_Maked_By End Get End Property - - + + _ Public ReadOnly Property F_Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Country_Code End Get End Property - - + + _ Public ReadOnly Property F_Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Client_ID End Get End Property - - + + _ Public ReadOnly Property F_YearColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Year End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_ID End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_Index End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_Sample_Sample_PreparationRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_Sample_Sample_PreparationRow Get - Return CType(Me.Rows(index), table_Sample_Sample_PreparationRow) + Return CType(Me.Rows(index),table_Sample_Sample_PreparationRow) End Get End Property - - + + _ Public Event table_Sample_Sample_PreparationRowChanging As table_Sample_Sample_PreparationRowChangeEventHandler - - + + _ Public Event table_Sample_Sample_PreparationRowChanged As table_Sample_Sample_PreparationRowChangeEventHandler - - + + _ Public Event table_Sample_Sample_PreparationRowDeleting As table_Sample_Sample_PreparationRowChangeEventHandler - - + + _ Public Event table_Sample_Sample_PreparationRowDeleted As table_Sample_Sample_PreparationRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_Sample_Sample_PreparationRow(ByVal row As table_Sample_Sample_PreparationRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_Sample_Sample_PreparationRow( - ByVal A_Sample_ID As String, - ByVal A_Client_Sample_ID As String, - ByVal P_Cleaning_Fact As Boolean, - ByVal P_Drying_Fact As Boolean, - ByVal P_Evaporation_Fact As Boolean, - ByVal P_Freeze_Drying_Fact As Boolean, - ByVal P_Homogenizing_Fact As Boolean, - ByVal P_Pelletization_Fact As Boolean, - ByVal P_Fragmentation_Fact As Boolean, - ByVal P_Weighting_SLI As Single, - ByVal P_Weighting_LLI As Single, - ByVal P_Date_Sample_Preparation As Date, - ByVal P_Maked_By As String, - ByVal F_Country_Code As String, - ByVal F_Client_ID As String, - ByVal F_Year As String, - ByVal F_Sample_Set_ID As String, + + _ + Public Overloads Function Addtable_Sample_Sample_PreparationRow( _ + ByVal A_Sample_ID As String, _ + ByVal A_Client_Sample_ID As String, _ + ByVal P_Cleaning_Fact As Boolean, _ + ByVal P_Drying_Fact As Boolean, _ + ByVal P_Evaporation_Fact As Boolean, _ + ByVal P_Freeze_Drying_Fact As Boolean, _ + ByVal P_Homogenizing_Fact As Boolean, _ + ByVal P_Pelletization_Fact As Boolean, _ + ByVal P_Fragmentation_Fact As Boolean, _ + ByVal P_Weighting_SLI As Single, _ + ByVal P_Weighting_LLI As Single, _ + ByVal P_Date_Sample_Preparation As Date, _ + ByVal P_Maked_By As String, _ + ByVal F_Country_Code As String, _ + ByVal F_Client_ID As String, _ + ByVal F_Year As String, _ + ByVal F_Sample_Set_ID As String, _ ByVal F_Sample_Set_Index As String) As table_Sample_Sample_PreparationRow - Dim rowtable_Sample_Sample_PreparationRow As table_Sample_Sample_PreparationRow = CType(Me.NewRow, table_Sample_Sample_PreparationRow) + Dim rowtable_Sample_Sample_PreparationRow As table_Sample_Sample_PreparationRow = CType(Me.NewRow,table_Sample_Sample_PreparationRow) Dim columnValuesArray() As Object = New Object() {A_Sample_ID, A_Client_Sample_ID, P_Cleaning_Fact, P_Drying_Fact, P_Evaporation_Fact, P_Freeze_Drying_Fact, P_Homogenizing_Fact, P_Pelletization_Fact, P_Fragmentation_Fact, P_Weighting_SLI, P_Weighting_LLI, P_Date_Sample_Preparation, P_Maked_By, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index} rowtable_Sample_Sample_PreparationRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_Sample_Sample_PreparationRow) Return rowtable_Sample_Sample_PreparationRow End Function - - + + _ Public Function FindByA_Sample_IDF_Country_CodeF_Client_IDF_YearF_Sample_Set_IDF_Sample_Set_Index(ByVal A_Sample_ID As String, ByVal F_Country_Code As String, ByVal F_Client_ID As String, ByVal F_Year As String, ByVal F_Sample_Set_ID As String, ByVal F_Sample_Set_Index As String) As table_Sample_Sample_PreparationRow - Return CType(Me.Rows.Find(New Object() {A_Sample_ID, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index}), table_Sample_Sample_PreparationRow) + Return CType(Me.Rows.Find(New Object() {A_Sample_ID, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index}),table_Sample_Sample_PreparationRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_Sample_Sample_PreparationDataTable = CType(MyBase.Clone, table_Sample_Sample_PreparationDataTable) + Dim cln As table_Sample_Sample_PreparationDataTable = CType(MyBase.Clone,table_Sample_Sample_PreparationDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_Sample_Sample_PreparationDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnA_Sample_ID = MyBase.Columns("A_Sample_ID") Me.columnA_Client_Sample_ID = MyBase.Columns("A_Client_Sample_ID") @@ -6150,9 +6148,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnF_Sample_Set_ID = MyBase.Columns("F_Sample_Set_ID") Me.columnF_Sample_Set_Index = MyBase.Columns("F_Sample_Set_Index") End Sub - - + + _ Private Sub InitClass() Me.columnA_Sample_ID = New Global.System.Data.DataColumn("A_Sample_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnA_Sample_ID) @@ -6190,85 +6188,85 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnF_Sample_Set_ID) Me.columnF_Sample_Set_Index = New Global.System.Data.DataColumn("F_Sample_Set_Index", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnF_Sample_Set_Index) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnA_Sample_ID, Me.columnF_Country_Code, Me.columnF_Client_ID, Me.columnF_Year, Me.columnF_Sample_Set_ID, Me.columnF_Sample_Set_Index}, True)) - Me.columnA_Sample_ID.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnA_Sample_ID, Me.columnF_Country_Code, Me.columnF_Client_ID, Me.columnF_Year, Me.columnF_Sample_Set_ID, Me.columnF_Sample_Set_Index}, true)) + Me.columnA_Sample_ID.AllowDBNull = false Me.columnA_Sample_ID.MaxLength = 2 Me.columnA_Client_Sample_ID.MaxLength = 20 Me.columnP_Maked_By.MaxLength = 25 - Me.columnF_Country_Code.AllowDBNull = False + Me.columnF_Country_Code.AllowDBNull = false Me.columnF_Country_Code.MaxLength = 2 - Me.columnF_Client_ID.AllowDBNull = False + Me.columnF_Client_ID.AllowDBNull = false Me.columnF_Client_ID.MaxLength = 2 - Me.columnF_Year.AllowDBNull = False + Me.columnF_Year.AllowDBNull = false Me.columnF_Year.MaxLength = 2 - Me.columnF_Sample_Set_ID.AllowDBNull = False + Me.columnF_Sample_Set_ID.AllowDBNull = false Me.columnF_Sample_Set_ID.MaxLength = 2 - Me.columnF_Sample_Set_Index.AllowDBNull = False + Me.columnF_Sample_Set_Index.AllowDBNull = false Me.columnF_Sample_Set_Index.MaxLength = 1 End Sub - - + + _ Public Function Newtable_Sample_Sample_PreparationRow() As table_Sample_Sample_PreparationRow - Return CType(Me.NewRow, table_Sample_Sample_PreparationRow) + Return CType(Me.NewRow,table_Sample_Sample_PreparationRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_Sample_Sample_PreparationRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_Sample_Sample_PreparationRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_Sample_Sample_PreparationRowChangedEvent) Is Nothing) Then - RaiseEvent table_Sample_Sample_PreparationRowChanged(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row, table_Sample_Sample_PreparationRow), e.Action)) + RaiseEvent table_Sample_Sample_PreparationRowChanged(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row,table_Sample_Sample_PreparationRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_Sample_Sample_PreparationRowChangingEvent) Is Nothing) Then - RaiseEvent table_Sample_Sample_PreparationRowChanging(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row, table_Sample_Sample_PreparationRow), e.Action)) + RaiseEvent table_Sample_Sample_PreparationRowChanging(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row,table_Sample_Sample_PreparationRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_Sample_Sample_PreparationRowDeletedEvent) Is Nothing) Then - RaiseEvent table_Sample_Sample_PreparationRowDeleted(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row, table_Sample_Sample_PreparationRow), e.Action)) + RaiseEvent table_Sample_Sample_PreparationRowDeleted(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row,table_Sample_Sample_PreparationRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_Sample_Sample_PreparationRowDeletingEvent) Is Nothing) Then - RaiseEvent table_Sample_Sample_PreparationRowDeleting(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row, table_Sample_Sample_PreparationRow), e.Action)) + RaiseEvent table_Sample_Sample_PreparationRowDeleting(Me, New table_Sample_Sample_PreparationRowChangeEvent(CType(e.Row,table_Sample_Sample_PreparationRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_Sample_Sample_PreparationRow(ByVal row As table_Sample_Sample_PreparationRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6297,28 +6295,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -6333,57 +6331,57 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_SLI_Irradiation_LogDataTable Inherits Global.System.Data.TypedTableBase(Of table_SLI_Irradiation_LogRow) - + Private columnCountry_Code As Global.System.Data.DataColumn - + Private columnClient_ID As Global.System.Data.DataColumn - + Private columnYear As Global.System.Data.DataColumn - + Private columnSample_Set_ID As Global.System.Data.DataColumn - + Private columnSample_Set_Index As Global.System.Data.DataColumn - + Private columnSample_ID As Global.System.Data.DataColumn - + Private columnDate_Start As Global.System.Data.DataColumn - + Private columnTime_Start As Global.System.Data.DataColumn - + Private columnChannel As Global.System.Data.DataColumn - + Private columnDuration As Global.System.Data.DataColumn - + Private columnDetector_2 As Global.System.Data.DataColumn - + Private columnDetector_3 As Global.System.Data.DataColumn - + Private columnDetector_4 As Global.System.Data.DataColumn - + Private columnFile_Last As Global.System.Data.DataColumn - + Private columnIrradiated_By As Global.System.Data.DataColumn - + Private columnMeasured_By As Global.System.Data.DataColumn - + Private columnPaper_Log_Number As Global.System.Data.DataColumn - + Private columnPosition_Number As Global.System.Data.DataColumn - + Private columnDetector_1 As Global.System.Data.DataColumn - + Private columnFile_First As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_SLI_Irradiation_Log" @@ -6391,9 +6389,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6409,261 +6407,261 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_Code End Get End Property - - + + _ Public ReadOnly Property Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnClient_ID End Get End Property - - + + _ Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn Get Return Me.columnYear End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_ID End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_Index End Get End Property - - + + _ Public ReadOnly Property Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_ID End Get End Property - - + + _ Public ReadOnly Property Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnDate_Start End Get End Property - - + + _ Public ReadOnly Property Time_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnTime_Start End Get End Property - - + + _ Public ReadOnly Property ChannelColumn() As Global.System.Data.DataColumn Get Return Me.columnChannel End Get End Property - - + + _ Public ReadOnly Property DurationColumn() As Global.System.Data.DataColumn Get Return Me.columnDuration End Get End Property - - + + _ Public ReadOnly Property Detector_2Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_2 End Get End Property - - + + _ Public ReadOnly Property Detector_3Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_3 End Get End Property - - + + _ Public ReadOnly Property Detector_4Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_4 End Get End Property - - + + _ Public ReadOnly Property File_LastColumn() As Global.System.Data.DataColumn Get Return Me.columnFile_Last End Get End Property - - + + _ Public ReadOnly Property Irradiated_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnIrradiated_By End Get End Property - - + + _ Public ReadOnly Property Measured_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnMeasured_By End Get End Property - - + + _ Public ReadOnly Property Paper_Log_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnPaper_Log_Number End Get End Property - - + + _ Public ReadOnly Property Position_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnPosition_Number End Get End Property - - + + _ Public ReadOnly Property Detector_1Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_1 End Get End Property - - + + _ Public ReadOnly Property File_FirstColumn() As Global.System.Data.DataColumn Get Return Me.columnFile_First End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_SLI_Irradiation_LogRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_SLI_Irradiation_LogRow Get - Return CType(Me.Rows(index), table_SLI_Irradiation_LogRow) + Return CType(Me.Rows(index),table_SLI_Irradiation_LogRow) End Get End Property - - + + _ Public Event table_SLI_Irradiation_LogRowChanging As table_SLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_SLI_Irradiation_LogRowChanged As table_SLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_SLI_Irradiation_LogRowDeleting As table_SLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_SLI_Irradiation_LogRowDeleted As table_SLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_SLI_Irradiation_LogRow(ByVal row As table_SLI_Irradiation_LogRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_SLI_Irradiation_LogRow( - ByVal Country_Code As String, - ByVal Client_ID As String, - ByVal Year As String, - ByVal Sample_Set_ID As String, - ByVal Sample_Set_Index As String, - ByVal Sample_ID As String, - ByVal Date_Start As Date, - ByVal Time_Start As System.TimeSpan, - ByVal Channel As Short, - ByVal Duration As Integer, - ByVal Detector_2 As Boolean, - ByVal Detector_3 As Boolean, - ByVal Detector_4 As Boolean, - ByVal File_Last As String, - ByVal Irradiated_By As String, - ByVal Measured_By As String, - ByVal Paper_Log_Number As String, - ByVal Position_Number As Short, - ByVal Detector_1 As Short, + + _ + Public Overloads Function Addtable_SLI_Irradiation_LogRow( _ + ByVal Country_Code As String, _ + ByVal Client_ID As String, _ + ByVal Year As String, _ + ByVal Sample_Set_ID As String, _ + ByVal Sample_Set_Index As String, _ + ByVal Sample_ID As String, _ + ByVal Date_Start As Date, _ + ByVal Time_Start As System.TimeSpan, _ + ByVal Channel As Short, _ + ByVal Duration As Integer, _ + ByVal Detector_2 As Boolean, _ + ByVal Detector_3 As Boolean, _ + ByVal Detector_4 As Boolean, _ + ByVal File_Last As String, _ + ByVal Irradiated_By As String, _ + ByVal Measured_By As String, _ + ByVal Paper_Log_Number As String, _ + ByVal Position_Number As Short, _ + ByVal Detector_1 As Short, _ ByVal File_First As String) As table_SLI_Irradiation_LogRow - Dim rowtable_SLI_Irradiation_LogRow As table_SLI_Irradiation_LogRow = CType(Me.NewRow, table_SLI_Irradiation_LogRow) + Dim rowtable_SLI_Irradiation_LogRow As table_SLI_Irradiation_LogRow = CType(Me.NewRow,table_SLI_Irradiation_LogRow) Dim columnValuesArray() As Object = New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID, Date_Start, Time_Start, Channel, Duration, Detector_2, Detector_3, Detector_4, File_Last, Irradiated_By, Measured_By, Paper_Log_Number, Position_Number, Detector_1, File_First} rowtable_SLI_Irradiation_LogRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_SLI_Irradiation_LogRow) Return rowtable_SLI_Irradiation_LogRow End Function - - + + _ Public Function FindByCountry_CodeClient_IDYearSample_Set_IDSample_Set_IndexSample_ID(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String, ByVal Sample_ID As String) As table_SLI_Irradiation_LogRow - Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID}), table_SLI_Irradiation_LogRow) + Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID}),table_SLI_Irradiation_LogRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_SLI_Irradiation_LogDataTable = CType(MyBase.Clone, table_SLI_Irradiation_LogDataTable) + Dim cln As table_SLI_Irradiation_LogDataTable = CType(MyBase.Clone,table_SLI_Irradiation_LogDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_SLI_Irradiation_LogDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnCountry_Code = MyBase.Columns("Country_Code") Me.columnClient_ID = MyBase.Columns("Client_ID") @@ -6686,9 +6684,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnDetector_1 = MyBase.Columns("Detector_1") Me.columnFile_First = MyBase.Columns("File_First") End Sub - - + + _ Private Sub InitClass() Me.columnCountry_Code = New Global.System.Data.DataColumn("Country_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_Code) @@ -6730,89 +6728,89 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnDetector_1) Me.columnFile_First = New Global.System.Data.DataColumn("File_First", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFile_First) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index, Me.columnSample_ID}, True)) - Me.columnCountry_Code.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index, Me.columnSample_ID}, true)) + Me.columnCountry_Code.AllowDBNull = false Me.columnCountry_Code.MaxLength = 2 - Me.columnClient_ID.AllowDBNull = False + Me.columnClient_ID.AllowDBNull = false Me.columnClient_ID.MaxLength = 2 - Me.columnYear.AllowDBNull = False + Me.columnYear.AllowDBNull = false Me.columnYear.MaxLength = 2 - Me.columnSample_Set_ID.AllowDBNull = False + Me.columnSample_Set_ID.AllowDBNull = false Me.columnSample_Set_ID.MaxLength = 10 - Me.columnSample_Set_Index.AllowDBNull = False + Me.columnSample_Set_Index.AllowDBNull = false Me.columnSample_Set_Index.MaxLength = 2 - Me.columnSample_ID.AllowDBNull = False + Me.columnSample_ID.AllowDBNull = false Me.columnSample_ID.MaxLength = 3 - Me.columnDate_Start.AllowDBNull = False + Me.columnDate_Start.AllowDBNull = false Me.columnFile_Last.MaxLength = 10 Me.columnIrradiated_By.MaxLength = 25 Me.columnMeasured_By.MaxLength = 25 Me.columnPaper_Log_Number.MaxLength = 10 Me.columnFile_First.MaxLength = 15 End Sub - - + + _ Public Function Newtable_SLI_Irradiation_LogRow() As table_SLI_Irradiation_LogRow - Return CType(Me.NewRow, table_SLI_Irradiation_LogRow) + Return CType(Me.NewRow,table_SLI_Irradiation_LogRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_SLI_Irradiation_LogRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_SLI_Irradiation_LogRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_SLI_Irradiation_LogRowChangedEvent) Is Nothing) Then - RaiseEvent table_SLI_Irradiation_LogRowChanged(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_SLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_SLI_Irradiation_LogRowChanged(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_SLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_SLI_Irradiation_LogRowChangingEvent) Is Nothing) Then - RaiseEvent table_SLI_Irradiation_LogRowChanging(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_SLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_SLI_Irradiation_LogRowChanging(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_SLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_SLI_Irradiation_LogRowDeletedEvent) Is Nothing) Then - RaiseEvent table_SLI_Irradiation_LogRowDeleted(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_SLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_SLI_Irradiation_LogRowDeleted(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_SLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_SLI_Irradiation_LogRowDeletingEvent) Is Nothing) Then - RaiseEvent table_SLI_Irradiation_LogRowDeleting(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_SLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_SLI_Irradiation_LogRowDeleting(Me, New table_SLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_SLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_SLI_Irradiation_LogRow(ByVal row As table_SLI_Irradiation_LogRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -6841,28 +6839,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -6877,93 +6875,93 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_LLI_Irradiation_LogDataTable Inherits Global.System.Data.TypedTableBase(Of table_LLI_Irradiation_LogRow) - + Private columnCountry_Code As Global.System.Data.DataColumn - + Private columnClient_ID As Global.System.Data.DataColumn - + Private columnYear As Global.System.Data.DataColumn - + Private columnSample_Set_ID As Global.System.Data.DataColumn - + Private columnSample_Set_Index As Global.System.Data.DataColumn - + Private columnSample_ID As Global.System.Data.DataColumn - + Private columnDate_Start As Global.System.Data.DataColumn - + Private columnTime_Start As Global.System.Data.DataColumn - + Private columnChannel As Global.System.Data.DataColumn - + Private columnDate_Finish As Global.System.Data.DataColumn - + Private columnTime_Finish As Global.System.Data.DataColumn - + Private columnPower_Relief_Date_Start_1 As Global.System.Data.DataColumn - + Private columnPower_Relief_Time_Start_1 As Global.System.Data.DataColumn - + Private columnPower_Relief_Date_Finish_1 As Global.System.Data.DataColumn - + Private columnPower_Relief_Time_Finish_1 As Global.System.Data.DataColumn - + Private columnPower_Relief_Date_Start_2 As Global.System.Data.DataColumn - + Private columnPower_Relief_Time_Start_2 As Global.System.Data.DataColumn - + Private columnPower_Relief_Date_Finish_2 As Global.System.Data.DataColumn - + Private columnPower_Relief_Time_Finish_2 As Global.System.Data.DataColumn - + Private columnContainer_Number As Global.System.Data.DataColumn - + Private columnPosition_Number As Global.System.Data.DataColumn - + Private columnIrradiated_By As Global.System.Data.DataColumn - + Private columnDate_Rehadle As Global.System.Data.DataColumn - + Private columnRehandled_By As Global.System.Data.DataColumn - + Private columnDate_Measurement_LLI_1 As Global.System.Data.DataColumn - + Private columnDetector_2_Measurement_LLI_1 As Global.System.Data.DataColumn - + Private columnDetector_3_Measurement_LLI_1 As Global.System.Data.DataColumn - + Private columnDetector_4_Measurement_LLI_1 As Global.System.Data.DataColumn - + Private columnPaper_Log_LLI_1_Number As Global.System.Data.DataColumn - + Private columnMeasured_LLI_1_By As Global.System.Data.DataColumn - + Private columnDate_Measurement_LLI_2 As Global.System.Data.DataColumn - + Private columnDetector_2_Measurement_LLI_2 As Global.System.Data.DataColumn - + Private columnDetector_3_Measurement_LLI_2 As Global.System.Data.DataColumn - + Private columnDetector_4_Measurement_LLI_2 As Global.System.Data.DataColumn - + Private columnPaper_Log_LLI_2_Number As Global.System.Data.DataColumn - + Private columnMeasured_LLI_2_By As Global.System.Data.DataColumn - + Private columnDetector_1_Measurement_LLI_1 As Global.System.Data.DataColumn - + Private columnDetector_1_Measurement_LLI_2 As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_LLI_Irradiation_Log" @@ -6971,9 +6969,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -6989,423 +6987,423 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnCountry_Code End Get End Property - - + + _ Public ReadOnly Property Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnClient_ID End Get End Property - - + + _ Public ReadOnly Property YearColumn() As Global.System.Data.DataColumn Get Return Me.columnYear End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_ID End Get End Property - - + + _ Public ReadOnly Property Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnSample_Set_Index End Get End Property - - - Public ReadOnly Property Sample_IDColumn() As Global.System.Data.DataColumn - Get + + _ + Public ReadOnly Property Sample_IDColumn() As Global.System.Data.DataColumn + Get Return Me.columnSample_ID End Get End Property - - + + _ Public ReadOnly Property Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnDate_Start End Get End Property - - + + _ Public ReadOnly Property Time_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnTime_Start End Get End Property - - + + _ Public ReadOnly Property ChannelColumn() As Global.System.Data.DataColumn Get Return Me.columnChannel End Get End Property - - + + _ Public ReadOnly Property Date_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnDate_Finish End Get End Property - - + + _ Public ReadOnly Property Time_FinishColumn() As Global.System.Data.DataColumn Get Return Me.columnTime_Finish End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Date_Start_1Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Date_Start_1 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Time_Start_1Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Time_Start_1 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Date_Finish_1Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Date_Finish_1 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Time_Finish_1Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Time_Finish_1 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Date_Start_2Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Date_Start_2 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Time_Start_2Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Time_Start_2 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Date_Finish_2Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Date_Finish_2 End Get End Property - - + + _ Public ReadOnly Property Power_Relief_Time_Finish_2Column() As Global.System.Data.DataColumn Get Return Me.columnPower_Relief_Time_Finish_2 End Get End Property - - + + _ Public ReadOnly Property Container_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnContainer_Number End Get End Property - - + + _ Public ReadOnly Property Position_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnPosition_Number End Get End Property - - + + _ Public ReadOnly Property Irradiated_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnIrradiated_By End Get End Property - - + + _ Public ReadOnly Property Date_RehadleColumn() As Global.System.Data.DataColumn Get Return Me.columnDate_Rehadle End Get End Property - - + + _ Public ReadOnly Property Rehandled_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnRehandled_By End Get End Property - - + + _ Public ReadOnly Property Date_Measurement_LLI_1Column() As Global.System.Data.DataColumn Get Return Me.columnDate_Measurement_LLI_1 End Get End Property - - + + _ Public ReadOnly Property Detector_2_Measurement_LLI_1Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_2_Measurement_LLI_1 End Get End Property - - + + _ Public ReadOnly Property Detector_3_Measurement_LLI_1Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_3_Measurement_LLI_1 End Get End Property - - + + _ Public ReadOnly Property Detector_4_Measurement_LLI_1Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_4_Measurement_LLI_1 End Get End Property - - + + _ Public ReadOnly Property Paper_Log_LLI_1_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnPaper_Log_LLI_1_Number End Get End Property - - + + _ Public ReadOnly Property Measured_LLI_1_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnMeasured_LLI_1_By End Get End Property - - + + _ Public ReadOnly Property Date_Measurement_LLI_2Column() As Global.System.Data.DataColumn Get Return Me.columnDate_Measurement_LLI_2 End Get End Property - - + + _ Public ReadOnly Property Detector_2_Measurement_LLI_2Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_2_Measurement_LLI_2 End Get End Property - - + + _ Public ReadOnly Property Detector_3_Measurement_LLI_2Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_3_Measurement_LLI_2 End Get End Property - - + + _ Public ReadOnly Property Detector_4_Measurement_LLI_2Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_4_Measurement_LLI_2 End Get End Property - - + + _ Public ReadOnly Property Paper_Log_LLI_2_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnPaper_Log_LLI_2_Number End Get End Property - - + + _ Public ReadOnly Property Measured_LLI_2_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnMeasured_LLI_2_By End Get End Property - - + + _ Public ReadOnly Property Detector_1_Measurement_LLI_1Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_1_Measurement_LLI_1 End Get End Property - - + + _ Public ReadOnly Property Detector_1_Measurement_LLI_2Column() As Global.System.Data.DataColumn Get Return Me.columnDetector_1_Measurement_LLI_2 End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_LLI_Irradiation_LogRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_LLI_Irradiation_LogRow Get - Return CType(Me.Rows(index), table_LLI_Irradiation_LogRow) + Return CType(Me.Rows(index),table_LLI_Irradiation_LogRow) End Get End Property - - + + _ Public Event table_LLI_Irradiation_LogRowChanging As table_LLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_LLI_Irradiation_LogRowChanged As table_LLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_LLI_Irradiation_LogRowDeleting As table_LLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Event table_LLI_Irradiation_LogRowDeleted As table_LLI_Irradiation_LogRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_LLI_Irradiation_LogRow(ByVal row As table_LLI_Irradiation_LogRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_LLI_Irradiation_LogRow( - ByVal Country_Code As String, - ByVal Client_ID As String, - ByVal Year As String, - ByVal Sample_Set_ID As String, - ByVal Sample_Set_Index As String, - ByVal Sample_ID As String, - ByVal Date_Start As Date, - ByVal Time_Start As System.TimeSpan, - ByVal Channel As Short, - ByVal Date_Finish As Date, - ByVal Time_Finish As System.TimeSpan, - ByVal Power_Relief_Date_Start_1 As Date, - ByVal Power_Relief_Time_Start_1 As System.TimeSpan, - ByVal Power_Relief_Date_Finish_1 As Date, - ByVal Power_Relief_Time_Finish_1 As System.TimeSpan, - ByVal Power_Relief_Date_Start_2 As Date, - ByVal Power_Relief_Time_Start_2 As System.TimeSpan, - ByVal Power_Relief_Date_Finish_2 As Date, - ByVal Power_Relief_Time_Finish_2 As System.TimeSpan, - ByVal Container_Number As Short, - ByVal Position_Number As Short, - ByVal Irradiated_By As String, - ByVal Date_Rehadle As Date, - ByVal Rehandled_By As String, - ByVal Date_Measurement_LLI_1 As Date, - ByVal Detector_2_Measurement_LLI_1 As Boolean, - ByVal Detector_3_Measurement_LLI_1 As Boolean, - ByVal Detector_4_Measurement_LLI_1 As Boolean, - ByVal Paper_Log_LLI_1_Number As String, - ByVal Measured_LLI_1_By As String, - ByVal Date_Measurement_LLI_2 As Date, - ByVal Detector_2_Measurement_LLI_2 As Boolean, - ByVal Detector_3_Measurement_LLI_2 As Boolean, - ByVal Detector_4_Measurement_LLI_2 As Boolean, - ByVal Paper_Log_LLI_2_Number As String, - ByVal Measured_LLI_2_By As String, - ByVal Detector_1_Measurement_LLI_1 As Short, + + _ + Public Overloads Function Addtable_LLI_Irradiation_LogRow( _ + ByVal Country_Code As String, _ + ByVal Client_ID As String, _ + ByVal Year As String, _ + ByVal Sample_Set_ID As String, _ + ByVal Sample_Set_Index As String, _ + ByVal Sample_ID As String, _ + ByVal Date_Start As Date, _ + ByVal Time_Start As System.TimeSpan, _ + ByVal Channel As Short, _ + ByVal Date_Finish As Date, _ + ByVal Time_Finish As System.TimeSpan, _ + ByVal Power_Relief_Date_Start_1 As Date, _ + ByVal Power_Relief_Time_Start_1 As System.TimeSpan, _ + ByVal Power_Relief_Date_Finish_1 As Date, _ + ByVal Power_Relief_Time_Finish_1 As System.TimeSpan, _ + ByVal Power_Relief_Date_Start_2 As Date, _ + ByVal Power_Relief_Time_Start_2 As System.TimeSpan, _ + ByVal Power_Relief_Date_Finish_2 As Date, _ + ByVal Power_Relief_Time_Finish_2 As System.TimeSpan, _ + ByVal Container_Number As Short, _ + ByVal Position_Number As Short, _ + ByVal Irradiated_By As String, _ + ByVal Date_Rehadle As Date, _ + ByVal Rehandled_By As String, _ + ByVal Date_Measurement_LLI_1 As Date, _ + ByVal Detector_2_Measurement_LLI_1 As Boolean, _ + ByVal Detector_3_Measurement_LLI_1 As Boolean, _ + ByVal Detector_4_Measurement_LLI_1 As Boolean, _ + ByVal Paper_Log_LLI_1_Number As String, _ + ByVal Measured_LLI_1_By As String, _ + ByVal Date_Measurement_LLI_2 As Date, _ + ByVal Detector_2_Measurement_LLI_2 As Boolean, _ + ByVal Detector_3_Measurement_LLI_2 As Boolean, _ + ByVal Detector_4_Measurement_LLI_2 As Boolean, _ + ByVal Paper_Log_LLI_2_Number As String, _ + ByVal Measured_LLI_2_By As String, _ + ByVal Detector_1_Measurement_LLI_1 As Short, _ ByVal Detector_1_Measurement_LLI_2 As Short) As table_LLI_Irradiation_LogRow - Dim rowtable_LLI_Irradiation_LogRow As table_LLI_Irradiation_LogRow = CType(Me.NewRow, table_LLI_Irradiation_LogRow) + Dim rowtable_LLI_Irradiation_LogRow As table_LLI_Irradiation_LogRow = CType(Me.NewRow,table_LLI_Irradiation_LogRow) Dim columnValuesArray() As Object = New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID, Date_Start, Time_Start, Channel, Date_Finish, Time_Finish, Power_Relief_Date_Start_1, Power_Relief_Time_Start_1, Power_Relief_Date_Finish_1, Power_Relief_Time_Finish_1, Power_Relief_Date_Start_2, Power_Relief_Time_Start_2, Power_Relief_Date_Finish_2, Power_Relief_Time_Finish_2, Container_Number, Position_Number, Irradiated_By, Date_Rehadle, Rehandled_By, Date_Measurement_LLI_1, Detector_2_Measurement_LLI_1, Detector_3_Measurement_LLI_1, Detector_4_Measurement_LLI_1, Paper_Log_LLI_1_Number, Measured_LLI_1_By, Date_Measurement_LLI_2, Detector_2_Measurement_LLI_2, Detector_3_Measurement_LLI_2, Detector_4_Measurement_LLI_2, Paper_Log_LLI_2_Number, Measured_LLI_2_By, Detector_1_Measurement_LLI_1, Detector_1_Measurement_LLI_2} rowtable_LLI_Irradiation_LogRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_LLI_Irradiation_LogRow) Return rowtable_LLI_Irradiation_LogRow End Function - - + + _ Public Function FindByCountry_CodeClient_IDYearSample_Set_IDSample_Set_IndexSample_ID(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String, ByVal Sample_ID As String) As table_LLI_Irradiation_LogRow - Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID}), table_LLI_Irradiation_LogRow) + Return CType(Me.Rows.Find(New Object() {Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample_ID}),table_LLI_Irradiation_LogRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_LLI_Irradiation_LogDataTable = CType(MyBase.Clone, table_LLI_Irradiation_LogDataTable) + Dim cln As table_LLI_Irradiation_LogDataTable = CType(MyBase.Clone,table_LLI_Irradiation_LogDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_LLI_Irradiation_LogDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnCountry_Code = MyBase.Columns("Country_Code") Me.columnClient_ID = MyBase.Columns("Client_ID") @@ -7446,9 +7444,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnDetector_1_Measurement_LLI_1 = MyBase.Columns("Detector_1_Measurement_LLI_1") Me.columnDetector_1_Measurement_LLI_2 = MyBase.Columns("Detector_1_Measurement_LLI_2") End Sub - - + + _ Private Sub InitClass() Me.columnCountry_Code = New Global.System.Data.DataColumn("Country_Code", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCountry_Code) @@ -7526,20 +7524,20 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnDetector_1_Measurement_LLI_1) Me.columnDetector_1_Measurement_LLI_2 = New Global.System.Data.DataColumn("Detector_1_Measurement_LLI_2", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDetector_1_Measurement_LLI_2) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index, Me.columnSample_ID}, True)) - Me.columnCountry_Code.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnCountry_Code, Me.columnClient_ID, Me.columnYear, Me.columnSample_Set_ID, Me.columnSample_Set_Index, Me.columnSample_ID}, true)) + Me.columnCountry_Code.AllowDBNull = false Me.columnCountry_Code.MaxLength = 2 - Me.columnClient_ID.AllowDBNull = False + Me.columnClient_ID.AllowDBNull = false Me.columnClient_ID.MaxLength = 2 - Me.columnYear.AllowDBNull = False + Me.columnYear.AllowDBNull = false Me.columnYear.MaxLength = 2 - Me.columnSample_Set_ID.AllowDBNull = False + Me.columnSample_Set_ID.AllowDBNull = false Me.columnSample_Set_ID.MaxLength = 10 - Me.columnSample_Set_Index.AllowDBNull = False + Me.columnSample_Set_Index.AllowDBNull = false Me.columnSample_Set_Index.MaxLength = 2 - Me.columnSample_ID.AllowDBNull = False + Me.columnSample_ID.AllowDBNull = false Me.columnSample_ID.MaxLength = 3 - Me.columnDate_Start.AllowDBNull = False + Me.columnDate_Start.AllowDBNull = false Me.columnIrradiated_By.MaxLength = 25 Me.columnRehandled_By.MaxLength = 25 Me.columnPaper_Log_LLI_1_Number.MaxLength = 10 @@ -7547,69 +7545,69 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnPaper_Log_LLI_2_Number.MaxLength = 10 Me.columnMeasured_LLI_2_By.MaxLength = 25 End Sub - - + + _ Public Function Newtable_LLI_Irradiation_LogRow() As table_LLI_Irradiation_LogRow - Return CType(Me.NewRow, table_LLI_Irradiation_LogRow) + Return CType(Me.NewRow,table_LLI_Irradiation_LogRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_LLI_Irradiation_LogRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_LLI_Irradiation_LogRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_LLI_Irradiation_LogRowChangedEvent) Is Nothing) Then - RaiseEvent table_LLI_Irradiation_LogRowChanged(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_LLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_LLI_Irradiation_LogRowChanged(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_LLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_LLI_Irradiation_LogRowChangingEvent) Is Nothing) Then - RaiseEvent table_LLI_Irradiation_LogRowChanging(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_LLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_LLI_Irradiation_LogRowChanging(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_LLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_LLI_Irradiation_LogRowDeletedEvent) Is Nothing) Then - RaiseEvent table_LLI_Irradiation_LogRowDeleted(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_LLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_LLI_Irradiation_LogRowDeleted(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_LLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_LLI_Irradiation_LogRowDeletingEvent) Is Nothing) Then - RaiseEvent table_LLI_Irradiation_LogRowDeleting(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row, table_LLI_Irradiation_LogRow), e.Action)) + RaiseEvent table_LLI_Irradiation_LogRowDeleting(Me, New table_LLI_Irradiation_LogRowChangeEvent(CType(e.Row,table_LLI_Irradiation_LogRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_LLI_Irradiation_LogRow(ByVal row As table_LLI_Irradiation_LogRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -7638,28 +7636,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -7674,37 +7672,37 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_MonitorDataTable Inherits Global.System.Data.TypedTableBase(Of table_MonitorRow) - + Private columnMonitor_Set_Name As Global.System.Data.DataColumn - + Private columnMonitor_Set_Number As Global.System.Data.DataColumn - + Private columnMonitor_Set_Weight As Global.System.Data.DataColumn - + Private columnMonitor_Number As Global.System.Data.DataColumn - + Private columnMonitor_SLI_Weight As Global.System.Data.DataColumn - + Private columnMonitor_SLI_Date_Start As Global.System.Data.DataColumn - + Private columnMonitor_SLI_Not_In_Use As Global.System.Data.DataColumn - + Private columnMonitor_LLI_Weight As Global.System.Data.DataColumn - + Private columnMonitor_LLI_Date_Start As Global.System.Data.DataColumn - + Private columnMonitor_LLI_Not_In_Use As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Monitor" @@ -7712,9 +7710,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -7730,161 +7728,161 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property Monitor_Set_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Name End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Number End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Weight End Get End Property - - + + _ Public ReadOnly Property Monitor_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Number End Get End Property - - + + _ Public ReadOnly Property Monitor_SLI_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_SLI_Weight End Get End Property - - + + _ Public ReadOnly Property Monitor_SLI_Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_SLI_Date_Start End Get End Property - - + + _ Public ReadOnly Property Monitor_SLI_Not_In_UseColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_SLI_Not_In_Use End Get End Property - - + + _ Public ReadOnly Property Monitor_LLI_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_LLI_Weight End Get End Property - - + + _ Public ReadOnly Property Monitor_LLI_Date_StartColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_LLI_Date_Start End Get End Property - - + + _ Public ReadOnly Property Monitor_LLI_Not_In_UseColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_LLI_Not_In_Use End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_MonitorRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_MonitorRow Get - Return CType(Me.Rows(index), table_MonitorRow) + Return CType(Me.Rows(index),table_MonitorRow) End Get End Property - - + + _ Public Event table_MonitorRowChanging As table_MonitorRowChangeEventHandler - - + + _ Public Event table_MonitorRowChanged As table_MonitorRowChangeEventHandler - - + + _ Public Event table_MonitorRowDeleting As table_MonitorRowChangeEventHandler - - + + _ Public Event table_MonitorRowDeleted As table_MonitorRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_MonitorRow(ByVal row As table_MonitorRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function Addtable_MonitorRow(ByVal Monitor_Set_Name As String, ByVal Monitor_Set_Number As String, ByVal Monitor_Set_Weight As Single, ByVal Monitor_Number As String, ByVal Monitor_SLI_Weight As Single, ByVal Monitor_SLI_Date_Start As Date, ByVal Monitor_SLI_Not_In_Use As Boolean, ByVal Monitor_LLI_Weight As Single, ByVal Monitor_LLI_Date_Start As Date, ByVal Monitor_LLI_Not_In_Use As Boolean) As table_MonitorRow - Dim rowtable_MonitorRow As table_MonitorRow = CType(Me.NewRow, table_MonitorRow) + Dim rowtable_MonitorRow As table_MonitorRow = CType(Me.NewRow,table_MonitorRow) Dim columnValuesArray() As Object = New Object() {Monitor_Set_Name, Monitor_Set_Number, Monitor_Set_Weight, Monitor_Number, Monitor_SLI_Weight, Monitor_SLI_Date_Start, Monitor_SLI_Not_In_Use, Monitor_LLI_Weight, Monitor_LLI_Date_Start, Monitor_LLI_Not_In_Use} rowtable_MonitorRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_MonitorRow) Return rowtable_MonitorRow End Function - - + + _ Public Function FindByMonitor_Set_NameMonitor_Set_NumberMonitor_Number(ByVal Monitor_Set_Name As String, ByVal Monitor_Set_Number As String, ByVal Monitor_Number As String) As table_MonitorRow - Return CType(Me.Rows.Find(New Object() {Monitor_Set_Name, Monitor_Set_Number, Monitor_Number}), table_MonitorRow) + Return CType(Me.Rows.Find(New Object() {Monitor_Set_Name, Monitor_Set_Number, Monitor_Number}),table_MonitorRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_MonitorDataTable = CType(MyBase.Clone, table_MonitorDataTable) + Dim cln As table_MonitorDataTable = CType(MyBase.Clone,table_MonitorDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_MonitorDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnMonitor_Set_Name = MyBase.Columns("Monitor_Set_Name") Me.columnMonitor_Set_Number = MyBase.Columns("Monitor_Set_Number") @@ -7897,9 +7895,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnMonitor_LLI_Date_Start = MyBase.Columns("Monitor_LLI_Date_Start") Me.columnMonitor_LLI_Not_In_Use = MyBase.Columns("Monitor_LLI_Not_In_Use") End Sub - - + + _ Private Sub InitClass() Me.columnMonitor_Set_Name = New Global.System.Data.DataColumn("Monitor_Set_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonitor_Set_Name) @@ -7921,78 +7919,78 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnMonitor_LLI_Date_Start) Me.columnMonitor_LLI_Not_In_Use = New Global.System.Data.DataColumn("Monitor_LLI_Not_In_Use", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonitor_LLI_Not_In_Use) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMonitor_Set_Name, Me.columnMonitor_Set_Number, Me.columnMonitor_Number}, True)) - Me.columnMonitor_Set_Name.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMonitor_Set_Name, Me.columnMonitor_Set_Number, Me.columnMonitor_Number}, true)) + Me.columnMonitor_Set_Name.AllowDBNull = false Me.columnMonitor_Set_Name.MaxLength = 5 - Me.columnMonitor_Set_Number.AllowDBNull = False + Me.columnMonitor_Set_Number.AllowDBNull = false Me.columnMonitor_Set_Number.MaxLength = 2 - Me.columnMonitor_Set_Weight.AllowDBNull = False - Me.columnMonitor_Number.AllowDBNull = False + Me.columnMonitor_Set_Weight.AllowDBNull = false + Me.columnMonitor_Number.AllowDBNull = false Me.columnMonitor_Number.MaxLength = 3 End Sub - - + + _ Public Function Newtable_MonitorRow() As table_MonitorRow - Return CType(Me.NewRow, table_MonitorRow) + Return CType(Me.NewRow,table_MonitorRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_MonitorRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_MonitorRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_MonitorRowChangedEvent) Is Nothing) Then - RaiseEvent table_MonitorRowChanged(Me, New table_MonitorRowChangeEvent(CType(e.Row, table_MonitorRow), e.Action)) + RaiseEvent table_MonitorRowChanged(Me, New table_MonitorRowChangeEvent(CType(e.Row,table_MonitorRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_MonitorRowChangingEvent) Is Nothing) Then - RaiseEvent table_MonitorRowChanging(Me, New table_MonitorRowChangeEvent(CType(e.Row, table_MonitorRow), e.Action)) + RaiseEvent table_MonitorRowChanging(Me, New table_MonitorRowChangeEvent(CType(e.Row,table_MonitorRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_MonitorRowDeletedEvent) Is Nothing) Then - RaiseEvent table_MonitorRowDeleted(Me, New table_MonitorRowChangeEvent(CType(e.Row, table_MonitorRow), e.Action)) + RaiseEvent table_MonitorRowDeleted(Me, New table_MonitorRowChangeEvent(CType(e.Row,table_MonitorRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_MonitorRowDeletingEvent) Is Nothing) Then - RaiseEvent table_MonitorRowDeleting(Me, New table_MonitorRowChangeEvent(CType(e.Row, table_MonitorRow), e.Action)) + RaiseEvent table_MonitorRowDeleting(Me, New table_MonitorRowChangeEvent(CType(e.Row,table_MonitorRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_MonitorRow(ByVal row As table_MonitorRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8021,28 +8019,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -8057,27 +8055,27 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_Monitor_SetDataTable Inherits Global.System.Data.TypedTableBase(Of table_Monitor_SetRow) - + Private columnMonitor_Set_Name As Global.System.Data.DataColumn - + Private columnMonitor_Set_Number As Global.System.Data.DataColumn - + Private columnMonitor_Set_Type As Global.System.Data.DataColumn - + Private columnMonitor_Set_Weight As Global.System.Data.DataColumn - + Private columnMonitor_Set_Purchasing_Date As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Monitor_Set" @@ -8085,9 +8083,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8103,121 +8101,121 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property Monitor_Set_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Name End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Number End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Type End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Weight End Get End Property - - + + _ Public ReadOnly Property Monitor_Set_Purchasing_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnMonitor_Set_Purchasing_Date End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_Monitor_SetRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_Monitor_SetRow Get - Return CType(Me.Rows(index), table_Monitor_SetRow) + Return CType(Me.Rows(index),table_Monitor_SetRow) End Get End Property - - + + _ Public Event table_Monitor_SetRowChanging As table_Monitor_SetRowChangeEventHandler - - + + _ Public Event table_Monitor_SetRowChanged As table_Monitor_SetRowChangeEventHandler - - + + _ Public Event table_Monitor_SetRowDeleting As table_Monitor_SetRowChangeEventHandler - - + + _ Public Event table_Monitor_SetRowDeleted As table_Monitor_SetRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_Monitor_SetRow(ByVal row As table_Monitor_SetRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function Addtable_Monitor_SetRow(ByVal Monitor_Set_Name As String, ByVal Monitor_Set_Number As String, ByVal Monitor_Set_Type As String, ByVal Monitor_Set_Weight As Single, ByVal Monitor_Set_Purchasing_Date As Date) As table_Monitor_SetRow - Dim rowtable_Monitor_SetRow As table_Monitor_SetRow = CType(Me.NewRow, table_Monitor_SetRow) + Dim rowtable_Monitor_SetRow As table_Monitor_SetRow = CType(Me.NewRow,table_Monitor_SetRow) Dim columnValuesArray() As Object = New Object() {Monitor_Set_Name, Monitor_Set_Number, Monitor_Set_Type, Monitor_Set_Weight, Monitor_Set_Purchasing_Date} rowtable_Monitor_SetRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_Monitor_SetRow) Return rowtable_Monitor_SetRow End Function - - + + _ Public Function FindByMonitor_Set_NameMonitor_Set_Number(ByVal Monitor_Set_Name As String, ByVal Monitor_Set_Number As String) As table_Monitor_SetRow - Return CType(Me.Rows.Find(New Object() {Monitor_Set_Name, Monitor_Set_Number}), table_Monitor_SetRow) + Return CType(Me.Rows.Find(New Object() {Monitor_Set_Name, Monitor_Set_Number}),table_Monitor_SetRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_Monitor_SetDataTable = CType(MyBase.Clone, table_Monitor_SetDataTable) + Dim cln As table_Monitor_SetDataTable = CType(MyBase.Clone,table_Monitor_SetDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_Monitor_SetDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnMonitor_Set_Name = MyBase.Columns("Monitor_Set_Name") Me.columnMonitor_Set_Number = MyBase.Columns("Monitor_Set_Number") @@ -8225,10 +8223,10 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnMonitor_Set_Weight = MyBase.Columns("Monitor_Set_Weight") Me.columnMonitor_Set_Purchasing_Date = MyBase.Columns("Monitor_Set_Purchasing_Date") End Sub - - - Private Sub InitClass() + + _ + Private Sub InitClass() Me.columnMonitor_Set_Name = New Global.System.Data.DataColumn("Monitor_Set_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonitor_Set_Name) Me.columnMonitor_Set_Number = New Global.System.Data.DataColumn("Monitor_Set_Number", GetType(String), Nothing, Global.System.Data.MappingType.Element) @@ -8239,79 +8237,79 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnMonitor_Set_Weight) Me.columnMonitor_Set_Purchasing_Date = New Global.System.Data.DataColumn("Monitor_Set_Purchasing_Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMonitor_Set_Purchasing_Date) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMonitor_Set_Name, Me.columnMonitor_Set_Number}, True)) - Me.columnMonitor_Set_Name.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnMonitor_Set_Name, Me.columnMonitor_Set_Number}, true)) + Me.columnMonitor_Set_Name.AllowDBNull = false Me.columnMonitor_Set_Name.MaxLength = 5 - Me.columnMonitor_Set_Number.AllowDBNull = False + Me.columnMonitor_Set_Number.AllowDBNull = false Me.columnMonitor_Set_Number.MaxLength = 2 - Me.columnMonitor_Set_Type.AllowDBNull = False + Me.columnMonitor_Set_Type.AllowDBNull = false Me.columnMonitor_Set_Type.MaxLength = 10 - Me.columnMonitor_Set_Weight.AllowDBNull = False - Me.columnMonitor_Set_Purchasing_Date.AllowDBNull = False + Me.columnMonitor_Set_Weight.AllowDBNull = false + Me.columnMonitor_Set_Purchasing_Date.AllowDBNull = false End Sub - - + + _ Public Function Newtable_Monitor_SetRow() As table_Monitor_SetRow - Return CType(Me.NewRow, table_Monitor_SetRow) + Return CType(Me.NewRow,table_Monitor_SetRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_Monitor_SetRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_Monitor_SetRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_Monitor_SetRowChangedEvent) Is Nothing) Then - RaiseEvent table_Monitor_SetRowChanged(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row, table_Monitor_SetRow), e.Action)) + RaiseEvent table_Monitor_SetRowChanged(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row,table_Monitor_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_Monitor_SetRowChangingEvent) Is Nothing) Then - RaiseEvent table_Monitor_SetRowChanging(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row, table_Monitor_SetRow), e.Action)) + RaiseEvent table_Monitor_SetRowChanging(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row,table_Monitor_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_Monitor_SetRowDeletedEvent) Is Nothing) Then - RaiseEvent table_Monitor_SetRowDeleted(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row, table_Monitor_SetRow), e.Action)) + RaiseEvent table_Monitor_SetRowDeleted(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row,table_Monitor_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_Monitor_SetRowDeletingEvent) Is Nothing) Then - RaiseEvent table_Monitor_SetRowDeleting(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row, table_Monitor_SetRow), e.Action)) + RaiseEvent table_Monitor_SetRowDeleting(Me, New table_Monitor_SetRowChangeEvent(CType(e.Row,table_Monitor_SetRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_Monitor_SetRow(ByVal row As table_Monitor_SetRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8340,28 +8338,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -8376,73 +8374,73 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_SRMDataTable Inherits Global.System.Data.TypedTableBase(Of table_SRMRow) - + Private columnSRM_Set_Name As Global.System.Data.DataColumn - + Private columnSRM_Set_Number As Global.System.Data.DataColumn - + Private columnSRM_Set_Weight As Global.System.Data.DataColumn - + Private columnSRM_Number As Global.System.Data.DataColumn - + Private columnSRM_SLI_Weight As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_1 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_2 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_3 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_4 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_5 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_6 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_7 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_8 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_9 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Irradiation_Date_10 As Global.System.Data.DataColumn - + Private columnSRM_SLI_Not_In_Use As Global.System.Data.DataColumn - + Private columnSRM_LLI_Weight As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_1 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_2 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_3 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_4 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_5 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_6 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_7 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_8 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_9 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Irradiation_Date_10 As Global.System.Data.DataColumn - + Private columnSRM_LLI_Not_In_Use As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_SRM" @@ -8450,9 +8448,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -8468,333 +8466,333 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property SRM_Set_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Name End Get End Property - - + + _ Public ReadOnly Property SRM_Set_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Number End Get End Property - - + + _ Public ReadOnly Property SRM_Set_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Weight End Get End Property - - + + _ Public ReadOnly Property SRM_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Number End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Weight End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_1Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_1 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_2Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_2 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_3Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_3 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_4Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_4 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_5Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_5 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_6Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_6 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_7Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_7 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_8Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_8 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_9Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_9 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Irradiation_Date_10Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Irradiation_Date_10 End Get End Property - - + + _ Public ReadOnly Property SRM_SLI_Not_In_UseColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_SLI_Not_In_Use End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Weight End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_1Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_1 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_2Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_2 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_3Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_3 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_4Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_4 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_5Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_5 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_6Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_6 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_7Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_7 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_8Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_8 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_9Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_9 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Irradiation_Date_10Column() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Irradiation_Date_10 End Get End Property - - + + _ Public ReadOnly Property SRM_LLI_Not_In_UseColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_LLI_Not_In_Use End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_SRMRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_SRMRow Get - Return CType(Me.Rows(index), table_SRMRow) + Return CType(Me.Rows(index),table_SRMRow) End Get End Property - - + + _ Public Event table_SRMRowChanging As table_SRMRowChangeEventHandler - - + + _ Public Event table_SRMRowChanged As table_SRMRowChangeEventHandler - - + + _ Public Event table_SRMRowDeleting As table_SRMRowChangeEventHandler - - + + _ Public Event table_SRMRowDeleted As table_SRMRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_SRMRow(ByVal row As table_SRMRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_SRMRow( - ByVal SRM_Set_Name As String, - ByVal SRM_Set_Number As String, - ByVal SRM_Set_Weight As Single, - ByVal SRM_Number As String, - ByVal SRM_SLI_Weight As Single, - ByVal SRM_SLI_Irradiation_Date_1 As Date, - ByVal SRM_SLI_Irradiation_Date_2 As Date, - ByVal SRM_SLI_Irradiation_Date_3 As Date, - ByVal SRM_SLI_Irradiation_Date_4 As Date, - ByVal SRM_SLI_Irradiation_Date_5 As Date, - ByVal SRM_SLI_Irradiation_Date_6 As Date, - ByVal SRM_SLI_Irradiation_Date_7 As Date, - ByVal SRM_SLI_Irradiation_Date_8 As Date, - ByVal SRM_SLI_Irradiation_Date_9 As Date, - ByVal SRM_SLI_Irradiation_Date_10 As Date, - ByVal SRM_SLI_Not_In_Use As Boolean, - ByVal SRM_LLI_Weight As Single, - ByVal SRM_LLI_Irradiation_Date_1 As Date, - ByVal SRM_LLI_Irradiation_Date_2 As Date, - ByVal SRM_LLI_Irradiation_Date_3 As Date, - ByVal SRM_LLI_Irradiation_Date_4 As Date, - ByVal SRM_LLI_Irradiation_Date_5 As Date, - ByVal SRM_LLI_Irradiation_Date_6 As Date, - ByVal SRM_LLI_Irradiation_Date_7 As Date, - ByVal SRM_LLI_Irradiation_Date_8 As Date, - ByVal SRM_LLI_Irradiation_Date_9 As Date, - ByVal SRM_LLI_Irradiation_Date_10 As Date, + + _ + Public Overloads Function Addtable_SRMRow( _ + ByVal SRM_Set_Name As String, _ + ByVal SRM_Set_Number As String, _ + ByVal SRM_Set_Weight As Single, _ + ByVal SRM_Number As String, _ + ByVal SRM_SLI_Weight As Single, _ + ByVal SRM_SLI_Irradiation_Date_1 As Date, _ + ByVal SRM_SLI_Irradiation_Date_2 As Date, _ + ByVal SRM_SLI_Irradiation_Date_3 As Date, _ + ByVal SRM_SLI_Irradiation_Date_4 As Date, _ + ByVal SRM_SLI_Irradiation_Date_5 As Date, _ + ByVal SRM_SLI_Irradiation_Date_6 As Date, _ + ByVal SRM_SLI_Irradiation_Date_7 As Date, _ + ByVal SRM_SLI_Irradiation_Date_8 As Date, _ + ByVal SRM_SLI_Irradiation_Date_9 As Date, _ + ByVal SRM_SLI_Irradiation_Date_10 As Date, _ + ByVal SRM_SLI_Not_In_Use As Boolean, _ + ByVal SRM_LLI_Weight As Single, _ + ByVal SRM_LLI_Irradiation_Date_1 As Date, _ + ByVal SRM_LLI_Irradiation_Date_2 As Date, _ + ByVal SRM_LLI_Irradiation_Date_3 As Date, _ + ByVal SRM_LLI_Irradiation_Date_4 As Date, _ + ByVal SRM_LLI_Irradiation_Date_5 As Date, _ + ByVal SRM_LLI_Irradiation_Date_6 As Date, _ + ByVal SRM_LLI_Irradiation_Date_7 As Date, _ + ByVal SRM_LLI_Irradiation_Date_8 As Date, _ + ByVal SRM_LLI_Irradiation_Date_9 As Date, _ + ByVal SRM_LLI_Irradiation_Date_10 As Date, _ ByVal SRM_LLI_Not_In_Use As Boolean) As table_SRMRow - Dim rowtable_SRMRow As table_SRMRow = CType(Me.NewRow, table_SRMRow) + Dim rowtable_SRMRow As table_SRMRow = CType(Me.NewRow,table_SRMRow) Dim columnValuesArray() As Object = New Object() {SRM_Set_Name, SRM_Set_Number, SRM_Set_Weight, SRM_Number, SRM_SLI_Weight, SRM_SLI_Irradiation_Date_1, SRM_SLI_Irradiation_Date_2, SRM_SLI_Irradiation_Date_3, SRM_SLI_Irradiation_Date_4, SRM_SLI_Irradiation_Date_5, SRM_SLI_Irradiation_Date_6, SRM_SLI_Irradiation_Date_7, SRM_SLI_Irradiation_Date_8, SRM_SLI_Irradiation_Date_9, SRM_SLI_Irradiation_Date_10, SRM_SLI_Not_In_Use, SRM_LLI_Weight, SRM_LLI_Irradiation_Date_1, SRM_LLI_Irradiation_Date_2, SRM_LLI_Irradiation_Date_3, SRM_LLI_Irradiation_Date_4, SRM_LLI_Irradiation_Date_5, SRM_LLI_Irradiation_Date_6, SRM_LLI_Irradiation_Date_7, SRM_LLI_Irradiation_Date_8, SRM_LLI_Irradiation_Date_9, SRM_LLI_Irradiation_Date_10, SRM_LLI_Not_In_Use} rowtable_SRMRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_SRMRow) Return rowtable_SRMRow End Function - - + + _ Public Function FindBySRM_Set_NameSRM_Set_NumberSRM_Number(ByVal SRM_Set_Name As String, ByVal SRM_Set_Number As String, ByVal SRM_Number As String) As table_SRMRow - Return CType(Me.Rows.Find(New Object() {SRM_Set_Name, SRM_Set_Number, SRM_Number}), table_SRMRow) + Return CType(Me.Rows.Find(New Object() {SRM_Set_Name, SRM_Set_Number, SRM_Number}),table_SRMRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_SRMDataTable = CType(MyBase.Clone, table_SRMDataTable) + Dim cln As table_SRMDataTable = CType(MyBase.Clone,table_SRMDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_SRMDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnSRM_Set_Name = MyBase.Columns("SRM_Set_Name") Me.columnSRM_Set_Number = MyBase.Columns("SRM_Set_Number") @@ -8825,9 +8823,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnSRM_LLI_Irradiation_Date_10 = MyBase.Columns("SRM_LLI_Irradiation_Date_10") Me.columnSRM_LLI_Not_In_Use = MyBase.Columns("SRM_LLI_Not_In_Use") End Sub - - + + _ Private Sub InitClass() Me.columnSRM_Set_Name = New Global.System.Data.DataColumn("SRM_Set_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSRM_Set_Name) @@ -8885,78 +8883,78 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnSRM_LLI_Irradiation_Date_10) Me.columnSRM_LLI_Not_In_Use = New Global.System.Data.DataColumn("SRM_LLI_Not_In_Use", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSRM_LLI_Not_In_Use) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSRM_Set_Name, Me.columnSRM_Set_Number, Me.columnSRM_Number}, True)) - Me.columnSRM_Set_Name.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSRM_Set_Name, Me.columnSRM_Set_Number, Me.columnSRM_Number}, true)) + Me.columnSRM_Set_Name.AllowDBNull = false Me.columnSRM_Set_Name.MaxLength = 5 - Me.columnSRM_Set_Number.AllowDBNull = False + Me.columnSRM_Set_Number.AllowDBNull = false Me.columnSRM_Set_Number.MaxLength = 2 - Me.columnSRM_Set_Weight.AllowDBNull = False - Me.columnSRM_Number.AllowDBNull = False + Me.columnSRM_Set_Weight.AllowDBNull = false + Me.columnSRM_Number.AllowDBNull = false Me.columnSRM_Number.MaxLength = 3 End Sub - - + + _ Public Function Newtable_SRMRow() As table_SRMRow - Return CType(Me.NewRow, table_SRMRow) + Return CType(Me.NewRow,table_SRMRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_SRMRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_SRMRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_SRMRowChangedEvent) Is Nothing) Then - RaiseEvent table_SRMRowChanged(Me, New table_SRMRowChangeEvent(CType(e.Row, table_SRMRow), e.Action)) + RaiseEvent table_SRMRowChanged(Me, New table_SRMRowChangeEvent(CType(e.Row,table_SRMRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_SRMRowChangingEvent) Is Nothing) Then - RaiseEvent table_SRMRowChanging(Me, New table_SRMRowChangeEvent(CType(e.Row, table_SRMRow), e.Action)) + RaiseEvent table_SRMRowChanging(Me, New table_SRMRowChangeEvent(CType(e.Row,table_SRMRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_SRMRowDeletedEvent) Is Nothing) Then - RaiseEvent table_SRMRowDeleted(Me, New table_SRMRowChangeEvent(CType(e.Row, table_SRMRow), e.Action)) + RaiseEvent table_SRMRowDeleted(Me, New table_SRMRowChangeEvent(CType(e.Row,table_SRMRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_SRMRowDeletingEvent) Is Nothing) Then - RaiseEvent table_SRMRowDeleting(Me, New table_SRMRowChangeEvent(CType(e.Row, table_SRMRow), e.Action)) + RaiseEvent table_SRMRowDeleting(Me, New table_SRMRowChangeEvent(CType(e.Row,table_SRMRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_SRMRow(ByVal row As table_SRMRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -8985,28 +8983,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -9021,27 +9019,27 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_SRM_SetDataTable Inherits Global.System.Data.TypedTableBase(Of table_SRM_SetRow) - + Private columnSRM_Set_Name As Global.System.Data.DataColumn - + Private columnSRM_Set_Number As Global.System.Data.DataColumn - + Private columnSRM_Set_Type As Global.System.Data.DataColumn - + Private columnSRM_Set_Weight As Global.System.Data.DataColumn - + Private columnSRM_Set_Purchasing_Date As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_SRM_Set" @@ -9049,9 +9047,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9067,121 +9065,121 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property SRM_Set_NameColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Name End Get End Property - - + + _ Public ReadOnly Property SRM_Set_NumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Number End Get End Property - - + + _ Public ReadOnly Property SRM_Set_TypeColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Type End Get End Property - - + + _ Public ReadOnly Property SRM_Set_WeightColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Weight End Get End Property - - + + _ Public ReadOnly Property SRM_Set_Purchasing_DateColumn() As Global.System.Data.DataColumn Get Return Me.columnSRM_Set_Purchasing_Date End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_SRM_SetRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_SRM_SetRow Get - Return CType(Me.Rows(index), table_SRM_SetRow) + Return CType(Me.Rows(index),table_SRM_SetRow) End Get End Property - - + + _ Public Event table_SRM_SetRowChanging As table_SRM_SetRowChangeEventHandler - - + + _ Public Event table_SRM_SetRowChanged As table_SRM_SetRowChangeEventHandler - - + + _ Public Event table_SRM_SetRowDeleting As table_SRM_SetRowChangeEventHandler - - + + _ Public Event table_SRM_SetRowDeleted As table_SRM_SetRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_SRM_SetRow(ByVal row As table_SRM_SetRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function Addtable_SRM_SetRow(ByVal SRM_Set_Name As String, ByVal SRM_Set_Number As String, ByVal SRM_Set_Type As String, ByVal SRM_Set_Weight As Single, ByVal SRM_Set_Purchasing_Date As Date) As table_SRM_SetRow - Dim rowtable_SRM_SetRow As table_SRM_SetRow = CType(Me.NewRow, table_SRM_SetRow) + Dim rowtable_SRM_SetRow As table_SRM_SetRow = CType(Me.NewRow,table_SRM_SetRow) Dim columnValuesArray() As Object = New Object() {SRM_Set_Name, SRM_Set_Number, SRM_Set_Type, SRM_Set_Weight, SRM_Set_Purchasing_Date} rowtable_SRM_SetRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_SRM_SetRow) Return rowtable_SRM_SetRow End Function - - + + _ Public Function FindBySRM_Set_NameSRM_Set_Number(ByVal SRM_Set_Name As String, ByVal SRM_Set_Number As String) As table_SRM_SetRow - Return CType(Me.Rows.Find(New Object() {SRM_Set_Name, SRM_Set_Number}), table_SRM_SetRow) + Return CType(Me.Rows.Find(New Object() {SRM_Set_Name, SRM_Set_Number}),table_SRM_SetRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_SRM_SetDataTable = CType(MyBase.Clone, table_SRM_SetDataTable) + Dim cln As table_SRM_SetDataTable = CType(MyBase.Clone,table_SRM_SetDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_SRM_SetDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnSRM_Set_Name = MyBase.Columns("SRM_Set_Name") Me.columnSRM_Set_Number = MyBase.Columns("SRM_Set_Number") @@ -9189,9 +9187,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnSRM_Set_Weight = MyBase.Columns("SRM_Set_Weight") Me.columnSRM_Set_Purchasing_Date = MyBase.Columns("SRM_Set_Purchasing_Date") End Sub - - + + _ Private Sub InitClass() Me.columnSRM_Set_Name = New Global.System.Data.DataColumn("SRM_Set_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSRM_Set_Name) @@ -9203,79 +9201,79 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnSRM_Set_Weight) Me.columnSRM_Set_Purchasing_Date = New Global.System.Data.DataColumn("SRM_Set_Purchasing_Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSRM_Set_Purchasing_Date) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSRM_Set_Name, Me.columnSRM_Set_Number}, True)) - Me.columnSRM_Set_Name.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSRM_Set_Name, Me.columnSRM_Set_Number}, true)) + Me.columnSRM_Set_Name.AllowDBNull = false Me.columnSRM_Set_Name.MaxLength = 5 - Me.columnSRM_Set_Number.AllowDBNull = False + Me.columnSRM_Set_Number.AllowDBNull = false Me.columnSRM_Set_Number.MaxLength = 2 - Me.columnSRM_Set_Type.AllowDBNull = False + Me.columnSRM_Set_Type.AllowDBNull = false Me.columnSRM_Set_Type.MaxLength = 15 - Me.columnSRM_Set_Weight.AllowDBNull = False - Me.columnSRM_Set_Purchasing_Date.AllowDBNull = False + Me.columnSRM_Set_Weight.AllowDBNull = false + Me.columnSRM_Set_Purchasing_Date.AllowDBNull = false End Sub - - + + _ Public Function Newtable_SRM_SetRow() As table_SRM_SetRow - Return CType(Me.NewRow, table_SRM_SetRow) + Return CType(Me.NewRow,table_SRM_SetRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_SRM_SetRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_SRM_SetRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_SRM_SetRowChangedEvent) Is Nothing) Then - RaiseEvent table_SRM_SetRowChanged(Me, New table_SRM_SetRowChangeEvent(CType(e.Row, table_SRM_SetRow), e.Action)) + RaiseEvent table_SRM_SetRowChanged(Me, New table_SRM_SetRowChangeEvent(CType(e.Row,table_SRM_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_SRM_SetRowChangingEvent) Is Nothing) Then - RaiseEvent table_SRM_SetRowChanging(Me, New table_SRM_SetRowChangeEvent(CType(e.Row, table_SRM_SetRow), e.Action)) + RaiseEvent table_SRM_SetRowChanging(Me, New table_SRM_SetRowChangeEvent(CType(e.Row,table_SRM_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_SRM_SetRowDeletedEvent) Is Nothing) Then - RaiseEvent table_SRM_SetRowDeleted(Me, New table_SRM_SetRowChangeEvent(CType(e.Row, table_SRM_SetRow), e.Action)) + RaiseEvent table_SRM_SetRowDeleted(Me, New table_SRM_SetRowChangeEvent(CType(e.Row,table_SRM_SetRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_SRM_SetRowDeletingEvent) Is Nothing) Then - RaiseEvent table_SRM_SetRowDeleting(Me, New table_SRM_SetRowChangeEvent(CType(e.Row, table_SRM_SetRow), e.Action)) + RaiseEvent table_SRM_SetRowDeleting(Me, New table_SRM_SetRowChangeEvent(CType(e.Row,table_SRM_SetRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_SRM_SetRow(ByVal row As table_SRM_SetRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -9304,28 +9302,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -9340,515 +9338,515 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class table_Sample_NAA_ResultsDataTable Inherits Global.System.Data.TypedTableBase(Of table_Sample_NAA_ResultsRow) - + Private columnR_U_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_U_Error As Global.System.Data.DataColumn - + Private columnR_U_Concentaration As Global.System.Data.DataColumn - + Private columnR_U_Fact As Global.System.Data.DataColumn - + Private columnR_Th_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Th_Error As Global.System.Data.DataColumn - + Private columnR_Th_Concentaration As Global.System.Data.DataColumn - + Private columnR_Th_Fact As Global.System.Data.DataColumn - + Private columnR_Hg_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Hg_Error As Global.System.Data.DataColumn - + Private columnR_Hg_Concentaration As Global.System.Data.DataColumn - + Private columnR_Hg_Fact As Global.System.Data.DataColumn - + Private columnR_Au_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Au_Error As Global.System.Data.DataColumn - + Private columnR_Au_Concentaration As Global.System.Data.DataColumn - + Private columnR_Au_Fact As Global.System.Data.DataColumn - + Private columnR_Pt_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Pt_Error As Global.System.Data.DataColumn - + Private columnR_Pt_Concentaration As Global.System.Data.DataColumn - + Private columnR_Pt_Fact As Global.System.Data.DataColumn - + Private columnR_Ir_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ir_Error As Global.System.Data.DataColumn - + Private columnR_Ir_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ir_Fact As Global.System.Data.DataColumn - + Private columnR_Re_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Re_Error As Global.System.Data.DataColumn - + Private columnR_Re_Concentaration As Global.System.Data.DataColumn - + Private columnR_Re_Fact As Global.System.Data.DataColumn - + Private columnR_W_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_W_Error As Global.System.Data.DataColumn - + Private columnR_W_Concentaration As Global.System.Data.DataColumn - + Private columnR_W_Fact As Global.System.Data.DataColumn - + Private columnR_Ta_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ta_Error As Global.System.Data.DataColumn - + Private columnR_Ta_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ta_Fact As Global.System.Data.DataColumn - + Private columnR_Hf_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Hf_Error As Global.System.Data.DataColumn - + Private columnR_Hf_Concentaration As Global.System.Data.DataColumn - + Private columnR_Hf_Fact As Global.System.Data.DataColumn - + Private columnR_Lu_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Lu_Error As Global.System.Data.DataColumn - + Private columnR_Lu_Concentaration As Global.System.Data.DataColumn - + Private columnR_Lu_Fact As Global.System.Data.DataColumn - + Private columnR_Yb_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Yb_Error As Global.System.Data.DataColumn - + Private columnR_Yb_Concentaration As Global.System.Data.DataColumn - + Private columnR_Yb_Fact As Global.System.Data.DataColumn - + Private columnR_Tm_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Tm_Error As Global.System.Data.DataColumn - + Private columnR_Tm_Concentaration As Global.System.Data.DataColumn - + Private columnR_Tm_Fact As Global.System.Data.DataColumn - + Private columnR_Er_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Er_Error As Global.System.Data.DataColumn - + Private columnR_Er_Concentaration As Global.System.Data.DataColumn - + Private columnR_Er_Fact As Global.System.Data.DataColumn - + Private columnR_Dy_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Dy_Error As Global.System.Data.DataColumn - + Private columnR_Dy_Concentaration As Global.System.Data.DataColumn - + Private columnR_Dy_Fact As Global.System.Data.DataColumn - + Private columnR_Tb_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Tb_Error As Global.System.Data.DataColumn - + Private columnR_Tb_Concentaration As Global.System.Data.DataColumn - + Private columnR_Tb_Fact As Global.System.Data.DataColumn - + Private columnR_Gd_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Gd_Error As Global.System.Data.DataColumn - + Private columnR_Gd_Concentaration As Global.System.Data.DataColumn - + Private columnR_Gd_Fact As Global.System.Data.DataColumn - + Private columnR_Eu_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Eu_Error As Global.System.Data.DataColumn - + Private columnR_Eu_Concentaration As Global.System.Data.DataColumn - + Private columnR_Eu_Fact As Global.System.Data.DataColumn - + Private columnR_Sm_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sm_Error As Global.System.Data.DataColumn - + Private columnR_Sm_Concentaration As Global.System.Data.DataColumn - + Private columnR_Sm_Fact As Global.System.Data.DataColumn - + Private columnR_Nd_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Nd_Error As Global.System.Data.DataColumn - + Private columnR_Nd_Concentaration As Global.System.Data.DataColumn - + Private columnR_Nd_Fact As Global.System.Data.DataColumn - + Private columnR_Ce_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ce_Error As Global.System.Data.DataColumn - + Private columnR_Ce_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ce_Fact As Global.System.Data.DataColumn - + Private columnR_La_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_La_Error As Global.System.Data.DataColumn - + Private columnR_La_Concentaration As Global.System.Data.DataColumn - + Private columnR_La_Fact As Global.System.Data.DataColumn - + Private columnR_Ba_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ba_Error As Global.System.Data.DataColumn - + Private columnR_Ba_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ba_Fact As Global.System.Data.DataColumn - + Private columnR_Cs_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Cs_Error As Global.System.Data.DataColumn - + Private columnR_Cs_Concentaration As Global.System.Data.DataColumn - + Private columnR_Cs_Fact As Global.System.Data.DataColumn - + Private columnR_I_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_I_Error As Global.System.Data.DataColumn - + Private columnR_I_Concentaration As Global.System.Data.DataColumn - + Private columnR_I_Fact As Global.System.Data.DataColumn - + Private columnR_Sb_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sb_Error As Global.System.Data.DataColumn - + Private columnR_Sb_Concentaration As Global.System.Data.DataColumn - + Private columnR_Sb_Fact As Global.System.Data.DataColumn - + Private columnR_Sn_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sn_Error As Global.System.Data.DataColumn - + Private columnR_Sn_Concentaration As Global.System.Data.DataColumn - + Private columnR_Sn_Fact As Global.System.Data.DataColumn - + Private columnR_In_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_In_Error As Global.System.Data.DataColumn - + Private columnR_In_Concentaration As Global.System.Data.DataColumn - + Private columnR_In_Fact As Global.System.Data.DataColumn - + Private columnR_Cd_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Cd_Error As Global.System.Data.DataColumn - + Private columnR_Cd_Concentaration As Global.System.Data.DataColumn - + Private columnR_Cd_Fact As Global.System.Data.DataColumn - + Private columnR_Ag_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ag_Error As Global.System.Data.DataColumn - + Private columnR_Ag_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ag_Fact As Global.System.Data.DataColumn - + Private columnR_Ru_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ru_Error As Global.System.Data.DataColumn - + Private columnR_Ru_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ru_Fact As Global.System.Data.DataColumn - + Private columnR_Mo_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Mo_Error As Global.System.Data.DataColumn - + Private columnR_Mo_Concentaration As Global.System.Data.DataColumn - + Private columnR_Mo_Fact As Global.System.Data.DataColumn - + Private columnR_Nb_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Nb_Error As Global.System.Data.DataColumn - + Private columnR_Nb_Concentaration As Global.System.Data.DataColumn - + Private columnR_Zr_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Nb_Fact As Global.System.Data.DataColumn - + Private columnR_Zr_Error As Global.System.Data.DataColumn - + Private columnR_Zr_Concentaration As Global.System.Data.DataColumn - + Private columnR_Zr_Fact As Global.System.Data.DataColumn - + Private columnR_Y_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Y_Error As Global.System.Data.DataColumn - + Private columnR_Y_Concentaration As Global.System.Data.DataColumn - + Private columnR_Y_Fact As Global.System.Data.DataColumn - + Private columnR_Sr_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sr_Error As Global.System.Data.DataColumn - + Private columnR_Sr_Concentaration As Global.System.Data.DataColumn - + Private columnR_Rb_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sr_Fact As Global.System.Data.DataColumn - + Private columnR_Rb_Error As Global.System.Data.DataColumn - + Private columnR_Rb_Concentaration As Global.System.Data.DataColumn - + Private columnR_Rb_Fact As Global.System.Data.DataColumn - + Private columnR_Br_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Br_Error As Global.System.Data.DataColumn - + Private columnR_Br_Concentaration As Global.System.Data.DataColumn - + Private columnR_Br_Fact As Global.System.Data.DataColumn - + Private columnR_Se_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Se_Error As Global.System.Data.DataColumn - + Private columnR_Se_Concentaration As Global.System.Data.DataColumn - + Private columnR_Se_Fact As Global.System.Data.DataColumn - + Private columnR_As_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_As_Error As Global.System.Data.DataColumn - + Private columnR_As_Concentaration As Global.System.Data.DataColumn - + Private columnR_As_Fact As Global.System.Data.DataColumn - + Private columnR_Ga_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ga_Error As Global.System.Data.DataColumn - + Private columnR_Ga_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ga_Fact As Global.System.Data.DataColumn - + Private columnR_Zn_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Zn_Error As Global.System.Data.DataColumn - + Private columnR_Zn_Concentaration As Global.System.Data.DataColumn - + Private columnR_Zn_Fact As Global.System.Data.DataColumn - + Private columnR_Cu_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Cu_Error As Global.System.Data.DataColumn - + Private columnR_Cu_Concentaration As Global.System.Data.DataColumn - + Private columnR_Cu_Fact As Global.System.Data.DataColumn - + Private columnR_Co_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Co_Error As Global.System.Data.DataColumn - + Private columnR_Co_Concentaration As Global.System.Data.DataColumn - + Private columnR_Co_Fact As Global.System.Data.DataColumn - + Private columnR_Fe_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Fe_Error As Global.System.Data.DataColumn - + Private columnR_Fe_Concentaration As Global.System.Data.DataColumn - + Private columnR_Fe_Fact As Global.System.Data.DataColumn - + Private columnR_Mn_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Mn_Error As Global.System.Data.DataColumn - + Private columnR_F_Fact As Global.System.Data.DataColumn - + Private columnR_F_Concentaration As Global.System.Data.DataColumn - + Private columnR_F_Error As Global.System.Data.DataColumn - + Private columnR_F_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Na_Fact As Global.System.Data.DataColumn - + Private columnR_Na_Concentaration As Global.System.Data.DataColumn - + Private columnR_Na_Error As Global.System.Data.DataColumn - + Private columnR_Na_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Mg_Fact As Global.System.Data.DataColumn - + Private columnR_Mg_Concentaration As Global.System.Data.DataColumn - + Private columnR_Mg_Error As Global.System.Data.DataColumn - + Private columnR_Mg_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Al_Fact As Global.System.Data.DataColumn - + Private columnR_Al_Concentaration As Global.System.Data.DataColumn - + Private columnR_Al_Error As Global.System.Data.DataColumn - + Private columnR_Si_Fact As Global.System.Data.DataColumn - + Private columnR_Al_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Si_Concentaration As Global.System.Data.DataColumn - + Private columnR_Si_Error As Global.System.Data.DataColumn - + Private columnR_Si_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_S_Fact As Global.System.Data.DataColumn - + Private columnR_S_Concentaration As Global.System.Data.DataColumn - + Private columnR_S_Error As Global.System.Data.DataColumn - + Private columnR_S_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Cl_Fact As Global.System.Data.DataColumn - + Private columnR_Cl_Concentaration As Global.System.Data.DataColumn - + Private columnR_Cl_Error As Global.System.Data.DataColumn - + Private columnR_Cl_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_K_Fact As Global.System.Data.DataColumn - + Private columnR_K_Concentaration As Global.System.Data.DataColumn - + Private columnR_K_Error As Global.System.Data.DataColumn - + Private columnR_K_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ca_Fact As Global.System.Data.DataColumn - + Private columnR_Ca_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ca_Error As Global.System.Data.DataColumn - + Private columnR_Ca_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Sc_Fact As Global.System.Data.DataColumn - + Private columnR_Sc_Concentaration As Global.System.Data.DataColumn - + Private columnR_Sc_Error As Global.System.Data.DataColumn - + Private columnR_Sc_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Ti_Fact As Global.System.Data.DataColumn - + Private columnR_Ti_Concentaration As Global.System.Data.DataColumn - + Private columnR_Ti_Error As Global.System.Data.DataColumn - + Private columnR_Ti_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_V_Fact As Global.System.Data.DataColumn - + Private columnR_V_Concentaration As Global.System.Data.DataColumn - + Private columnR_V_Error As Global.System.Data.DataColumn - + Private columnR_V_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Cr_Fact As Global.System.Data.DataColumn - + Private columnR_Cr_Concentaration As Global.System.Data.DataColumn - + Private columnR_Cr_Error As Global.System.Data.DataColumn - + Private columnR_Cr_Detection_Limit As Global.System.Data.DataColumn - + Private columnR_Mn_Fact As Global.System.Data.DataColumn - + Private columnR_Mn_Concentaration As Global.System.Data.DataColumn - + Private columnA_Sample_ID As Global.System.Data.DataColumn - + Private columnF_Country_Code As Global.System.Data.DataColumn - + Private columnF_Client_ID As Global.System.Data.DataColumn - + Private columnF_Year As Global.System.Data.DataColumn - + Private columnF_Sample_Set_ID As Global.System.Data.DataColumn - + Private columnF_Sample_Set_Index As Global.System.Data.DataColumn - + Private columnR_Processed_By As Global.System.Data.DataColumn - + Private columnR_File_Spectrum As Global.System.Data.DataColumn - + Private columnA_Client_Sample_ID As Global.System.Data.DataColumn - + Private columnA_Latitude As Global.System.Data.DataColumn - + Private columnA_Longitude As Global.System.Data.DataColumn - + Private columnA_Collection_Place As Global.System.Data.DataColumn - + Private columnA_Notes As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "table_Sample_NAA_Results" @@ -9856,9 +9854,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.InitClass Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -9874,2322 +9872,2322 @@ Partial Public Class NAA_DB_EXPDataSet Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub - - + + _ Public ReadOnly Property R_U_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_U_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_U_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_U_Error End Get End Property - - + + _ Public ReadOnly Property R_U_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_U_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_U_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_U_Fact End Get End Property - - + + _ Public ReadOnly Property R_Th_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Th_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Th_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Th_Error End Get End Property - - + + _ Public ReadOnly Property R_Th_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Th_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Th_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Th_Fact End Get End Property - - + + _ Public ReadOnly Property R_Hg_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hg_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Hg_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hg_Error End Get End Property - - + + _ Public ReadOnly Property R_Hg_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hg_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Hg_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hg_Fact End Get End Property - - + + _ Public ReadOnly Property R_Au_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Au_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Au_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Au_Error End Get End Property - - + + _ Public ReadOnly Property R_Au_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Au_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Au_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Au_Fact End Get End Property - - + + _ Public ReadOnly Property R_Pt_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Pt_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Pt_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Pt_Error End Get End Property - - + + _ Public ReadOnly Property R_Pt_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Pt_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Pt_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Pt_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ir_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ir_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ir_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ir_Error End Get End Property - - + + _ Public ReadOnly Property R_Ir_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ir_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ir_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ir_Fact End Get End Property - - + + _ Public ReadOnly Property R_Re_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Re_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Re_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Re_Error End Get End Property - - + + _ Public ReadOnly Property R_Re_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Re_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Re_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Re_Fact End Get End Property - - + + _ Public ReadOnly Property R_W_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_W_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_W_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_W_Error End Get End Property - - + + _ Public ReadOnly Property R_W_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_W_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_W_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_W_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ta_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ta_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ta_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ta_Error End Get End Property - - + + _ Public ReadOnly Property R_Ta_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ta_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ta_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ta_Fact End Get End Property - - + + _ Public ReadOnly Property R_Hf_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hf_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Hf_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hf_Error End Get End Property - - + + _ Public ReadOnly Property R_Hf_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hf_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Hf_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Hf_Fact End Get End Property - - + + _ Public ReadOnly Property R_Lu_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Lu_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Lu_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Lu_Error End Get End Property - - + + _ Public ReadOnly Property R_Lu_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Lu_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Lu_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Lu_Fact End Get End Property - - + + _ Public ReadOnly Property R_Yb_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Yb_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Yb_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Yb_Error End Get End Property - - + + _ Public ReadOnly Property R_Yb_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Yb_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Yb_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Yb_Fact End Get End Property - - + + _ Public ReadOnly Property R_Tm_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tm_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Tm_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tm_Error End Get End Property - - + + _ Public ReadOnly Property R_Tm_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tm_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Tm_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tm_Fact End Get End Property - - + + _ Public ReadOnly Property R_Er_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Er_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Er_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Er_Error End Get End Property - - + + _ Public ReadOnly Property R_Er_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Er_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Er_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Er_Fact End Get End Property - - + + _ Public ReadOnly Property R_Dy_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Dy_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Dy_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Dy_Error End Get End Property - - + + _ Public ReadOnly Property R_Dy_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Dy_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Dy_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Dy_Fact End Get End Property - - + + _ Public ReadOnly Property R_Tb_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tb_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Tb_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tb_Error End Get End Property - - + + _ Public ReadOnly Property R_Tb_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tb_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Tb_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Tb_Fact End Get End Property - - + + _ Public ReadOnly Property R_Gd_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Gd_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Gd_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Gd_Error End Get End Property - - + + _ Public ReadOnly Property R_Gd_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Gd_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Gd_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Gd_Fact End Get End Property - - + + _ Public ReadOnly Property R_Eu_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Eu_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Eu_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Eu_Error End Get End Property - - + + _ Public ReadOnly Property R_Eu_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Eu_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Eu_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Eu_Fact End Get End Property - - + + _ Public ReadOnly Property R_Sm_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sm_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sm_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sm_Error End Get End Property - - + + _ Public ReadOnly Property R_Sm_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sm_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Sm_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sm_Fact End Get End Property - - + + _ Public ReadOnly Property R_Nd_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nd_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Nd_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nd_Error End Get End Property - - + + _ Public ReadOnly Property R_Nd_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nd_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Nd_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nd_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ce_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ce_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ce_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ce_Error End Get End Property - - + + _ Public ReadOnly Property R_Ce_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ce_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ce_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ce_Fact End Get End Property - - + + _ Public ReadOnly Property R_La_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_La_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_La_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_La_Error End Get End Property - - + + _ Public ReadOnly Property R_La_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_La_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_La_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_La_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ba_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ba_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ba_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ba_Error End Get End Property - - + + _ Public ReadOnly Property R_Ba_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ba_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ba_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ba_Fact End Get End Property - - + + _ Public ReadOnly Property R_Cs_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cs_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Cs_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cs_Error End Get End Property - - + + _ Public ReadOnly Property R_Cs_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cs_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Cs_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cs_Fact End Get End Property - - + + _ Public ReadOnly Property R_I_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_I_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_I_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_I_Error End Get End Property - - + + _ Public ReadOnly Property R_I_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_I_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_I_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_I_Fact End Get End Property - - + + _ Public ReadOnly Property R_Sb_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sb_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sb_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sb_Error End Get End Property - - + + _ Public ReadOnly Property R_Sb_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sb_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Sb_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sb_Fact End Get End Property - - + + _ Public ReadOnly Property R_Sn_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sn_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sn_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sn_Error End Get End Property - - + + _ Public ReadOnly Property R_Sn_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sn_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Sn_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sn_Fact End Get End Property - - + + _ Public ReadOnly Property R_In_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_In_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_In_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_In_Error End Get End Property - - + + _ Public ReadOnly Property R_In_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_In_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_In_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_In_Fact End Get End Property - - + + _ Public ReadOnly Property R_Cd_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cd_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Cd_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cd_Error End Get End Property - - + + _ Public ReadOnly Property R_Cd_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cd_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Cd_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cd_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ag_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ag_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ag_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ag_Error End Get End Property - - + + _ Public ReadOnly Property R_Ag_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ag_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ag_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ag_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ru_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ru_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ru_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ru_Error End Get End Property - - + + _ Public ReadOnly Property R_Ru_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ru_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ru_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ru_Fact End Get End Property - - + + _ Public ReadOnly Property R_Mo_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mo_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Mo_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mo_Error End Get End Property - - + + _ Public ReadOnly Property R_Mo_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mo_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Mo_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mo_Fact End Get End Property - - + + _ Public ReadOnly Property R_Nb_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nb_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Nb_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nb_Error End Get End Property - - + + _ Public ReadOnly Property R_Nb_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nb_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Zr_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zr_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Nb_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Nb_Fact End Get End Property - - + + _ Public ReadOnly Property R_Zr_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zr_Error End Get End Property - - + + _ Public ReadOnly Property R_Zr_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zr_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Zr_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zr_Fact End Get End Property - - + + _ Public ReadOnly Property R_Y_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Y_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Y_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Y_Error End Get End Property - - + + _ Public ReadOnly Property R_Y_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Y_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Y_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Y_Fact End Get End Property - - + + _ Public ReadOnly Property R_Sr_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sr_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sr_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sr_Error End Get End Property - - + + _ Public ReadOnly Property R_Sr_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sr_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Rb_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Rb_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sr_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sr_Fact End Get End Property - - + + _ Public ReadOnly Property R_Rb_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Rb_Error End Get End Property - - + + _ Public ReadOnly Property R_Rb_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Rb_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Rb_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Rb_Fact End Get End Property - - + + _ Public ReadOnly Property R_Br_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Br_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Br_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Br_Error End Get End Property - - + + _ Public ReadOnly Property R_Br_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Br_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Br_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Br_Fact End Get End Property - - + + _ Public ReadOnly Property R_Se_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Se_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Se_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Se_Error End Get End Property - - + + _ Public ReadOnly Property R_Se_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Se_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Se_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Se_Fact End Get End Property - - + + _ Public ReadOnly Property R_As_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_As_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_As_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_As_Error End Get End Property - - + + _ Public ReadOnly Property R_As_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_As_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_As_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_As_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ga_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ga_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ga_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ga_Error End Get End Property - - + + _ Public ReadOnly Property R_Ga_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ga_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ga_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ga_Fact End Get End Property - - + + _ Public ReadOnly Property R_Zn_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zn_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Zn_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zn_Error End Get End Property - - + + _ Public ReadOnly Property R_Zn_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zn_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Zn_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Zn_Fact End Get End Property - - + + _ Public ReadOnly Property R_Cu_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cu_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Cu_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cu_Error End Get End Property - - + + _ Public ReadOnly Property R_Cu_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cu_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Cu_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cu_Fact End Get End Property - - + + _ Public ReadOnly Property R_Co_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Co_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Co_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Co_Error End Get End Property - - + + _ Public ReadOnly Property R_Co_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Co_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Co_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Co_Fact End Get End Property - - + + _ Public ReadOnly Property R_Fe_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Fe_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Fe_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Fe_Error End Get End Property - - + + _ Public ReadOnly Property R_Fe_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Fe_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Fe_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Fe_Fact End Get End Property - - + + _ Public ReadOnly Property R_Mn_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mn_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Mn_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mn_Error End Get End Property - - + + _ Public ReadOnly Property R_F_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_F_Fact End Get End Property - - + + _ Public ReadOnly Property R_F_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_F_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_F_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_F_Error End Get End Property - - + + _ Public ReadOnly Property R_F_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_F_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Na_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Na_Fact End Get End Property - - + + _ Public ReadOnly Property R_Na_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Na_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Na_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Na_Error End Get End Property - - + + _ Public ReadOnly Property R_Na_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Na_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Mg_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mg_Fact End Get End Property - - + + _ Public ReadOnly Property R_Mg_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mg_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Mg_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mg_Error End Get End Property - - + + _ Public ReadOnly Property R_Mg_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mg_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Al_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Al_Fact End Get End Property - - + + _ Public ReadOnly Property R_Al_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Al_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Al_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Al_Error End Get End Property - - + + _ Public ReadOnly Property R_Si_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Si_Fact End Get End Property - - + + _ Public ReadOnly Property R_Al_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Al_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Si_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Si_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Si_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Si_Error End Get End Property - - + + _ Public ReadOnly Property R_Si_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Si_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_S_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_S_Fact End Get End Property - - + + _ Public ReadOnly Property R_S_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_S_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_S_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_S_Error End Get End Property - - + + _ Public ReadOnly Property R_S_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_S_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Cl_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cl_Fact End Get End Property - - + + _ Public ReadOnly Property R_Cl_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cl_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Cl_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cl_Error End Get End Property - - + + _ Public ReadOnly Property R_Cl_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cl_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_K_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_K_Fact End Get End Property - - + + _ Public ReadOnly Property R_K_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_K_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_K_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_K_Error End Get End Property - - + + _ Public ReadOnly Property R_K_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_K_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ca_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ca_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ca_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ca_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ca_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ca_Error End Get End Property - - + + _ Public ReadOnly Property R_Ca_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ca_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Sc_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sc_Fact End Get End Property - - + + _ Public ReadOnly Property R_Sc_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sc_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Sc_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sc_Error End Get End Property - - + + _ Public ReadOnly Property R_Sc_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Sc_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Ti_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ti_Fact End Get End Property - - + + _ Public ReadOnly Property R_Ti_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ti_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Ti_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ti_Error End Get End Property - - + + _ Public ReadOnly Property R_Ti_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Ti_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_V_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_V_Fact End Get End Property - - + + _ Public ReadOnly Property R_V_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_V_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_V_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_V_Error End Get End Property - - + + _ Public ReadOnly Property R_V_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_V_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Cr_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cr_Fact End Get End Property - - + + _ Public ReadOnly Property R_Cr_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cr_Concentaration End Get End Property - - + + _ Public ReadOnly Property R_Cr_ErrorColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cr_Error End Get End Property - - + + _ Public ReadOnly Property R_Cr_Detection_LimitColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Cr_Detection_Limit End Get End Property - - + + _ Public ReadOnly Property R_Mn_FactColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mn_Fact End Get End Property - - + + _ Public ReadOnly Property R_Mn_ConcentarationColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Mn_Concentaration End Get End Property - - + + _ Public ReadOnly Property A_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Sample_ID End Get End Property - - + + _ Public ReadOnly Property F_Country_CodeColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Country_Code End Get End Property - - + + _ Public ReadOnly Property F_Client_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Client_ID End Get End Property - - + + _ Public ReadOnly Property F_YearColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Year End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_ID End Get End Property - - + + _ Public ReadOnly Property F_Sample_Set_IndexColumn() As Global.System.Data.DataColumn Get Return Me.columnF_Sample_Set_Index End Get End Property - - + + _ Public ReadOnly Property R_Processed_ByColumn() As Global.System.Data.DataColumn Get Return Me.columnR_Processed_By End Get End Property - - + + _ Public ReadOnly Property R_File_SpectrumColumn() As Global.System.Data.DataColumn Get Return Me.columnR_File_Spectrum End Get End Property - - + + _ Public ReadOnly Property A_Client_Sample_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Client_Sample_ID End Get End Property - - + + _ Public ReadOnly Property A_LatitudeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Latitude End Get End Property - - + + _ Public ReadOnly Property A_LongitudeColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Longitude End Get End Property - - + + _ Public ReadOnly Property A_Collection_PlaceColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Collection_Place End Get End Property - - + + _ Public ReadOnly Property A_NotesColumn() As Global.System.Data.DataColumn Get Return Me.columnA_Notes End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As table_Sample_NAA_ResultsRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As table_Sample_NAA_ResultsRow Get - Return CType(Me.Rows(index), table_Sample_NAA_ResultsRow) + Return CType(Me.Rows(index),table_Sample_NAA_ResultsRow) End Get End Property - - + + _ Public Event table_Sample_NAA_ResultsRowChanging As table_Sample_NAA_ResultsRowChangeEventHandler - - + + _ Public Event table_Sample_NAA_ResultsRowChanged As table_Sample_NAA_ResultsRowChangeEventHandler - - + + _ Public Event table_Sample_NAA_ResultsRowDeleting As table_Sample_NAA_ResultsRowChangeEventHandler - - + + _ Public Event table_Sample_NAA_ResultsRowDeleted As table_Sample_NAA_ResultsRowChangeEventHandler - - + + _ Public Overloads Sub Addtable_Sample_NAA_ResultsRow(ByVal row As table_Sample_NAA_ResultsRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function Addtable_Sample_NAA_ResultsRow( - ByVal R_U_Detection_Limit As Single, - ByVal R_U_Error As Single, - ByVal R_U_Concentaration As Single, - ByVal R_U_Fact As Boolean, - ByVal R_Th_Detection_Limit As Single, - ByVal R_Th_Error As Single, - ByVal R_Th_Concentaration As Single, - ByVal R_Th_Fact As Boolean, - ByVal R_Hg_Detection_Limit As Single, - ByVal R_Hg_Error As Single, - ByVal R_Hg_Concentaration As Single, - ByVal R_Hg_Fact As Boolean, - ByVal R_Au_Detection_Limit As Single, - ByVal R_Au_Error As Single, - ByVal R_Au_Concentaration As Single, - ByVal R_Au_Fact As Boolean, - ByVal R_Pt_Detection_Limit As Single, - ByVal R_Pt_Error As Single, - ByVal R_Pt_Concentaration As Single, - ByVal R_Pt_Fact As Boolean, - ByVal R_Ir_Detection_Limit As Single, - ByVal R_Ir_Error As Single, - ByVal R_Ir_Concentaration As Single, - ByVal R_Ir_Fact As Boolean, - ByVal R_Re_Detection_Limit As Single, - ByVal R_Re_Error As Single, - ByVal R_Re_Concentaration As Single, - ByVal R_Re_Fact As Boolean, - ByVal R_W_Detection_Limit As Single, - ByVal R_W_Error As Single, - ByVal R_W_Concentaration As Single, - ByVal R_W_Fact As Boolean, - ByVal R_Ta_Detection_Limit As Single, - ByVal R_Ta_Error As Single, - ByVal R_Ta_Concentaration As Single, - ByVal R_Ta_Fact As Boolean, - ByVal R_Hf_Detection_Limit As Single, - ByVal R_Hf_Error As Single, - ByVal R_Hf_Concentaration As Single, - ByVal R_Hf_Fact As Boolean, - ByVal R_Lu_Detection_Limit As Single, - ByVal R_Lu_Error As Single, - ByVal R_Lu_Concentaration As Single, - ByVal R_Lu_Fact As Boolean, - ByVal R_Yb_Detection_Limit As Single, - ByVal R_Yb_Error As Single, - ByVal R_Yb_Concentaration As Single, - ByVal R_Yb_Fact As Boolean, - ByVal R_Tm_Detection_Limit As Single, - ByVal R_Tm_Error As Single, - ByVal R_Tm_Concentaration As Single, - ByVal R_Tm_Fact As Boolean, - ByVal R_Er_Detection_Limit As Single, - ByVal R_Er_Error As Single, - ByVal R_Er_Concentaration As Single, - ByVal R_Er_Fact As Boolean, - ByVal R_Dy_Detection_Limit As Single, - ByVal R_Dy_Error As Single, - ByVal R_Dy_Concentaration As Single, - ByVal R_Dy_Fact As Boolean, - ByVal R_Tb_Detection_Limit As Single, - ByVal R_Tb_Error As Single, - ByVal R_Tb_Concentaration As Single, - ByVal R_Tb_Fact As Boolean, - ByVal R_Gd_Detection_Limit As Single, - ByVal R_Gd_Error As Single, - ByVal R_Gd_Concentaration As Single, - ByVal R_Gd_Fact As Boolean, - ByVal R_Eu_Detection_Limit As Single, - ByVal R_Eu_Error As Single, - ByVal R_Eu_Concentaration As Single, - ByVal R_Eu_Fact As Boolean, - ByVal R_Sm_Detection_Limit As Single, - ByVal R_Sm_Error As Single, - ByVal R_Sm_Concentaration As Single, - ByVal R_Sm_Fact As Boolean, - ByVal R_Nd_Detection_Limit As Single, - ByVal R_Nd_Error As Single, - ByVal R_Nd_Concentaration As Single, - ByVal R_Nd_Fact As Boolean, - ByVal R_Ce_Detection_Limit As Single, - ByVal R_Ce_Error As Single, - ByVal R_Ce_Concentaration As Single, - ByVal R_Ce_Fact As Boolean, - ByVal R_La_Detection_Limit As Single, - ByVal R_La_Error As Single, - ByVal R_La_Concentaration As Single, - ByVal R_La_Fact As Boolean, - ByVal R_Ba_Detection_Limit As Single, - ByVal R_Ba_Error As Single, - ByVal R_Ba_Concentaration As Single, - ByVal R_Ba_Fact As Boolean, - ByVal R_Cs_Detection_Limit As Single, - ByVal R_Cs_Error As Single, - ByVal R_Cs_Concentaration As Single, - ByVal R_Cs_Fact As Boolean, - ByVal R_I_Detection_Limit As Single, - ByVal R_I_Error As Single, - ByVal R_I_Concentaration As Single, - ByVal R_I_Fact As Boolean, - ByVal R_Sb_Detection_Limit As Single, - ByVal R_Sb_Error As Single, - ByVal R_Sb_Concentaration As Single, - ByVal R_Sb_Fact As Boolean, - ByVal R_Sn_Detection_Limit As Single, - ByVal R_Sn_Error As Single, - ByVal R_Sn_Concentaration As Single, - ByVal R_Sn_Fact As Boolean, - ByVal R_In_Detection_Limit As Single, - ByVal R_In_Error As Single, - ByVal R_In_Concentaration As Single, - ByVal R_In_Fact As Boolean, - ByVal R_Cd_Detection_Limit As Single, - ByVal R_Cd_Error As Single, - ByVal R_Cd_Concentaration As Single, - ByVal R_Cd_Fact As Boolean, - ByVal R_Ag_Detection_Limit As Single, - ByVal R_Ag_Error As Single, - ByVal R_Ag_Concentaration As Single, - ByVal R_Ag_Fact As Boolean, - ByVal R_Ru_Detection_Limit As Single, - ByVal R_Ru_Error As Single, - ByVal R_Ru_Concentaration As Single, - ByVal R_Ru_Fact As Boolean, - ByVal R_Mo_Detection_Limit As Single, - ByVal R_Mo_Error As Single, - ByVal R_Mo_Concentaration As Single, - ByVal R_Mo_Fact As Boolean, - ByVal R_Nb_Detection_Limit As Single, - ByVal R_Nb_Error As Single, - ByVal R_Nb_Concentaration As Single, - ByVal R_Zr_Detection_Limit As Single, - ByVal R_Nb_Fact As Boolean, - ByVal R_Zr_Error As Single, - ByVal R_Zr_Concentaration As Single, - ByVal R_Zr_Fact As Boolean, - ByVal R_Y_Detection_Limit As Single, - ByVal R_Y_Error As Single, - ByVal R_Y_Concentaration As Single, - ByVal R_Y_Fact As Boolean, - ByVal R_Sr_Detection_Limit As Single, - ByVal R_Sr_Error As Single, - ByVal R_Sr_Concentaration As Single, - ByVal R_Rb_Detection_Limit As Single, - ByVal R_Sr_Fact As Boolean, - ByVal R_Rb_Error As Single, - ByVal R_Rb_Concentaration As Single, - ByVal R_Rb_Fact As Boolean, - ByVal R_Br_Detection_Limit As Single, - ByVal R_Br_Error As Single, - ByVal R_Br_Concentaration As Single, - ByVal R_Br_Fact As Boolean, - ByVal R_Se_Detection_Limit As Single, - ByVal R_Se_Error As Single, - ByVal R_Se_Concentaration As Single, - ByVal R_Se_Fact As Boolean, - ByVal R_As_Detection_Limit As Single, - ByVal R_As_Error As Single, - ByVal R_As_Concentaration As Single, - ByVal R_As_Fact As Boolean, - ByVal R_Ga_Detection_Limit As Single, - ByVal R_Ga_Error As Single, - ByVal R_Ga_Concentaration As Single, - ByVal R_Ga_Fact As Boolean, - ByVal R_Zn_Detection_Limit As Single, - ByVal R_Zn_Error As Single, - ByVal R_Zn_Concentaration As Single, - ByVal R_Zn_Fact As Boolean, - ByVal R_Cu_Detection_Limit As Single, - ByVal R_Cu_Error As Single, - ByVal R_Cu_Concentaration As Single, - ByVal R_Cu_Fact As Boolean, - ByVal R_Co_Detection_Limit As Single, - ByVal R_Co_Error As Single, - ByVal R_Co_Concentaration As Single, - ByVal R_Co_Fact As Boolean, - ByVal R_Fe_Detection_Limit As Single, - ByVal R_Fe_Error As Single, - ByVal R_Fe_Concentaration As Single, - ByVal R_Fe_Fact As Boolean, - ByVal R_Mn_Detection_Limit As Single, - ByVal R_Mn_Error As Single, - ByVal R_F_Fact As Boolean, - ByVal R_F_Concentaration As Single, - ByVal R_F_Error As Single, - ByVal R_F_Detection_Limit As Single, - ByVal R_Na_Fact As Boolean, - ByVal R_Na_Concentaration As Single, - ByVal R_Na_Error As Single, - ByVal R_Na_Detection_Limit As Single, - ByVal R_Mg_Fact As Boolean, - ByVal R_Mg_Concentaration As Single, - ByVal R_Mg_Error As Single, - ByVal R_Mg_Detection_Limit As Single, - ByVal R_Al_Fact As Boolean, - ByVal R_Al_Concentaration As Single, - ByVal R_Al_Error As Single, - ByVal R_Si_Fact As Boolean, - ByVal R_Al_Detection_Limit As Single, - ByVal R_Si_Concentaration As Single, - ByVal R_Si_Error As Single, - ByVal R_Si_Detection_Limit As Single, - ByVal R_S_Fact As Boolean, - ByVal R_S_Concentaration As Single, - ByVal R_S_Error As Single, - ByVal R_S_Detection_Limit As Single, - ByVal R_Cl_Fact As Boolean, - ByVal R_Cl_Concentaration As Single, - ByVal R_Cl_Error As Single, - ByVal R_Cl_Detection_Limit As Single, - ByVal R_K_Fact As Boolean, - ByVal R_K_Concentaration As Single, - ByVal R_K_Error As Single, - ByVal R_K_Detection_Limit As Single, - ByVal R_Ca_Fact As Boolean, - ByVal R_Ca_Concentaration As Single, - ByVal R_Ca_Error As Single, - ByVal R_Ca_Detection_Limit As Single, - ByVal R_Sc_Fact As Boolean, - ByVal R_Sc_Concentaration As Single, - ByVal R_Sc_Error As Single, - ByVal R_Sc_Detection_Limit As Single, - ByVal R_Ti_Fact As Boolean, - ByVal R_Ti_Concentaration As Single, - ByVal R_Ti_Error As Single, - ByVal R_Ti_Detection_Limit As Single, - ByVal R_V_Fact As Boolean, - ByVal R_V_Concentaration As Single, - ByVal R_V_Error As Single, - ByVal R_V_Detection_Limit As Single, - ByVal R_Cr_Fact As Boolean, - ByVal R_Cr_Concentaration As Single, - ByVal R_Cr_Error As Single, - ByVal R_Cr_Detection_Limit As Single, - ByVal R_Mn_Fact As Boolean, - ByVal R_Mn_Concentaration As Single, - ByVal A_Sample_ID As String, - ByVal F_Country_Code As String, - ByVal F_Client_ID As String, - ByVal F_Year As String, - ByVal F_Sample_Set_ID As String, - ByVal F_Sample_Set_Index As String, - ByVal R_Processed_By As String, - ByVal R_File_Spectrum As String, - ByVal A_Client_Sample_ID As String, - ByVal A_Latitude As String, - ByVal A_Longitude As String, - ByVal A_Collection_Place As String, + + _ + Public Overloads Function Addtable_Sample_NAA_ResultsRow( _ + ByVal R_U_Detection_Limit As Single, _ + ByVal R_U_Error As Single, _ + ByVal R_U_Concentaration As Single, _ + ByVal R_U_Fact As Boolean, _ + ByVal R_Th_Detection_Limit As Single, _ + ByVal R_Th_Error As Single, _ + ByVal R_Th_Concentaration As Single, _ + ByVal R_Th_Fact As Boolean, _ + ByVal R_Hg_Detection_Limit As Single, _ + ByVal R_Hg_Error As Single, _ + ByVal R_Hg_Concentaration As Single, _ + ByVal R_Hg_Fact As Boolean, _ + ByVal R_Au_Detection_Limit As Single, _ + ByVal R_Au_Error As Single, _ + ByVal R_Au_Concentaration As Single, _ + ByVal R_Au_Fact As Boolean, _ + ByVal R_Pt_Detection_Limit As Single, _ + ByVal R_Pt_Error As Single, _ + ByVal R_Pt_Concentaration As Single, _ + ByVal R_Pt_Fact As Boolean, _ + ByVal R_Ir_Detection_Limit As Single, _ + ByVal R_Ir_Error As Single, _ + ByVal R_Ir_Concentaration As Single, _ + ByVal R_Ir_Fact As Boolean, _ + ByVal R_Re_Detection_Limit As Single, _ + ByVal R_Re_Error As Single, _ + ByVal R_Re_Concentaration As Single, _ + ByVal R_Re_Fact As Boolean, _ + ByVal R_W_Detection_Limit As Single, _ + ByVal R_W_Error As Single, _ + ByVal R_W_Concentaration As Single, _ + ByVal R_W_Fact As Boolean, _ + ByVal R_Ta_Detection_Limit As Single, _ + ByVal R_Ta_Error As Single, _ + ByVal R_Ta_Concentaration As Single, _ + ByVal R_Ta_Fact As Boolean, _ + ByVal R_Hf_Detection_Limit As Single, _ + ByVal R_Hf_Error As Single, _ + ByVal R_Hf_Concentaration As Single, _ + ByVal R_Hf_Fact As Boolean, _ + ByVal R_Lu_Detection_Limit As Single, _ + ByVal R_Lu_Error As Single, _ + ByVal R_Lu_Concentaration As Single, _ + ByVal R_Lu_Fact As Boolean, _ + ByVal R_Yb_Detection_Limit As Single, _ + ByVal R_Yb_Error As Single, _ + ByVal R_Yb_Concentaration As Single, _ + ByVal R_Yb_Fact As Boolean, _ + ByVal R_Tm_Detection_Limit As Single, _ + ByVal R_Tm_Error As Single, _ + ByVal R_Tm_Concentaration As Single, _ + ByVal R_Tm_Fact As Boolean, _ + ByVal R_Er_Detection_Limit As Single, _ + ByVal R_Er_Error As Single, _ + ByVal R_Er_Concentaration As Single, _ + ByVal R_Er_Fact As Boolean, _ + ByVal R_Dy_Detection_Limit As Single, _ + ByVal R_Dy_Error As Single, _ + ByVal R_Dy_Concentaration As Single, _ + ByVal R_Dy_Fact As Boolean, _ + ByVal R_Tb_Detection_Limit As Single, _ + ByVal R_Tb_Error As Single, _ + ByVal R_Tb_Concentaration As Single, _ + ByVal R_Tb_Fact As Boolean, _ + ByVal R_Gd_Detection_Limit As Single, _ + ByVal R_Gd_Error As Single, _ + ByVal R_Gd_Concentaration As Single, _ + ByVal R_Gd_Fact As Boolean, _ + ByVal R_Eu_Detection_Limit As Single, _ + ByVal R_Eu_Error As Single, _ + ByVal R_Eu_Concentaration As Single, _ + ByVal R_Eu_Fact As Boolean, _ + ByVal R_Sm_Detection_Limit As Single, _ + ByVal R_Sm_Error As Single, _ + ByVal R_Sm_Concentaration As Single, _ + ByVal R_Sm_Fact As Boolean, _ + ByVal R_Nd_Detection_Limit As Single, _ + ByVal R_Nd_Error As Single, _ + ByVal R_Nd_Concentaration As Single, _ + ByVal R_Nd_Fact As Boolean, _ + ByVal R_Ce_Detection_Limit As Single, _ + ByVal R_Ce_Error As Single, _ + ByVal R_Ce_Concentaration As Single, _ + ByVal R_Ce_Fact As Boolean, _ + ByVal R_La_Detection_Limit As Single, _ + ByVal R_La_Error As Single, _ + ByVal R_La_Concentaration As Single, _ + ByVal R_La_Fact As Boolean, _ + ByVal R_Ba_Detection_Limit As Single, _ + ByVal R_Ba_Error As Single, _ + ByVal R_Ba_Concentaration As Single, _ + ByVal R_Ba_Fact As Boolean, _ + ByVal R_Cs_Detection_Limit As Single, _ + ByVal R_Cs_Error As Single, _ + ByVal R_Cs_Concentaration As Single, _ + ByVal R_Cs_Fact As Boolean, _ + ByVal R_I_Detection_Limit As Single, _ + ByVal R_I_Error As Single, _ + ByVal R_I_Concentaration As Single, _ + ByVal R_I_Fact As Boolean, _ + ByVal R_Sb_Detection_Limit As Single, _ + ByVal R_Sb_Error As Single, _ + ByVal R_Sb_Concentaration As Single, _ + ByVal R_Sb_Fact As Boolean, _ + ByVal R_Sn_Detection_Limit As Single, _ + ByVal R_Sn_Error As Single, _ + ByVal R_Sn_Concentaration As Single, _ + ByVal R_Sn_Fact As Boolean, _ + ByVal R_In_Detection_Limit As Single, _ + ByVal R_In_Error As Single, _ + ByVal R_In_Concentaration As Single, _ + ByVal R_In_Fact As Boolean, _ + ByVal R_Cd_Detection_Limit As Single, _ + ByVal R_Cd_Error As Single, _ + ByVal R_Cd_Concentaration As Single, _ + ByVal R_Cd_Fact As Boolean, _ + ByVal R_Ag_Detection_Limit As Single, _ + ByVal R_Ag_Error As Single, _ + ByVal R_Ag_Concentaration As Single, _ + ByVal R_Ag_Fact As Boolean, _ + ByVal R_Ru_Detection_Limit As Single, _ + ByVal R_Ru_Error As Single, _ + ByVal R_Ru_Concentaration As Single, _ + ByVal R_Ru_Fact As Boolean, _ + ByVal R_Mo_Detection_Limit As Single, _ + ByVal R_Mo_Error As Single, _ + ByVal R_Mo_Concentaration As Single, _ + ByVal R_Mo_Fact As Boolean, _ + ByVal R_Nb_Detection_Limit As Single, _ + ByVal R_Nb_Error As Single, _ + ByVal R_Nb_Concentaration As Single, _ + ByVal R_Zr_Detection_Limit As Single, _ + ByVal R_Nb_Fact As Boolean, _ + ByVal R_Zr_Error As Single, _ + ByVal R_Zr_Concentaration As Single, _ + ByVal R_Zr_Fact As Boolean, _ + ByVal R_Y_Detection_Limit As Single, _ + ByVal R_Y_Error As Single, _ + ByVal R_Y_Concentaration As Single, _ + ByVal R_Y_Fact As Boolean, _ + ByVal R_Sr_Detection_Limit As Single, _ + ByVal R_Sr_Error As Single, _ + ByVal R_Sr_Concentaration As Single, _ + ByVal R_Rb_Detection_Limit As Single, _ + ByVal R_Sr_Fact As Boolean, _ + ByVal R_Rb_Error As Single, _ + ByVal R_Rb_Concentaration As Single, _ + ByVal R_Rb_Fact As Boolean, _ + ByVal R_Br_Detection_Limit As Single, _ + ByVal R_Br_Error As Single, _ + ByVal R_Br_Concentaration As Single, _ + ByVal R_Br_Fact As Boolean, _ + ByVal R_Se_Detection_Limit As Single, _ + ByVal R_Se_Error As Single, _ + ByVal R_Se_Concentaration As Single, _ + ByVal R_Se_Fact As Boolean, _ + ByVal R_As_Detection_Limit As Single, _ + ByVal R_As_Error As Single, _ + ByVal R_As_Concentaration As Single, _ + ByVal R_As_Fact As Boolean, _ + ByVal R_Ga_Detection_Limit As Single, _ + ByVal R_Ga_Error As Single, _ + ByVal R_Ga_Concentaration As Single, _ + ByVal R_Ga_Fact As Boolean, _ + ByVal R_Zn_Detection_Limit As Single, _ + ByVal R_Zn_Error As Single, _ + ByVal R_Zn_Concentaration As Single, _ + ByVal R_Zn_Fact As Boolean, _ + ByVal R_Cu_Detection_Limit As Single, _ + ByVal R_Cu_Error As Single, _ + ByVal R_Cu_Concentaration As Single, _ + ByVal R_Cu_Fact As Boolean, _ + ByVal R_Co_Detection_Limit As Single, _ + ByVal R_Co_Error As Single, _ + ByVal R_Co_Concentaration As Single, _ + ByVal R_Co_Fact As Boolean, _ + ByVal R_Fe_Detection_Limit As Single, _ + ByVal R_Fe_Error As Single, _ + ByVal R_Fe_Concentaration As Single, _ + ByVal R_Fe_Fact As Boolean, _ + ByVal R_Mn_Detection_Limit As Single, _ + ByVal R_Mn_Error As Single, _ + ByVal R_F_Fact As Boolean, _ + ByVal R_F_Concentaration As Single, _ + ByVal R_F_Error As Single, _ + ByVal R_F_Detection_Limit As Single, _ + ByVal R_Na_Fact As Boolean, _ + ByVal R_Na_Concentaration As Single, _ + ByVal R_Na_Error As Single, _ + ByVal R_Na_Detection_Limit As Single, _ + ByVal R_Mg_Fact As Boolean, _ + ByVal R_Mg_Concentaration As Single, _ + ByVal R_Mg_Error As Single, _ + ByVal R_Mg_Detection_Limit As Single, _ + ByVal R_Al_Fact As Boolean, _ + ByVal R_Al_Concentaration As Single, _ + ByVal R_Al_Error As Single, _ + ByVal R_Si_Fact As Boolean, _ + ByVal R_Al_Detection_Limit As Single, _ + ByVal R_Si_Concentaration As Single, _ + ByVal R_Si_Error As Single, _ + ByVal R_Si_Detection_Limit As Single, _ + ByVal R_S_Fact As Boolean, _ + ByVal R_S_Concentaration As Single, _ + ByVal R_S_Error As Single, _ + ByVal R_S_Detection_Limit As Single, _ + ByVal R_Cl_Fact As Boolean, _ + ByVal R_Cl_Concentaration As Single, _ + ByVal R_Cl_Error As Single, _ + ByVal R_Cl_Detection_Limit As Single, _ + ByVal R_K_Fact As Boolean, _ + ByVal R_K_Concentaration As Single, _ + ByVal R_K_Error As Single, _ + ByVal R_K_Detection_Limit As Single, _ + ByVal R_Ca_Fact As Boolean, _ + ByVal R_Ca_Concentaration As Single, _ + ByVal R_Ca_Error As Single, _ + ByVal R_Ca_Detection_Limit As Single, _ + ByVal R_Sc_Fact As Boolean, _ + ByVal R_Sc_Concentaration As Single, _ + ByVal R_Sc_Error As Single, _ + ByVal R_Sc_Detection_Limit As Single, _ + ByVal R_Ti_Fact As Boolean, _ + ByVal R_Ti_Concentaration As Single, _ + ByVal R_Ti_Error As Single, _ + ByVal R_Ti_Detection_Limit As Single, _ + ByVal R_V_Fact As Boolean, _ + ByVal R_V_Concentaration As Single, _ + ByVal R_V_Error As Single, _ + ByVal R_V_Detection_Limit As Single, _ + ByVal R_Cr_Fact As Boolean, _ + ByVal R_Cr_Concentaration As Single, _ + ByVal R_Cr_Error As Single, _ + ByVal R_Cr_Detection_Limit As Single, _ + ByVal R_Mn_Fact As Boolean, _ + ByVal R_Mn_Concentaration As Single, _ + ByVal A_Sample_ID As String, _ + ByVal F_Country_Code As String, _ + ByVal F_Client_ID As String, _ + ByVal F_Year As String, _ + ByVal F_Sample_Set_ID As String, _ + ByVal F_Sample_Set_Index As String, _ + ByVal R_Processed_By As String, _ + ByVal R_File_Spectrum As String, _ + ByVal A_Client_Sample_ID As String, _ + ByVal A_Latitude As String, _ + ByVal A_Longitude As String, _ + ByVal A_Collection_Place As String, _ ByVal A_Notes As String) As table_Sample_NAA_ResultsRow - Dim rowtable_Sample_NAA_ResultsRow As table_Sample_NAA_ResultsRow = CType(Me.NewRow, table_Sample_NAA_ResultsRow) + Dim rowtable_Sample_NAA_ResultsRow As table_Sample_NAA_ResultsRow = CType(Me.NewRow,table_Sample_NAA_ResultsRow) Dim columnValuesArray() As Object = New Object() {R_U_Detection_Limit, R_U_Error, R_U_Concentaration, R_U_Fact, R_Th_Detection_Limit, R_Th_Error, R_Th_Concentaration, R_Th_Fact, R_Hg_Detection_Limit, R_Hg_Error, R_Hg_Concentaration, R_Hg_Fact, R_Au_Detection_Limit, R_Au_Error, R_Au_Concentaration, R_Au_Fact, R_Pt_Detection_Limit, R_Pt_Error, R_Pt_Concentaration, R_Pt_Fact, R_Ir_Detection_Limit, R_Ir_Error, R_Ir_Concentaration, R_Ir_Fact, R_Re_Detection_Limit, R_Re_Error, R_Re_Concentaration, R_Re_Fact, R_W_Detection_Limit, R_W_Error, R_W_Concentaration, R_W_Fact, R_Ta_Detection_Limit, R_Ta_Error, R_Ta_Concentaration, R_Ta_Fact, R_Hf_Detection_Limit, R_Hf_Error, R_Hf_Concentaration, R_Hf_Fact, R_Lu_Detection_Limit, R_Lu_Error, R_Lu_Concentaration, R_Lu_Fact, R_Yb_Detection_Limit, R_Yb_Error, R_Yb_Concentaration, R_Yb_Fact, R_Tm_Detection_Limit, R_Tm_Error, R_Tm_Concentaration, R_Tm_Fact, R_Er_Detection_Limit, R_Er_Error, R_Er_Concentaration, R_Er_Fact, R_Dy_Detection_Limit, R_Dy_Error, R_Dy_Concentaration, R_Dy_Fact, R_Tb_Detection_Limit, R_Tb_Error, R_Tb_Concentaration, R_Tb_Fact, R_Gd_Detection_Limit, R_Gd_Error, R_Gd_Concentaration, R_Gd_Fact, R_Eu_Detection_Limit, R_Eu_Error, R_Eu_Concentaration, R_Eu_Fact, R_Sm_Detection_Limit, R_Sm_Error, R_Sm_Concentaration, R_Sm_Fact, R_Nd_Detection_Limit, R_Nd_Error, R_Nd_Concentaration, R_Nd_Fact, R_Ce_Detection_Limit, R_Ce_Error, R_Ce_Concentaration, R_Ce_Fact, R_La_Detection_Limit, R_La_Error, R_La_Concentaration, R_La_Fact, R_Ba_Detection_Limit, R_Ba_Error, R_Ba_Concentaration, R_Ba_Fact, R_Cs_Detection_Limit, R_Cs_Error, R_Cs_Concentaration, R_Cs_Fact, R_I_Detection_Limit, R_I_Error, R_I_Concentaration, R_I_Fact, R_Sb_Detection_Limit, R_Sb_Error, R_Sb_Concentaration, R_Sb_Fact, R_Sn_Detection_Limit, R_Sn_Error, R_Sn_Concentaration, R_Sn_Fact, R_In_Detection_Limit, R_In_Error, R_In_Concentaration, R_In_Fact, R_Cd_Detection_Limit, R_Cd_Error, R_Cd_Concentaration, R_Cd_Fact, R_Ag_Detection_Limit, R_Ag_Error, R_Ag_Concentaration, R_Ag_Fact, R_Ru_Detection_Limit, R_Ru_Error, R_Ru_Concentaration, R_Ru_Fact, R_Mo_Detection_Limit, R_Mo_Error, R_Mo_Concentaration, R_Mo_Fact, R_Nb_Detection_Limit, R_Nb_Error, R_Nb_Concentaration, R_Zr_Detection_Limit, R_Nb_Fact, R_Zr_Error, R_Zr_Concentaration, R_Zr_Fact, R_Y_Detection_Limit, R_Y_Error, R_Y_Concentaration, R_Y_Fact, R_Sr_Detection_Limit, R_Sr_Error, R_Sr_Concentaration, R_Rb_Detection_Limit, R_Sr_Fact, R_Rb_Error, R_Rb_Concentaration, R_Rb_Fact, R_Br_Detection_Limit, R_Br_Error, R_Br_Concentaration, R_Br_Fact, R_Se_Detection_Limit, R_Se_Error, R_Se_Concentaration, R_Se_Fact, R_As_Detection_Limit, R_As_Error, R_As_Concentaration, R_As_Fact, R_Ga_Detection_Limit, R_Ga_Error, R_Ga_Concentaration, R_Ga_Fact, R_Zn_Detection_Limit, R_Zn_Error, R_Zn_Concentaration, R_Zn_Fact, R_Cu_Detection_Limit, R_Cu_Error, R_Cu_Concentaration, R_Cu_Fact, R_Co_Detection_Limit, R_Co_Error, R_Co_Concentaration, R_Co_Fact, R_Fe_Detection_Limit, R_Fe_Error, R_Fe_Concentaration, R_Fe_Fact, R_Mn_Detection_Limit, R_Mn_Error, R_F_Fact, R_F_Concentaration, R_F_Error, R_F_Detection_Limit, R_Na_Fact, R_Na_Concentaration, R_Na_Error, R_Na_Detection_Limit, R_Mg_Fact, R_Mg_Concentaration, R_Mg_Error, R_Mg_Detection_Limit, R_Al_Fact, R_Al_Concentaration, R_Al_Error, R_Si_Fact, R_Al_Detection_Limit, R_Si_Concentaration, R_Si_Error, R_Si_Detection_Limit, R_S_Fact, R_S_Concentaration, R_S_Error, R_S_Detection_Limit, R_Cl_Fact, R_Cl_Concentaration, R_Cl_Error, R_Cl_Detection_Limit, R_K_Fact, R_K_Concentaration, R_K_Error, R_K_Detection_Limit, R_Ca_Fact, R_Ca_Concentaration, R_Ca_Error, R_Ca_Detection_Limit, R_Sc_Fact, R_Sc_Concentaration, R_Sc_Error, R_Sc_Detection_Limit, R_Ti_Fact, R_Ti_Concentaration, R_Ti_Error, R_Ti_Detection_Limit, R_V_Fact, R_V_Concentaration, R_V_Error, R_V_Detection_Limit, R_Cr_Fact, R_Cr_Concentaration, R_Cr_Error, R_Cr_Detection_Limit, R_Mn_Fact, R_Mn_Concentaration, A_Sample_ID, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index, R_Processed_By, R_File_Spectrum, A_Client_Sample_ID, A_Latitude, A_Longitude, A_Collection_Place, A_Notes} rowtable_Sample_NAA_ResultsRow.ItemArray = columnValuesArray Me.Rows.Add(rowtable_Sample_NAA_ResultsRow) Return rowtable_Sample_NAA_ResultsRow End Function - - + + _ Public Function FindByA_Sample_IDF_Country_CodeF_Client_IDF_YearF_Sample_Set_IDF_Sample_Set_Index(ByVal A_Sample_ID As String, ByVal F_Country_Code As String, ByVal F_Client_ID As String, ByVal F_Year As String, ByVal F_Sample_Set_ID As String, ByVal F_Sample_Set_Index As String) As table_Sample_NAA_ResultsRow - Return CType(Me.Rows.Find(New Object() {A_Sample_ID, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index}), table_Sample_NAA_ResultsRow) + Return CType(Me.Rows.Find(New Object() {A_Sample_ID, F_Country_Code, F_Client_ID, F_Year, F_Sample_Set_ID, F_Sample_Set_Index}),table_Sample_NAA_ResultsRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As table_Sample_NAA_ResultsDataTable = CType(MyBase.Clone, table_Sample_NAA_ResultsDataTable) + Dim cln As table_Sample_NAA_ResultsDataTable = CType(MyBase.Clone,table_Sample_NAA_ResultsDataTable) cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New table_Sample_NAA_ResultsDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnR_U_Detection_Limit = MyBase.Columns("R_U_Detection_Limit") Me.columnR_U_Error = MyBase.Columns("R_U_Error") @@ -12441,9 +12439,9 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnA_Collection_Place = MyBase.Columns("A_Collection_Place") Me.columnA_Notes = MyBase.Columns("A_Notes") End Sub - - + + _ Private Sub InitClass() Me.columnR_U_Detection_Limit = New Global.System.Data.DataColumn("R_U_Detection_Limit", GetType(Single), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnR_U_Detection_Limit) @@ -12943,18 +12941,18 @@ Partial Public Class NAA_DB_EXPDataSet MyBase.Columns.Add(Me.columnA_Collection_Place) Me.columnA_Notes = New Global.System.Data.DataColumn("A_Notes", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnA_Notes) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnA_Sample_ID, Me.columnF_Country_Code, Me.columnF_Client_ID, Me.columnF_Year, Me.columnF_Sample_Set_ID, Me.columnF_Sample_Set_Index}, True)) - Me.columnA_Sample_ID.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnA_Sample_ID, Me.columnF_Country_Code, Me.columnF_Client_ID, Me.columnF_Year, Me.columnF_Sample_Set_ID, Me.columnF_Sample_Set_Index}, true)) + Me.columnA_Sample_ID.AllowDBNull = false Me.columnA_Sample_ID.MaxLength = 3 - Me.columnF_Country_Code.AllowDBNull = False + Me.columnF_Country_Code.AllowDBNull = false Me.columnF_Country_Code.MaxLength = 2 - Me.columnF_Client_ID.AllowDBNull = False + Me.columnF_Client_ID.AllowDBNull = false Me.columnF_Client_ID.MaxLength = 2 - Me.columnF_Year.AllowDBNull = False + Me.columnF_Year.AllowDBNull = false Me.columnF_Year.MaxLength = 2 - Me.columnF_Sample_Set_ID.AllowDBNull = False + Me.columnF_Sample_Set_ID.AllowDBNull = false Me.columnF_Sample_Set_ID.MaxLength = 5 - Me.columnF_Sample_Set_Index.AllowDBNull = False + Me.columnF_Sample_Set_Index.AllowDBNull = false Me.columnF_Sample_Set_Index.MaxLength = 2 Me.columnR_Processed_By.MaxLength = 25 Me.columnR_File_Spectrum.MaxLength = 36 @@ -12964,69 +12962,69 @@ Partial Public Class NAA_DB_EXPDataSet Me.columnA_Collection_Place.MaxLength = 200 Me.columnA_Notes.MaxLength = 150 End Sub - - + + _ Public Function Newtable_Sample_NAA_ResultsRow() As table_Sample_NAA_ResultsRow - Return CType(Me.NewRow, table_Sample_NAA_ResultsRow) + Return CType(Me.NewRow,table_Sample_NAA_ResultsRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New table_Sample_NAA_ResultsRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(table_Sample_NAA_ResultsRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.table_Sample_NAA_ResultsRowChangedEvent) Is Nothing) Then - RaiseEvent table_Sample_NAA_ResultsRowChanged(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row, table_Sample_NAA_ResultsRow), e.Action)) + RaiseEvent table_Sample_NAA_ResultsRowChanged(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row,table_Sample_NAA_ResultsRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.table_Sample_NAA_ResultsRowChangingEvent) Is Nothing) Then - RaiseEvent table_Sample_NAA_ResultsRowChanging(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row, table_Sample_NAA_ResultsRow), e.Action)) + RaiseEvent table_Sample_NAA_ResultsRowChanging(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row,table_Sample_NAA_ResultsRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.table_Sample_NAA_ResultsRowDeletedEvent) Is Nothing) Then - RaiseEvent table_Sample_NAA_ResultsRowDeleted(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row, table_Sample_NAA_ResultsRow), e.Action)) + RaiseEvent table_Sample_NAA_ResultsRowDeleted(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row,table_Sample_NAA_ResultsRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.table_Sample_NAA_ResultsRowDeletingEvent) Is Nothing) Then - RaiseEvent table_Sample_NAA_ResultsRowDeleting(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row, table_Sample_NAA_ResultsRow), e.Action)) + RaiseEvent table_Sample_NAA_ResultsRowDeleting(Me, New table_Sample_NAA_ResultsRowChangeEvent(CType(e.Row,table_Sample_NAA_ResultsRow), e.Action)) End If End Sub - - + + _ Public Sub Removetable_Sample_NAA_ResultsRow(ByVal row As table_Sample_NAA_ResultsRow) Me.Rows.Remove(row) End Sub - - + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -13055,28 +13053,28 @@ Partial Public Class NAA_DB_EXPDataSet If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then @@ -13091,61 +13089,61 @@ Partial Public Class NAA_DB_EXPDataSet Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_ClientRow Inherits Global.System.Data.DataRow - + Private tabletable_Client As table_ClientDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Client = CType(Me.Table, table_ClientDataTable) + Me.tabletable_Client = CType(Me.Table,table_ClientDataTable) End Sub - - + + _ Public Property Client_ID() As String Get - Return CType(Me(Me.tabletable_Client.Client_IDColumn), String) + Return CType(Me(Me.tabletable_Client.Client_IDColumn),String) End Get Set Me(Me.tabletable_Client.Client_IDColumn) = value End Set End Property - - + + _ Public Property Country_Code() As String Get - Return CType(Me(Me.tabletable_Client.Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Client.Country_CodeColumn),String) End Get Set Me(Me.tabletable_Client.Country_CodeColumn) = value End Set End Property - - + + _ Public Property Country() As String Get - Return CType(Me(Me.tabletable_Client.CountryColumn), String) + Return CType(Me(Me.tabletable_Client.CountryColumn),String) End Get Set Me(Me.tabletable_Client.CountryColumn) = value End Set End Property - - + + _ Public Property Postal_Code() As String Get - Try - Return CType(Me(Me.tabletable_Client.Postal_CodeColumn), String) + Try + Return CType(Me(Me.tabletable_Client.Postal_CodeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Postal_Code' in table 'table_Client' is DBNull.", e) End Try @@ -13154,13 +13152,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Postal_CodeColumn) = value End Set End Property - - + + _ Public Property Republic() As String Get - Try - Return CType(Me(Me.tabletable_Client.RepublicColumn), String) + Try + Return CType(Me(Me.tabletable_Client.RepublicColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Republic' in table 'table_Client' is DBNull.", e) End Try @@ -13169,13 +13167,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.RepublicColumn) = value End Set End Property - - + + _ Public Property _Region() As String Get - Try - Return CType(Me(Me.tabletable_Client.RegionColumn), String) + Try + Return CType(Me(Me.tabletable_Client.RegionColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Region' in table 'table_Client' is DBNull.", e) End Try @@ -13184,13 +13182,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.RegionColumn) = value End Set End Property - - + + _ Public Property Area() As String Get - Try - Return CType(Me(Me.tabletable_Client.AreaColumn), String) + Try + Return CType(Me(Me.tabletable_Client.AreaColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Area' in table 'table_Client' is DBNull.", e) End Try @@ -13199,13 +13197,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.AreaColumn) = value End Set End Property - - + + _ Public Property City() As String Get - Try - Return CType(Me(Me.tabletable_Client.CityColumn), String) + Try + Return CType(Me(Me.tabletable_Client.CityColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'City' in table 'table_Client' is DBNull.", e) End Try @@ -13214,13 +13212,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.CityColumn) = value End Set End Property - - + + _ Public Property Street() As String Get - Try - Return CType(Me(Me.tabletable_Client.StreetColumn), String) + Try + Return CType(Me(Me.tabletable_Client.StreetColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Street' in table 'table_Client' is DBNull.", e) End Try @@ -13229,13 +13227,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.StreetColumn) = value End Set End Property - - + + _ Public Property House() As String Get - Try - Return CType(Me(Me.tabletable_Client.HouseColumn), String) + Try + Return CType(Me(Me.tabletable_Client.HouseColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'House' in table 'table_Client' is DBNull.", e) End Try @@ -13244,13 +13242,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.HouseColumn) = value End Set End Property - - + + _ Public Property Building() As String Get - Try - Return CType(Me(Me.tabletable_Client.BuildingColumn), String) + Try + Return CType(Me(Me.tabletable_Client.BuildingColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Building' in table 'table_Client' is DBNull.", e) End Try @@ -13259,13 +13257,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.BuildingColumn) = value End Set End Property - - + + _ Public Property Organization() As String Get - Try - Return CType(Me(Me.tabletable_Client.OrganizationColumn), String) + Try + Return CType(Me(Me.tabletable_Client.OrganizationColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Organization' in table 'table_Client' is DBNull.", e) End Try @@ -13274,13 +13272,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.OrganizationColumn) = value End Set End Property - - + + _ Public Property Title() As String Get - Try - Return CType(Me(Me.tabletable_Client.TitleColumn), String) + Try + Return CType(Me(Me.tabletable_Client.TitleColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Title' in table 'table_Client' is DBNull.", e) End Try @@ -13289,13 +13287,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.TitleColumn) = value End Set End Property - - + + _ Public Property Gender() As String Get - Try - Return CType(Me(Me.tabletable_Client.GenderColumn), String) + Try + Return CType(Me(Me.tabletable_Client.GenderColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Gender' in table 'table_Client' is DBNull.", e) End Try @@ -13304,13 +13302,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.GenderColumn) = value End Set End Property - - + + _ Public Property Last_Name() As String Get - Try - Return CType(Me(Me.tabletable_Client.Last_NameColumn), String) + Try + Return CType(Me(Me.tabletable_Client.Last_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Last_Name' in table 'table_Client' is DBNull.", e) End Try @@ -13319,13 +13317,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Last_NameColumn) = value End Set End Property - - + + _ Public Property First_Name() As String Get - Try - Return CType(Me(Me.tabletable_Client.First_NameColumn), String) + Try + Return CType(Me(Me.tabletable_Client.First_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'First_Name' in table 'table_Client' is DBNull.", e) End Try @@ -13334,13 +13332,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.First_NameColumn) = value End Set End Property - - + + _ Public Property Middle_Name() As String Get - Try - Return CType(Me(Me.tabletable_Client.Middle_NameColumn), String) + Try + Return CType(Me(Me.tabletable_Client.Middle_NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Middle_Name' in table 'table_Client' is DBNull.", e) End Try @@ -13349,15 +13347,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Middle_NameColumn) = value End Set End Property - - + + _ Public Property Phone_Country_Code_Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Phone_1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Phone_1' in table 'table_Client' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Phone_1' in table 'table_Client' is DBNu"& _ "ll.", e) End Try End Get @@ -13365,13 +13363,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_Country_Code_Phone_1Column) = value End Set End Property - - + + _ Public Property Code_Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Code_Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Code_Phone_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Code_Phone_1' in table 'table_Client' is DBNull.", e) End Try @@ -13380,13 +13378,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Code_Phone_1Column) = value End Set End Property - - + + _ Public Property Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_1' in table 'table_Client' is DBNull.", e) End Try @@ -13395,15 +13393,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_1Column) = value End Set End Property - - + + _ Public Property Phone_Country_Code_Phone_2() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Phone_2Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Phone_2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Phone_2' in table 'table_Client' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Phone_2' in table 'table_Client' is DBNu"& _ "ll.", e) End Try End Get @@ -13411,13 +13409,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_Country_Code_Phone_2Column) = value End Set End Property - - + + _ Public Property Code_Phone_2() As String Get - Try - Return CType(Me(Me.tabletable_Client.Code_Phone_2Column), String) + Try + Return CType(Me(Me.tabletable_Client.Code_Phone_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Code_Phone_2' in table 'table_Client' is DBNull.", e) End Try @@ -13426,13 +13424,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Code_Phone_2Column) = value End Set End Property - - + + _ Public Property Phone_2() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_2Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_2' in table 'table_Client' is DBNull.", e) End Try @@ -13441,15 +13439,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_2Column) = value End Set End Property - - + + _ Public Property Phone_Country_Code_Fax_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Fax_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Fax_1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Fax_1' in table 'table_Client' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Fax_1' in table 'table_Client' is DBNull"& _ ".", e) End Try End Get @@ -13457,13 +13455,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_Country_Code_Fax_1Column) = value End Set End Property - - + + _ Public Property Code_Fax_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Code_Fax_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Code_Fax_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Code_Fax_1' in table 'table_Client' is DBNull.", e) End Try @@ -13472,13 +13470,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Code_Fax_1Column) = value End Set End Property - - + + _ Public Property Fax_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Fax_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Fax_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Fax_1' in table 'table_Client' is DBNull.", e) End Try @@ -13487,15 +13485,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Fax_1Column) = value End Set End Property - - + + _ Public Property Phone_Country_Code_Mobile_Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Mobile_Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Phone_Country_Code_Mobile_Phone_1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Mobile_Phone_1' in table 'table_Client' " & + Throw New Global.System.Data.StrongTypingException("The value for column 'Phone_Country_Code_Mobile_Phone_1' in table 'table_Client' "& _ "is DBNull.", e) End Try End Get @@ -13503,13 +13501,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Phone_Country_Code_Mobile_Phone_1Column) = value End Set End Property - - + + _ Public Property Code_Mobile_Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Code_Mobile_Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Code_Mobile_Phone_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Code_Mobile_Phone_1' in table 'table_Client' is DBNull.", e) End Try @@ -13518,13 +13516,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Code_Mobile_Phone_1Column) = value End Set End Property - - + + _ Public Property Mobile_Phone_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.Mobile_Phone_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.Mobile_Phone_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Mobile_Phone_1' in table 'table_Client' is DBNull.", e) End Try @@ -13533,13 +13531,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.Mobile_Phone_1Column) = value End Set End Property - - + + _ Public Property E_mail_1() As String Get - Try - Return CType(Me(Me.tabletable_Client.E_mail_1Column), String) + Try + Return CType(Me(Me.tabletable_Client.E_mail_1Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'E_mail_1' in table 'table_Client' is DBNull.", e) End Try @@ -13548,13 +13546,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.E_mail_1Column) = value End Set End Property - - + + _ Public Property E_mail_2() As String Get - Try - Return CType(Me(Me.tabletable_Client.E_mail_2Column), String) + Try + Return CType(Me(Me.tabletable_Client.E_mail_2Column),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'E_mail_2' in table 'table_Client' is DBNull.", e) End Try @@ -13563,13 +13561,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.E_mail_2Column) = value End Set End Property - - + + _ Public Property Notes() As String Get - Try - Return CType(Me(Me.tabletable_Client.NotesColumn), String) + Try + Return CType(Me(Me.tabletable_Client.NotesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Notes' in table 'table_Client' is DBNull.", e) End Try @@ -13578,463 +13576,463 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Client.NotesColumn) = value End Set End Property - - + + _ Public Function IsPostal_CodeNull() As Boolean Return Me.IsNull(Me.tabletable_Client.Postal_CodeColumn) End Function - - + + _ Public Sub SetPostal_CodeNull() Me(Me.tabletable_Client.Postal_CodeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsRepublicNull() As Boolean Return Me.IsNull(Me.tabletable_Client.RepublicColumn) End Function - - + + _ Public Sub SetRepublicNull() Me(Me.tabletable_Client.RepublicColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Is_RegionNull() As Boolean Return Me.IsNull(Me.tabletable_Client.RegionColumn) End Function - - + + _ Public Sub Set_RegionNull() Me(Me.tabletable_Client.RegionColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsAreaNull() As Boolean Return Me.IsNull(Me.tabletable_Client.AreaColumn) End Function - - + + _ Public Sub SetAreaNull() Me(Me.tabletable_Client.AreaColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCityNull() As Boolean Return Me.IsNull(Me.tabletable_Client.CityColumn) End Function - - + + _ Public Sub SetCityNull() Me(Me.tabletable_Client.CityColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsStreetNull() As Boolean Return Me.IsNull(Me.tabletable_Client.StreetColumn) End Function - - + + _ Public Sub SetStreetNull() Me(Me.tabletable_Client.StreetColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsHouseNull() As Boolean Return Me.IsNull(Me.tabletable_Client.HouseColumn) End Function - - + + _ Public Sub SetHouseNull() Me(Me.tabletable_Client.HouseColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsBuildingNull() As Boolean Return Me.IsNull(Me.tabletable_Client.BuildingColumn) End Function - - + + _ Public Sub SetBuildingNull() Me(Me.tabletable_Client.BuildingColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsOrganizationNull() As Boolean Return Me.IsNull(Me.tabletable_Client.OrganizationColumn) End Function - - + + _ Public Sub SetOrganizationNull() Me(Me.tabletable_Client.OrganizationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsTitleNull() As Boolean Return Me.IsNull(Me.tabletable_Client.TitleColumn) End Function - - + + _ Public Sub SetTitleNull() Me(Me.tabletable_Client.TitleColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsGenderNull() As Boolean Return Me.IsNull(Me.tabletable_Client.GenderColumn) End Function - - + + _ Public Sub SetGenderNull() Me(Me.tabletable_Client.GenderColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsLast_NameNull() As Boolean Return Me.IsNull(Me.tabletable_Client.Last_NameColumn) End Function - - + + _ Public Sub SetLast_NameNull() Me(Me.tabletable_Client.Last_NameColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsFirst_NameNull() As Boolean Return Me.IsNull(Me.tabletable_Client.First_NameColumn) End Function - - + + _ Public Sub SetFirst_NameNull() Me(Me.tabletable_Client.First_NameColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMiddle_NameNull() As Boolean Return Me.IsNull(Me.tabletable_Client.Middle_NameColumn) End Function - - + + _ Public Sub SetMiddle_NameNull() Me(Me.tabletable_Client.Middle_NameColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_Country_Code_Phone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_Country_Code_Phone_1Column) End Function - - + + _ Public Sub SetPhone_Country_Code_Phone_1Null() Me(Me.tabletable_Client.Phone_Country_Code_Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCode_Phone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Code_Phone_1Column) End Function - - + + _ Public Sub SetCode_Phone_1Null() Me(Me.tabletable_Client.Code_Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_1Column) End Function - - + + _ Public Sub SetPhone_1Null() Me(Me.tabletable_Client.Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_Country_Code_Phone_2Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_Country_Code_Phone_2Column) End Function - - + + _ Public Sub SetPhone_Country_Code_Phone_2Null() Me(Me.tabletable_Client.Phone_Country_Code_Phone_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCode_Phone_2Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Code_Phone_2Column) End Function - - + + _ Public Sub SetCode_Phone_2Null() Me(Me.tabletable_Client.Code_Phone_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_2Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_2Column) End Function - - + + _ Public Sub SetPhone_2Null() Me(Me.tabletable_Client.Phone_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_Country_Code_Fax_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_Country_Code_Fax_1Column) End Function - - + + _ Public Sub SetPhone_Country_Code_Fax_1Null() Me(Me.tabletable_Client.Phone_Country_Code_Fax_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCode_Fax_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Code_Fax_1Column) End Function - - + + _ Public Sub SetCode_Fax_1Null() Me(Me.tabletable_Client.Code_Fax_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsFax_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Fax_1Column) End Function - - + + _ Public Sub SetFax_1Null() Me(Me.tabletable_Client.Fax_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPhone_Country_Code_Mobile_Phone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Phone_Country_Code_Mobile_Phone_1Column) End Function - - + + _ Public Sub SetPhone_Country_Code_Mobile_Phone_1Null() Me(Me.tabletable_Client.Phone_Country_Code_Mobile_Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCode_Mobile_Phone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Code_Mobile_Phone_1Column) End Function - - + + _ Public Sub SetCode_Mobile_Phone_1Null() Me(Me.tabletable_Client.Code_Mobile_Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMobile_Phone_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.Mobile_Phone_1Column) End Function - - + + _ Public Sub SetMobile_Phone_1Null() Me(Me.tabletable_Client.Mobile_Phone_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsE_mail_1Null() As Boolean Return Me.IsNull(Me.tabletable_Client.E_mail_1Column) End Function - - + + _ Public Sub SetE_mail_1Null() Me(Me.tabletable_Client.E_mail_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsE_mail_2Null() As Boolean Return Me.IsNull(Me.tabletable_Client.E_mail_2Column) End Function - - + + _ Public Sub SetE_mail_2Null() Me(Me.tabletable_Client.E_mail_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsNotesNull() As Boolean Return Me.IsNull(Me.tabletable_Client.NotesColumn) End Function - - + + _ Public Sub SetNotesNull() Me(Me.tabletable_Client.NotesColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_Sample_SetRows() As table_Sample_SetRow() If (Me.Table.ChildRelations("FK_table_Sample_Set_table_Client") Is Nothing) Then Return New table_Sample_SetRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_Set_table_Client")), table_Sample_SetRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_Set_table_Client")),table_Sample_SetRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_CountryRow Inherits Global.System.Data.DataRow - + Private tabletable_Country As table_CountryDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Country = CType(Me.Table, table_CountryDataTable) + Me.tabletable_Country = CType(Me.Table,table_CountryDataTable) End Sub - - + + _ Public Property Country() As String Get - Return CType(Me(Me.tabletable_Country.CountryColumn), String) + Return CType(Me(Me.tabletable_Country.CountryColumn),String) End Get Set Me(Me.tabletable_Country.CountryColumn) = value End Set End Property - - + + _ Public Property Country_Code() As String Get - Return CType(Me(Me.tabletable_Country.Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Country.Country_CodeColumn),String) End Get Set Me(Me.tabletable_Country.Country_CodeColumn) = value End Set End Property - - + + _ Public Property Phone_Country_Code() As String Get - Return CType(Me(Me.tabletable_Country.Phone_Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Country.Phone_Country_CodeColumn),String) End Get Set Me(Me.tabletable_Country.Phone_Country_CodeColumn) = value End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Determined_ElementsRow Inherits Global.System.Data.DataRow - + Private tabletable_Determined_Elements As table_Determined_ElementsDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Determined_Elements = CType(Me.Table, table_Determined_ElementsDataTable) + Me.tabletable_Determined_Elements = CType(Me.Table,table_Determined_ElementsDataTable) End Sub - - + + _ Public Property DeterminedElements() As String Get - Return CType(Me(Me.tabletable_Determined_Elements.DeterminedElementsColumn), String) + Return CType(Me(Me.tabletable_Determined_Elements.DeterminedElementsColumn),String) End Get Set Me(Me.tabletable_Determined_Elements.DeterminedElementsColumn) = value End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Physical_EnvironmentRow Inherits Global.System.Data.DataRow - + Private tabletable_Physical_Environment As table_Physical_EnvironmentDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Physical_Environment = CType(Me.Table, table_Physical_EnvironmentDataTable) + Me.tabletable_Physical_Environment = CType(Me.Table,table_Physical_EnvironmentDataTable) End Sub - - + + _ Public Property Data() As Date Get - Try - Return CType(Me(Me.tabletable_Physical_Environment.DataColumn), Date) + Try + Return CType(Me(Me.tabletable_Physical_Environment.DataColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Data' in table 'table_Physical_Environment' is DBNull.", e) End Try @@ -14043,13 +14041,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Physical_Environment.DataColumn) = value End Set End Property - - + + _ Public Property Time() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Physical_Environment.TimeColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Physical_Environment.TimeColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Time' in table 'table_Physical_Environment' is DBNull.", e) End Try @@ -14058,15 +14056,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Physical_Environment.TimeColumn) = value End Set End Property - - + + _ Public Property Relative_Humidity() As Single Get - Try - Return CType(Me(Me.tabletable_Physical_Environment.Relative_HumidityColumn), Single) + Try + Return CType(Me(Me.tabletable_Physical_Environment.Relative_HumidityColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Relative_Humidity' in table 'table_Physical_Environment' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Relative_Humidity' in table 'table_Physical_Environment' is"& _ " DBNull.", e) End Try End Get @@ -14074,15 +14072,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Physical_Environment.Relative_HumidityColumn) = value End Set End Property - - + + _ Public Property Temperature() As Single Get - Try - Return CType(Me(Me.tabletable_Physical_Environment.TemperatureColumn), Single) + Try + Return CType(Me(Me.tabletable_Physical_Environment.TemperatureColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Temperature' in table 'table_Physical_Environment' is DBNul" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Temperature' in table 'table_Physical_Environment' is DBNul"& _ "l.", e) End Try End Get @@ -14090,254 +14088,254 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Physical_Environment.TemperatureColumn) = value End Set End Property - - + + _ Public Function IsDataNull() As Boolean Return Me.IsNull(Me.tabletable_Physical_Environment.DataColumn) End Function - - + + _ Public Sub SetDataNull() Me(Me.tabletable_Physical_Environment.DataColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsTimeNull() As Boolean Return Me.IsNull(Me.tabletable_Physical_Environment.TimeColumn) End Function - - + + _ Public Sub SetTimeNull() Me(Me.tabletable_Physical_Environment.TimeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsRelative_HumidityNull() As Boolean Return Me.IsNull(Me.tabletable_Physical_Environment.Relative_HumidityColumn) End Function - - + + _ Public Sub SetRelative_HumidityNull() Me(Me.tabletable_Physical_Environment.Relative_HumidityColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsTemperatureNull() As Boolean Return Me.IsNull(Me.tabletable_Physical_Environment.TemperatureColumn) End Function - - + + _ Public Sub SetTemperatureNull() Me(Me.tabletable_Physical_Environment.TemperatureColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Received_ByRow Inherits Global.System.Data.DataRow - + Private tabletable_Received_By As table_Received_ByDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Received_By = CType(Me.Table, table_Received_ByDataTable) + Me.tabletable_Received_By = CType(Me.Table,table_Received_ByDataTable) End Sub - - + + _ Public Property Received_By() As String Get - Return CType(Me(Me.tabletable_Received_By.Received_ByColumn), String) + Return CType(Me(Me.tabletable_Received_By.Received_ByColumn),String) End Get Set Me(Me.tabletable_Received_By.Received_ByColumn) = value End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Sample_PreparationRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample_Preparation As table_Sample_PreparationDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample_Preparation = CType(Me.Table, table_Sample_PreparationDataTable) + Me.tabletable_Sample_Preparation = CType(Me.Table,table_Sample_PreparationDataTable) End Sub - - + + _ Public Property Cleaning() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.CleaningColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.CleaningColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.CleaningColumn) = value End Set End Property - - + + _ Public Property Drying() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.DryingColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.DryingColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.DryingColumn) = value End Set End Property - - + + _ Public Property Evaporation() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.EvaporationColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.EvaporationColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.EvaporationColumn) = value End Set End Property - - + + _ Public Property Freeze_Drying() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.Freeze_DryingColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.Freeze_DryingColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.Freeze_DryingColumn) = value End Set End Property - - + + _ Public Property Homogenizing() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.HomogenizingColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.HomogenizingColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.HomogenizingColumn) = value End Set End Property - - + + _ Public Property Pelletization() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.PelletizationColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.PelletizationColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.PelletizationColumn) = value End Set End Property - - + + _ Public Property Fragmentation() As Boolean Get - Return CType(Me(Me.tabletable_Sample_Preparation.FragmentationColumn), Boolean) + Return CType(Me(Me.tabletable_Sample_Preparation.FragmentationColumn),Boolean) End Get Set Me(Me.tabletable_Sample_Preparation.FragmentationColumn) = value End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Sample_SetRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample_Set As table_Sample_SetDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample_Set = CType(Me.Table, table_Sample_SetDataTable) + Me.tabletable_Sample_Set = CType(Me.Table,table_Sample_SetDataTable) End Sub - - + + _ Public Property Country_Code() As String Get - Return CType(Me(Me.tabletable_Sample_Set.Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Sample_Set.Country_CodeColumn),String) End Get Set Me(Me.tabletable_Sample_Set.Country_CodeColumn) = value End Set End Property - - + + _ Public Property Client_ID() As String Get - Return CType(Me(Me.tabletable_Sample_Set.Client_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_Set.Client_IDColumn),String) End Get Set Me(Me.tabletable_Sample_Set.Client_IDColumn) = value End Set End Property - - + + _ Public Property Year() As String Get - Return CType(Me(Me.tabletable_Sample_Set.YearColumn), String) + Return CType(Me(Me.tabletable_Sample_Set.YearColumn),String) End Get Set Me(Me.tabletable_Sample_Set.YearColumn) = value End Set End Property - - + + _ Public Property Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_Sample_Set.Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_Sample_Set.Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property Sample_Set_Receipt_Date() As Date Get - Try - Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_Receipt_DateColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_Receipt_DateColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Sample_Set_Receipt_Date' in table 'table_Sample_Set' is DBN" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Sample_Set_Receipt_Date' in table 'table_Sample_Set' is DBN"& _ "ull.", e) End Try End Get @@ -14345,15 +14343,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Set.Sample_Set_Receipt_DateColumn) = value End Set End Property - - + + _ Public Property Sample_Set_Report_Date() As Date Get - Try - Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_Report_DateColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample_Set.Sample_Set_Report_DateColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Sample_Set_Report_Date' in table 'table_Sample_Set' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Sample_Set_Report_Date' in table 'table_Sample_Set' is DBNu"& _ "ll.", e) End Try End Get @@ -14361,13 +14359,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Set.Sample_Set_Report_DateColumn) = value End Set End Property - - + + _ Public Property Received_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample_Set.Received_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_Set.Received_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Received_By' in table 'table_Sample_Set' is DBNull.", e) End Try @@ -14376,199 +14374,199 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Set.Received_ByColumn) = value End Set End Property - - + + _ Public Property table_ClientRowParent() As table_ClientRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_Set_table_Client")), table_ClientRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_Set_table_Client")),table_ClientRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_Sample_Set_table_Client")) End Set End Property - - + + _ Public Function IsSample_Set_Receipt_DateNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Set.Sample_Set_Receipt_DateColumn) End Function - - + + _ Public Sub SetSample_Set_Receipt_DateNull() Me(Me.tabletable_Sample_Set.Sample_Set_Receipt_DateColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSample_Set_Report_DateNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Set.Sample_Set_Report_DateColumn) End Function - - + + _ Public Sub SetSample_Set_Report_DateNull() Me(Me.tabletable_Sample_Set.Sample_Set_Report_DateColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsReceived_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Set.Received_ByColumn) End Function - - + + _ Public Sub SetReceived_ByNull() Me(Me.tabletable_Sample_Set.Received_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_SampleRows() As table_SampleRow() If (Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set") Is Nothing) Then Return New table_SampleRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set")), table_SampleRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set")),table_SampleRow()) End If End Function - - + + _ Public Function Gettable_Sample_Sample_PreparationRows() As table_Sample_Sample_PreparationRow() If (Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set1") Is Nothing) Then Return New table_Sample_Sample_PreparationRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set1")), table_Sample_Sample_PreparationRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set1")),table_Sample_Sample_PreparationRow()) End If End Function - - + + _ Public Function Gettable_Sample_NAA_ResultsRows() As table_Sample_NAA_ResultsRow() If (Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set2") Is Nothing) Then Return New table_Sample_NAA_ResultsRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set2")), table_Sample_NAA_ResultsRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Sample_table_Sample_Set2")),table_Sample_NAA_ResultsRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Sample_TypeRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample_Type As table_Sample_TypeDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample_Type = CType(Me.Table, table_Sample_TypeDataTable) + Me.tabletable_Sample_Type = CType(Me.Table,table_Sample_TypeDataTable) End Sub - - + + _ Public Property SampleType() As String Get - Return CType(Me(Me.tabletable_Sample_Type.SampleTypeColumn), String) + Return CType(Me(Me.tabletable_Sample_Type.SampleTypeColumn),String) End Get Set Me(Me.tabletable_Sample_Type.SampleTypeColumn) = value End Set End Property End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_SampleRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample As table_SampleDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample = CType(Me.Table, table_SampleDataTable) + Me.tabletable_Sample = CType(Me.Table,table_SampleDataTable) End Sub - - + + _ Public Property F_Country_Code() As String Get - Return CType(Me(Me.tabletable_Sample.F_Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Sample.F_Country_CodeColumn),String) End Get Set Me(Me.tabletable_Sample.F_Country_CodeColumn) = value End Set End Property - - + + _ Public Property F_Client_ID() As String Get - Return CType(Me(Me.tabletable_Sample.F_Client_IDColumn), String) + Return CType(Me(Me.tabletable_Sample.F_Client_IDColumn),String) End Get Set Me(Me.tabletable_Sample.F_Client_IDColumn) = value End Set End Property - - + + _ Public Property F_Year() As String Get - Return CType(Me(Me.tabletable_Sample.F_YearColumn), String) + Return CType(Me(Me.tabletable_Sample.F_YearColumn),String) End Get Set Me(Me.tabletable_Sample.F_YearColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_Sample.F_Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_Sample.F_Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_Sample.F_Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_Sample.F_Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_Sample.F_Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_Sample.F_Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property A_Sample_ID() As String Get - Return CType(Me(Me.tabletable_Sample.A_Sample_IDColumn), String) + Return CType(Me(Me.tabletable_Sample.A_Sample_IDColumn),String) End Get Set Me(Me.tabletable_Sample.A_Sample_IDColumn) = value End Set End Property - - + + _ Public Property A_Client_Sample_ID() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Client_Sample_IDColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Client_Sample_IDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Client_Sample_ID' in table 'table_Sample' is DBNull.", e) End Try @@ -14577,13 +14575,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Client_Sample_IDColumn) = value End Set End Property - - + + _ Public Property A_Sample_Type() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sample_TypeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Sample_TypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sample_Type' in table 'table_Sample' is DBNull.", e) End Try @@ -14592,13 +14590,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sample_TypeColumn) = value End Set End Property - - + + _ Public Property A_Sample_Subtype() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sample_SubtypeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Sample_SubtypeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sample_Subtype' in table 'table_Sample' is DBNull.", e) End Try @@ -14607,13 +14605,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sample_SubtypeColumn) = value End Set End Property - - + + _ Public Property A_Collection_Place() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Collection_PlaceColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Collection_PlaceColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Collection_Place' in table 'table_Sample' is DBNull.", e) End Try @@ -14622,13 +14620,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Collection_PlaceColumn) = value End Set End Property - - + + _ Public Property A_Latitude() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_LatitudeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_LatitudeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Latitude' in table 'table_Sample' is DBNull.", e) End Try @@ -14637,13 +14635,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_LatitudeColumn) = value End Set End Property - - + + _ Public Property A_Longitude() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_LongitudeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_LongitudeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Longitude' in table 'table_Sample' is DBNull.", e) End Try @@ -14652,13 +14650,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_LongitudeColumn) = value End Set End Property - - + + _ Public Property A_Cleaning_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cleaning_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cleaning_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cleaning_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14667,13 +14665,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cleaning_PlanColumn) = value End Set End Property - - + + _ Public Property A_Drying_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Drying_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Drying_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Drying_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14682,13 +14680,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Drying_PlanColumn) = value End Set End Property - - + + _ Public Property A_Evaporation_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Evaporation_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Evaporation_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Evaporation_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14697,13 +14695,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Evaporation_PlanColumn) = value End Set End Property - - + + _ Public Property A_Freeze_Drying_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Freeze_Drying_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Freeze_Drying_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Freeze_Drying_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14712,13 +14710,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Freeze_Drying_PlanColumn) = value End Set End Property - - + + _ Public Property A_Homogenizing_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Homogenizing_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Homogenizing_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Homogenizing_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14727,13 +14725,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Homogenizing_PlanColumn) = value End Set End Property - - + + _ Public Property A_Pelletization_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Pelletization_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Pelletization_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Pelletization_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14742,13 +14740,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Pelletization_PlanColumn) = value End Set End Property - - + + _ Public Property A_Fragmentation_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Fragmentation_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Fragmentation_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Fragmentation_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14757,13 +14755,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Fragmentation_PlanColumn) = value End Set End Property - - + + _ Public Property A_Determined_Elements() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Determined_ElementsColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Determined_ElementsColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Determined_Elements' in table 'table_Sample' is DBNull.", e) End Try @@ -14772,13 +14770,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Determined_ElementsColumn) = value End Set End Property - - + + _ Public Property A_Halogens_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Halogens_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Halogens_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Halogens_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14787,13 +14785,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Halogens_PlanColumn) = value End Set End Property - - + + _ Public Property A_Heavy_Metals_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Heavy_Metals_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Heavy_Metals_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Heavy_Metals_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14802,13 +14800,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Heavy_Metals_PlanColumn) = value End Set End Property - - + + _ Public Property A_Short_Lived_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Short_Lived_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Short_Lived_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Short_Lived_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14817,13 +14815,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Short_Lived_PlanColumn) = value End Set End Property - - + + _ Public Property A_Long_Lived_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Long_Lived_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Long_Lived_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Long_Lived_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14832,13 +14830,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Long_Lived_PlanColumn) = value End Set End Property - - + + _ Public Property A_F_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_F_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_F_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_F_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14847,13 +14845,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_F_PlanColumn) = value End Set End Property - - + + _ Public Property A_Na_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Na_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Na_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Na_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14862,13 +14860,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Na_PlanColumn) = value End Set End Property - - + + _ Public Property A_Mg_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Mg_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Mg_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Mg_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14877,13 +14875,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Mg_PlanColumn) = value End Set End Property - - + + _ Public Property A_Al_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Al_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Al_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Al_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14892,13 +14890,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Al_PlanColumn) = value End Set End Property - - + + _ Public Property A_Si_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Si_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Si_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Si_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14907,13 +14905,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Si_PlanColumn) = value End Set End Property - - + + _ Public Property A_S_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_S_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_S_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_S_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14922,13 +14920,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_S_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cl_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cl_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cl_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cl_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14937,13 +14935,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cl_PlanColumn) = value End Set End Property - - + + _ Public Property A_K_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_K_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_K_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_K_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14952,13 +14950,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_K_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ca_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ca_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ca_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ca_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14967,13 +14965,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ca_PlanColumn) = value End Set End Property - - + + _ Public Property A_Sc_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sc_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Sc_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sc_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14982,13 +14980,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sc_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ti_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ti_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ti_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ti_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -14997,13 +14995,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ti_PlanColumn) = value End Set End Property - - + + _ Public Property A_V_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_V_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_V_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_V_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15012,13 +15010,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_V_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cr_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cr_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cr_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cr_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15027,13 +15025,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cr_PlanColumn) = value End Set End Property - - + + _ Public Property A_Mn_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Mn_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Mn_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Mn_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15042,13 +15040,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Mn_PlanColumn) = value End Set End Property - - + + _ Public Property A_Fe_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Fe_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Fe_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Fe_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15057,13 +15055,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Fe_PlanColumn) = value End Set End Property - - + + _ Public Property A_Co_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Co_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Co_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Co_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15072,13 +15070,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Co_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cu_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cu_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cu_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cu_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15087,13 +15085,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cu_PlanColumn) = value End Set End Property - - + + _ Public Property A_Zn_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Zn_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Zn_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Zn_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15102,13 +15100,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Zn_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ga_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ga_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ga_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ga_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15117,13 +15115,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ga_PlanColumn) = value End Set End Property - - + + _ Public Property A_As_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_As_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_As_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_As_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15132,13 +15130,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_As_PlanColumn) = value End Set End Property - - + + _ Public Property A_Se_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Se_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Se_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Se_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15147,13 +15145,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Se_PlanColumn) = value End Set End Property - - + + _ Public Property A_Br_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Br_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Br_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Br_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15162,13 +15160,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Br_PlanColumn) = value End Set End Property - - + + _ Public Property A_Rb_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Rb_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Rb_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Rb_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15177,13 +15175,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Rb_PlanColumn) = value End Set End Property - - + + _ Public Property A_Sr_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sr_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Sr_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sr_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15192,13 +15190,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sr_PlanColumn) = value End Set End Property - - + + _ Public Property A_Y_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Y_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Y_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Y_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15207,13 +15205,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Y_PlanColumn) = value End Set End Property - - + + _ Public Property A_Zr_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Zr_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Zr_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Zr_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15222,13 +15220,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Zr_PlanColumn) = value End Set End Property - - + + _ Public Property A_Nb_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Nb_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Nb_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Nb_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15237,13 +15235,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Nb_PlanColumn) = value End Set End Property - - + + _ Public Property A_Mo_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Mo_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Mo_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Mo_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15252,13 +15250,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Mo_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ru_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ru_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ru_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ru_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15267,13 +15265,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ru_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ag_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ag_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ag_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ag_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15282,13 +15280,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ag_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cd_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cd_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cd_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cd_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15297,13 +15295,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cd_PlanColumn) = value End Set End Property - - + + _ Public Property A_In_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_In_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_In_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_In_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15312,13 +15310,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_In_PlanColumn) = value End Set End Property - - + + _ Public Property A_Sn_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sn_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Sn_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sn_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15327,13 +15325,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sn_PlanColumn) = value End Set End Property - - + + _ Public Property A_Sb_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sb_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Sb_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sb_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15342,13 +15340,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sb_PlanColumn) = value End Set End Property - - + + _ Public Property A_I_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_I_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_I_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_I_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15357,13 +15355,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_I_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cs_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cs_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Cs_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cs_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15372,13 +15370,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cs_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ba_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ba_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ba_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ba_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15387,13 +15385,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ba_PlanColumn) = value End Set End Property - - + + _ Public Property A_La_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_La_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_La_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_La_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15402,13 +15400,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_La_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ce_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ce_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ce_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ce_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15417,13 +15415,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ce_PlanColumn) = value End Set End Property - - + + _ Public Property A_Nd_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Nd_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Nd_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Nd_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15432,13 +15430,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Nd_PlanColumn) = value End Set End Property - - + + _ Public Property A_Sm_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Sm_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Sm_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Sm_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15447,13 +15445,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Sm_PlanColumn) = value End Set End Property - - + + _ Public Property A_Eu_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Eu_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Eu_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Eu_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15462,13 +15460,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Eu_PlanColumn) = value End Set End Property - - + + _ Public Property A_Gd_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Gd_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Gd_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Gd_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15477,13 +15475,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Gd_PlanColumn) = value End Set End Property - - + + _ Public Property A_Tb_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Tb_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Tb_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Tb_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15492,13 +15490,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Tb_PlanColumn) = value End Set End Property - - + + _ Public Property A_Dy_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Dy_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Dy_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Dy_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15507,13 +15505,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Dy_PlanColumn) = value End Set End Property - - + + _ Public Property A_Er_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Er_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Er_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Er_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15522,13 +15520,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Er_PlanColumn) = value End Set End Property - - + + _ Public Property A_Tm_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Tm_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Tm_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Tm_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15537,13 +15535,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Tm_PlanColumn) = value End Set End Property - - + + _ Public Property A_Yb_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Yb_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Yb_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Yb_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15552,13 +15550,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Yb_PlanColumn) = value End Set End Property - - + + _ Public Property A_Lu_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Lu_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Lu_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Lu_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15567,13 +15565,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Lu_PlanColumn) = value End Set End Property - - + + _ Public Property A_Hf_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Hf_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Hf_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Hf_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15582,13 +15580,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Hf_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ta_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ta_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ta_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ta_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15597,13 +15595,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ta_PlanColumn) = value End Set End Property - - + + _ Public Property A_W_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_W_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_W_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_W_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15612,13 +15610,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_W_PlanColumn) = value End Set End Property - - + + _ Public Property A_Re_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Re_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Re_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Re_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15627,13 +15625,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Re_PlanColumn) = value End Set End Property - - + + _ Public Property A_Ir_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Ir_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Ir_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Ir_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15642,13 +15640,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Ir_PlanColumn) = value End Set End Property - - + + _ Public Property A_Pt_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Pt_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Pt_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Pt_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15657,13 +15655,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Pt_PlanColumn) = value End Set End Property - - + + _ Public Property A_Au_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Au_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Au_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Au_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15672,13 +15670,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Au_PlanColumn) = value End Set End Property - - + + _ Public Property A_Hg_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Hg_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Hg_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Hg_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15687,13 +15685,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Hg_PlanColumn) = value End Set End Property - - + + _ Public Property A_Th_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_Th_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_Th_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Th_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15702,13 +15700,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Th_PlanColumn) = value End Set End Property - - + + _ Public Property A_U_Plan() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.A_U_PlanColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.A_U_PlanColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_U_Plan' in table 'table_Sample' is DBNull.", e) End Try @@ -15717,13 +15715,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_U_PlanColumn) = value End Set End Property - - + + _ Public Property A_Cupboard_Number() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Cupboard_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Cupboard_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Cupboard_Number' in table 'table_Sample' is DBNull.", e) End Try @@ -15732,13 +15730,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Cupboard_NumberColumn) = value End Set End Property - - + + _ Public Property A_Box_Number() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Box_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Box_NumberColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Box_Number' in table 'table_Sample' is DBNull.", e) End Try @@ -15747,13 +15745,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Box_NumberColumn) = value End Set End Property - - + + _ Public Property A_Received_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_Received_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_Received_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Received_By' in table 'table_Sample' is DBNull.", e) End Try @@ -15762,13 +15760,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_Received_ByColumn) = value End Set End Property - - + + _ Public Property A_Notes() As String Get - Try - Return CType(Me(Me.tabletable_Sample.A_NotesColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.A_NotesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Notes' in table 'table_Sample' is DBNull.", e) End Try @@ -15777,13 +15775,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.A_NotesColumn) = value End Set End Property - - + + _ Public Property P_Cleaning_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Cleaning_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Cleaning_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Cleaning_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15792,13 +15790,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Cleaning_FactColumn) = value End Set End Property - - + + _ Public Property P_Drying_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Drying_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Drying_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Drying_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15807,13 +15805,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Drying_FactColumn) = value End Set End Property - - + + _ Public Property P_Evaporation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Evaporation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Evaporation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Evaporation_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15822,13 +15820,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Evaporation_FactColumn) = value End Set End Property - - + + _ Public Property P_Freeze_Drying_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Freeze_Drying_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Freeze_Drying_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Freeze_Drying_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15837,13 +15835,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Freeze_Drying_FactColumn) = value End Set End Property - - + + _ Public Property P_Homogenizing_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Homogenizing_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Homogenizing_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Homogenizing_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15852,13 +15850,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Homogenizing_FactColumn) = value End Set End Property - - + + _ Public Property P_Pelletization_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Pelletization_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Pelletization_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Pelletization_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15867,13 +15865,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Pelletization_FactColumn) = value End Set End Property - - + + _ Public Property P_Fragmentation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.P_Fragmentation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.P_Fragmentation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Fragmentation_Fact' in table 'table_Sample' is DBNull.", e) End Try @@ -15882,13 +15880,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Fragmentation_FactColumn) = value End Set End Property - - + + _ Public Property P_Weighting_SLI() As Single Get - Try - Return CType(Me(Me.tabletable_Sample.P_Weighting_SLIColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample.P_Weighting_SLIColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_SLI' in table 'table_Sample' is DBNull.", e) End Try @@ -15897,13 +15895,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Weighting_SLIColumn) = value End Set End Property - - + + _ Public Property P_Weighting_LLI() As Single Get - Try - Return CType(Me(Me.tabletable_Sample.P_Weighting_LLIColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample.P_Weighting_LLIColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_LLI' in table 'table_Sample' is DBNull.", e) End Try @@ -15912,15 +15910,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Weighting_LLIColumn) = value End Set End Property - - + + _ Public Property P_Date_Sample_Preparation() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.P_Date_Sample_PreparationColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.P_Date_Sample_PreparationColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Date_Sample_Preparation' in table 'table_Sample' is DBNul" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Date_Sample_Preparation' in table 'table_Sample' is DBNul"& _ "l.", e) End Try End Get @@ -15928,13 +15926,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Date_Sample_PreparationColumn) = value End Set End Property - - + + _ Public Property P_Maked_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.P_Maked_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.P_Maked_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'P_Maked_By' in table 'table_Sample' is DBNull.", e) End Try @@ -15943,13 +15941,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.P_Maked_ByColumn) = value End Set End Property - - + + _ Public Property I_SLI_Time_Start() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Time_StartColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Time_StartColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Time_Start' in table 'table_Sample' is DBNull.", e) End Try @@ -15958,15 +15956,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Time_StartColumn) = value End Set End Property - - + + _ Public Property I_SLI_Channel_Irradiation() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Channel_IrradiationColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Channel_IrradiationColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Channel_Irradiation' in table 'table_Sample' is DBNul" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Channel_Irradiation' in table 'table_Sample' is DBNul"& _ "l.", e) End Try End Get @@ -15974,13 +15972,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Channel_IrradiationColumn) = value End Set End Property - - + + _ Public Property I_SLI_File_First() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_File_FirstColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_File_FirstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_File_First' in table 'table_Sample' is DBNull.", e) End Try @@ -15989,13 +15987,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_File_FirstColumn) = value End Set End Property - - + + _ Public Property I_SLI_Irradiated_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Irradiated_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Irradiated_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Irradiated_By' in table 'table_Sample' is DBNull.", e) End Try @@ -16004,15 +16002,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Irradiated_ByColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Irradiation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Irradiation_Fact' in table 'table_Sample' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Irradiation_Fact' in table 'table_Sample' is DBNull"& _ ".", e) End Try End Get @@ -16020,13 +16018,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Irradiation_FactColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Date_Start() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Date_StartColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Date_StartColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Date_Start' in table 'table_Sample' is DBNull.", e) End Try @@ -16035,13 +16033,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Date_StartColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Time_Start() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Time_StartColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Time_StartColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Time_Start' in table 'table_Sample' is DBNull.", e) End Try @@ -16050,13 +16048,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Time_StartColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Date_Finish() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Date_FinishColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Date_FinishColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Date_Finish' in table 'table_Sample' is DBNull.", e) End Try @@ -16065,13 +16063,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Date_FinishColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Time_Finish() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Time_FinishColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Time_FinishColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Time_Finish' in table 'table_Sample' is DBNull.", e) End Try @@ -16080,15 +16078,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Time_FinishColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Channel_Irradiation() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Channel_IrradiationColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Channel_IrradiationColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Channel_Irradiation' in table 'table_Sample' is DBN" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Channel_Irradiation' in table 'table_Sample' is DBN"& _ "ull.", e) End Try End Get @@ -16096,15 +16094,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Channel_IrradiationColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Detector_Number() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Detector_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Detector_NumberColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Detector_Number' in table 'table_Sample' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Detector_Number' in table 'table_Sample' is DBNull."& _ "", e) End Try End Get @@ -16112,13 +16110,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Detector_NumberColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_File_First() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_File_FirstColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_File_FirstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_File_First' in table 'table_Sample' is DBNull.", e) End Try @@ -16127,13 +16125,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_File_FirstColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_File_Last() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_File_LastColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_File_LastColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_File_Last' in table 'table_Sample' is DBNull.", e) End Try @@ -16142,13 +16140,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_File_LastColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Irradiated_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiated_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiated_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Irradiated_By' in table 'table_Sample' is DBNull.", e) End Try @@ -16157,15 +16155,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Irradiated_ByColumn) = value End Set End Property - - + + _ Public Property I_LLI_1_Irradiation_Log() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiation_LogColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_1_Irradiation_LogColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Irradiation_Log' in table 'table_Sample' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_1_Irradiation_Log' in table 'table_Sample' is DBNull."& _ "", e) End Try End Get @@ -16173,15 +16171,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_1_Irradiation_LogColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Irradiation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Irradiation_Fact' in table 'table_Sample' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Irradiation_Fact' in table 'table_Sample' is DBNull"& _ ".", e) End Try End Get @@ -16189,13 +16187,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Irradiation_FactColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Date_Start() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Date_StartColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Date_StartColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Date_Start' in table 'table_Sample' is DBNull.", e) End Try @@ -16204,13 +16202,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Date_StartColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Time_Start() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Time_StartColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Time_StartColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Time_Start' in table 'table_Sample' is DBNull.", e) End Try @@ -16219,13 +16217,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Time_StartColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Date_Finish() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Date_FinishColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Date_FinishColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Date_Finish' in table 'table_Sample' is DBNull.", e) End Try @@ -16234,13 +16232,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Date_FinishColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Time_Finish() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Time_FinishColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Time_FinishColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Time_Finish' in table 'table_Sample' is DBNull.", e) End Try @@ -16249,15 +16247,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Time_FinishColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Channel_Irradiation() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Channel_IrradiationColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Channel_IrradiationColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Channel_Irradiation' in table 'table_Sample' is DBN" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Channel_Irradiation' in table 'table_Sample' is DBN"& _ "ull.", e) End Try End Get @@ -16265,15 +16263,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Channel_IrradiationColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Detector_Number() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Detector_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Detector_NumberColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Detector_Number' in table 'table_Sample' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Detector_Number' in table 'table_Sample' is DBNull."& _ "", e) End Try End Get @@ -16281,13 +16279,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Detector_NumberColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_File_First() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_File_FirstColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_File_FirstColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_File_First' in table 'table_Sample' is DBNull.", e) End Try @@ -16296,13 +16294,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_File_FirstColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_File_Last() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_File_LastColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_File_LastColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_File_Last' in table 'table_Sample' is DBNull.", e) End Try @@ -16311,13 +16309,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_File_LastColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Irradiated_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiated_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiated_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Irradiated_By' in table 'table_Sample' is DBNull.", e) End Try @@ -16326,15 +16324,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Irradiated_ByColumn) = value End Set End Property - - + + _ Public Property I_LLI_2_Irradiation_Log() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiation_LogColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_LLI_2_Irradiation_LogColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Irradiation_Log' in table 'table_Sample' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_LLI_2_Irradiation_Log' in table 'table_Sample' is DBNull."& _ "", e) End Try End Get @@ -16342,13 +16340,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_LLI_2_Irradiation_LogColumn) = value End Set End Property - - + + _ Public Property I_SLI_Date() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_DateColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_DateColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Date' in table 'table_Sample' is DBNull.", e) End Try @@ -16357,13 +16355,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_DateColumn) = value End Set End Property - - + + _ Public Property I_SLI_Duration() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_DurationColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_DurationColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Duration' in table 'table_Sample' is DBNull.", e) End Try @@ -16372,15 +16370,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_DurationColumn) = value End Set End Property - - + + _ Public Property I_SLI_Irradiation_Log_Number() As Date Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Irradiation_Log_NumberColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Irradiation_Log_NumberColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Irradiation_Log_Number' in table 'table_Sample' is DB" & + Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Irradiation_Log_Number' in table 'table_Sample' is DB"& _ "Null.", e) End Try End Get @@ -16388,13 +16386,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Irradiation_Log_NumberColumn) = value End Set End Property - - + + _ Public Property I_SLI_Measured_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Measured_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Measured_ByColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Measured_By' in table 'table_Sample' is DBNull.", e) End Try @@ -16403,13 +16401,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Measured_ByColumn) = value End Set End Property - - + + _ Public Property I_SLI_Detector_1() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_1Column), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_1Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Detector_1' in table 'table_Sample' is DBNull.", e) End Try @@ -16418,13 +16416,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Detector_1Column) = value End Set End Property - - + + _ Public Property I_SLI_Detector_2() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_2Column), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_2Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Detector_2' in table 'table_Sample' is DBNull.", e) End Try @@ -16433,13 +16431,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Detector_2Column) = value End Set End Property - - + + _ Public Property I_SLI_Detector_3() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_3Column), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_3Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Detector_3' in table 'table_Sample' is DBNull.", e) End Try @@ -16448,13 +16446,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Detector_3Column) = value End Set End Property - - + + _ Public Property I_SLI_Detector_4() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_4Column), Boolean) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Detector_4Column),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Detector_4' in table 'table_Sample' is DBNull.", e) End Try @@ -16463,13 +16461,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Detector_4Column) = value End Set End Property - - + + _ Public Property I_SLI_File_Last() As String Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_File_LastColumn), String) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_File_LastColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_File_Last' in table 'table_Sample' is DBNull.", e) End Try @@ -16478,13 +16476,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_File_LastColumn) = value End Set End Property - - + + _ Public Property I_SLI_Duration1() As Integer Get - Try - Return CType(Me(Me.tabletable_Sample.I_SLI_Duration1Column), Integer) + Try + Return CType(Me(Me.tabletable_Sample.I_SLI_Duration1Column),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'I_SLI_Duration1' in table 'table_Sample' is DBNull.", e) End Try @@ -16493,1609 +16491,1609 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample.I_SLI_Duration1Column) = value End Set End Property - - + + _ Public Property table_Sample_SetRowParent() As table_Sample_SetRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set")), table_Sample_SetRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set")),table_Sample_SetRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set")) End Set End Property - - + + _ Public Function IsA_Client_Sample_IDNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Client_Sample_IDColumn) End Function - - + + _ Public Sub SetA_Client_Sample_IDNull() Me(Me.tabletable_Sample.A_Client_Sample_IDColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sample_TypeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sample_TypeColumn) End Function - - + + _ Public Sub SetA_Sample_TypeNull() Me(Me.tabletable_Sample.A_Sample_TypeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sample_SubtypeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sample_SubtypeColumn) End Function - - + + _ Public Sub SetA_Sample_SubtypeNull() Me(Me.tabletable_Sample.A_Sample_SubtypeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Collection_PlaceNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Collection_PlaceColumn) End Function - - + + _ Public Sub SetA_Collection_PlaceNull() Me(Me.tabletable_Sample.A_Collection_PlaceColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_LatitudeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_LatitudeColumn) End Function - - + + _ Public Sub SetA_LatitudeNull() Me(Me.tabletable_Sample.A_LatitudeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_LongitudeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_LongitudeColumn) End Function - - + + _ Public Sub SetA_LongitudeNull() Me(Me.tabletable_Sample.A_LongitudeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cleaning_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cleaning_PlanColumn) End Function - - + + _ Public Sub SetA_Cleaning_PlanNull() Me(Me.tabletable_Sample.A_Cleaning_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Drying_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Drying_PlanColumn) End Function - - + + _ Public Sub SetA_Drying_PlanNull() Me(Me.tabletable_Sample.A_Drying_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Evaporation_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Evaporation_PlanColumn) End Function - - + + _ Public Sub SetA_Evaporation_PlanNull() Me(Me.tabletable_Sample.A_Evaporation_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Freeze_Drying_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Freeze_Drying_PlanColumn) End Function - - + + _ Public Sub SetA_Freeze_Drying_PlanNull() Me(Me.tabletable_Sample.A_Freeze_Drying_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Homogenizing_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Homogenizing_PlanColumn) End Function - - + + _ Public Sub SetA_Homogenizing_PlanNull() Me(Me.tabletable_Sample.A_Homogenizing_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Pelletization_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Pelletization_PlanColumn) End Function - - + + _ Public Sub SetA_Pelletization_PlanNull() Me(Me.tabletable_Sample.A_Pelletization_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Fragmentation_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Fragmentation_PlanColumn) End Function - - + + _ Public Sub SetA_Fragmentation_PlanNull() Me(Me.tabletable_Sample.A_Fragmentation_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Determined_ElementsNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Determined_ElementsColumn) End Function - - + + _ Public Sub SetA_Determined_ElementsNull() Me(Me.tabletable_Sample.A_Determined_ElementsColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Halogens_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Halogens_PlanColumn) End Function - - + + _ Public Sub SetA_Halogens_PlanNull() Me(Me.tabletable_Sample.A_Halogens_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Heavy_Metals_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Heavy_Metals_PlanColumn) End Function - - + + _ Public Sub SetA_Heavy_Metals_PlanNull() Me(Me.tabletable_Sample.A_Heavy_Metals_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Short_Lived_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Short_Lived_PlanColumn) End Function - - + + _ Public Sub SetA_Short_Lived_PlanNull() Me(Me.tabletable_Sample.A_Short_Lived_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Long_Lived_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Long_Lived_PlanColumn) End Function - - + + _ Public Sub SetA_Long_Lived_PlanNull() Me(Me.tabletable_Sample.A_Long_Lived_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_F_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_F_PlanColumn) End Function - - + + _ Public Sub SetA_F_PlanNull() Me(Me.tabletable_Sample.A_F_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Na_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Na_PlanColumn) End Function - - + + _ Public Sub SetA_Na_PlanNull() Me(Me.tabletable_Sample.A_Na_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Mg_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Mg_PlanColumn) End Function - - + + _ Public Sub SetA_Mg_PlanNull() Me(Me.tabletable_Sample.A_Mg_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Al_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Al_PlanColumn) End Function - - + + _ Public Sub SetA_Al_PlanNull() Me(Me.tabletable_Sample.A_Al_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Si_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Si_PlanColumn) End Function - - + + _ Public Sub SetA_Si_PlanNull() Me(Me.tabletable_Sample.A_Si_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_S_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_S_PlanColumn) End Function - - + + _ Public Sub SetA_S_PlanNull() Me(Me.tabletable_Sample.A_S_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cl_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cl_PlanColumn) End Function - - + + _ Public Sub SetA_Cl_PlanNull() Me(Me.tabletable_Sample.A_Cl_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_K_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_K_PlanColumn) End Function - - + + _ Public Sub SetA_K_PlanNull() Me(Me.tabletable_Sample.A_K_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ca_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ca_PlanColumn) End Function - - + + _ Public Sub SetA_Ca_PlanNull() Me(Me.tabletable_Sample.A_Ca_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sc_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sc_PlanColumn) End Function - - + + _ Public Sub SetA_Sc_PlanNull() Me(Me.tabletable_Sample.A_Sc_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ti_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ti_PlanColumn) End Function - - + + _ Public Sub SetA_Ti_PlanNull() Me(Me.tabletable_Sample.A_Ti_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_V_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_V_PlanColumn) End Function - - + + _ Public Sub SetA_V_PlanNull() Me(Me.tabletable_Sample.A_V_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cr_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cr_PlanColumn) End Function - - + + _ Public Sub SetA_Cr_PlanNull() Me(Me.tabletable_Sample.A_Cr_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Mn_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Mn_PlanColumn) End Function - - + + _ Public Sub SetA_Mn_PlanNull() Me(Me.tabletable_Sample.A_Mn_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Fe_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Fe_PlanColumn) End Function - - + + _ Public Sub SetA_Fe_PlanNull() Me(Me.tabletable_Sample.A_Fe_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Co_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Co_PlanColumn) End Function - - + + _ Public Sub SetA_Co_PlanNull() Me(Me.tabletable_Sample.A_Co_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cu_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cu_PlanColumn) End Function - - + + _ Public Sub SetA_Cu_PlanNull() Me(Me.tabletable_Sample.A_Cu_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Zn_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Zn_PlanColumn) End Function - - + + _ Public Sub SetA_Zn_PlanNull() Me(Me.tabletable_Sample.A_Zn_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ga_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ga_PlanColumn) End Function - - + + _ Public Sub SetA_Ga_PlanNull() Me(Me.tabletable_Sample.A_Ga_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_As_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_As_PlanColumn) End Function - - + + _ Public Sub SetA_As_PlanNull() Me(Me.tabletable_Sample.A_As_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Se_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Se_PlanColumn) End Function - - + + _ Public Sub SetA_Se_PlanNull() Me(Me.tabletable_Sample.A_Se_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Br_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Br_PlanColumn) End Function - - + + _ Public Sub SetA_Br_PlanNull() Me(Me.tabletable_Sample.A_Br_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Rb_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Rb_PlanColumn) End Function - - + + _ Public Sub SetA_Rb_PlanNull() Me(Me.tabletable_Sample.A_Rb_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sr_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sr_PlanColumn) End Function - - + + _ Public Sub SetA_Sr_PlanNull() Me(Me.tabletable_Sample.A_Sr_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Y_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Y_PlanColumn) End Function - - + + _ Public Sub SetA_Y_PlanNull() Me(Me.tabletable_Sample.A_Y_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Zr_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Zr_PlanColumn) End Function - - + + _ Public Sub SetA_Zr_PlanNull() Me(Me.tabletable_Sample.A_Zr_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Nb_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Nb_PlanColumn) End Function - - + + _ Public Sub SetA_Nb_PlanNull() Me(Me.tabletable_Sample.A_Nb_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Mo_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Mo_PlanColumn) End Function - - + + _ Public Sub SetA_Mo_PlanNull() Me(Me.tabletable_Sample.A_Mo_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ru_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ru_PlanColumn) End Function - - + + _ Public Sub SetA_Ru_PlanNull() Me(Me.tabletable_Sample.A_Ru_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ag_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ag_PlanColumn) End Function - - + + _ Public Sub SetA_Ag_PlanNull() Me(Me.tabletable_Sample.A_Ag_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cd_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cd_PlanColumn) End Function - - + + _ Public Sub SetA_Cd_PlanNull() Me(Me.tabletable_Sample.A_Cd_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_In_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_In_PlanColumn) End Function - - + + _ Public Sub SetA_In_PlanNull() Me(Me.tabletable_Sample.A_In_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sn_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sn_PlanColumn) End Function - - + + _ Public Sub SetA_Sn_PlanNull() Me(Me.tabletable_Sample.A_Sn_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sb_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sb_PlanColumn) End Function - - + + _ Public Sub SetA_Sb_PlanNull() Me(Me.tabletable_Sample.A_Sb_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_I_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_I_PlanColumn) End Function - - + + _ Public Sub SetA_I_PlanNull() Me(Me.tabletable_Sample.A_I_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cs_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cs_PlanColumn) End Function - - + + _ Public Sub SetA_Cs_PlanNull() Me(Me.tabletable_Sample.A_Cs_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ba_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ba_PlanColumn) End Function - - + + _ Public Sub SetA_Ba_PlanNull() Me(Me.tabletable_Sample.A_Ba_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_La_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_La_PlanColumn) End Function - - + + _ Public Sub SetA_La_PlanNull() Me(Me.tabletable_Sample.A_La_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ce_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ce_PlanColumn) End Function - - + + _ Public Sub SetA_Ce_PlanNull() Me(Me.tabletable_Sample.A_Ce_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Nd_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Nd_PlanColumn) End Function - - + + _ Public Sub SetA_Nd_PlanNull() Me(Me.tabletable_Sample.A_Nd_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Sm_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Sm_PlanColumn) End Function - - + + _ Public Sub SetA_Sm_PlanNull() Me(Me.tabletable_Sample.A_Sm_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Eu_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Eu_PlanColumn) End Function - - + + _ Public Sub SetA_Eu_PlanNull() Me(Me.tabletable_Sample.A_Eu_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Gd_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Gd_PlanColumn) End Function - - + + _ Public Sub SetA_Gd_PlanNull() Me(Me.tabletable_Sample.A_Gd_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Tb_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Tb_PlanColumn) End Function - - + + _ Public Sub SetA_Tb_PlanNull() Me(Me.tabletable_Sample.A_Tb_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Dy_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Dy_PlanColumn) End Function - - + + _ Public Sub SetA_Dy_PlanNull() Me(Me.tabletable_Sample.A_Dy_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Er_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Er_PlanColumn) End Function - - + + _ Public Sub SetA_Er_PlanNull() Me(Me.tabletable_Sample.A_Er_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Tm_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Tm_PlanColumn) End Function - - + + _ Public Sub SetA_Tm_PlanNull() Me(Me.tabletable_Sample.A_Tm_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Yb_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Yb_PlanColumn) End Function - - + + _ Public Sub SetA_Yb_PlanNull() Me(Me.tabletable_Sample.A_Yb_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Lu_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Lu_PlanColumn) End Function - - + + _ Public Sub SetA_Lu_PlanNull() Me(Me.tabletable_Sample.A_Lu_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Hf_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Hf_PlanColumn) End Function - - + + _ Public Sub SetA_Hf_PlanNull() Me(Me.tabletable_Sample.A_Hf_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ta_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ta_PlanColumn) End Function - - + + _ Public Sub SetA_Ta_PlanNull() Me(Me.tabletable_Sample.A_Ta_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_W_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_W_PlanColumn) End Function - - + + _ Public Sub SetA_W_PlanNull() Me(Me.tabletable_Sample.A_W_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Re_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Re_PlanColumn) End Function - - + + _ Public Sub SetA_Re_PlanNull() Me(Me.tabletable_Sample.A_Re_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Ir_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Ir_PlanColumn) End Function - - + + _ Public Sub SetA_Ir_PlanNull() Me(Me.tabletable_Sample.A_Ir_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Pt_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Pt_PlanColumn) End Function - - + + _ Public Sub SetA_Pt_PlanNull() Me(Me.tabletable_Sample.A_Pt_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Au_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Au_PlanColumn) End Function - - + + _ Public Sub SetA_Au_PlanNull() Me(Me.tabletable_Sample.A_Au_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Hg_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Hg_PlanColumn) End Function - - + + _ Public Sub SetA_Hg_PlanNull() Me(Me.tabletable_Sample.A_Hg_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Th_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Th_PlanColumn) End Function - - + + _ Public Sub SetA_Th_PlanNull() Me(Me.tabletable_Sample.A_Th_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_U_PlanNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_U_PlanColumn) End Function - - + + _ Public Sub SetA_U_PlanNull() Me(Me.tabletable_Sample.A_U_PlanColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Cupboard_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Cupboard_NumberColumn) End Function - - + + _ Public Sub SetA_Cupboard_NumberNull() Me(Me.tabletable_Sample.A_Cupboard_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Box_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Box_NumberColumn) End Function - - + + _ Public Sub SetA_Box_NumberNull() Me(Me.tabletable_Sample.A_Box_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Received_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_Received_ByColumn) End Function - - + + _ Public Sub SetA_Received_ByNull() Me(Me.tabletable_Sample.A_Received_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_NotesNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.A_NotesColumn) End Function - - + + _ Public Sub SetA_NotesNull() Me(Me.tabletable_Sample.A_NotesColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Cleaning_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Cleaning_FactColumn) End Function - - + + _ Public Sub SetP_Cleaning_FactNull() Me(Me.tabletable_Sample.P_Cleaning_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Drying_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Drying_FactColumn) End Function - - + + _ Public Sub SetP_Drying_FactNull() Me(Me.tabletable_Sample.P_Drying_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Evaporation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Evaporation_FactColumn) End Function - - + + _ Public Sub SetP_Evaporation_FactNull() Me(Me.tabletable_Sample.P_Evaporation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Freeze_Drying_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Freeze_Drying_FactColumn) End Function - - + + _ Public Sub SetP_Freeze_Drying_FactNull() Me(Me.tabletable_Sample.P_Freeze_Drying_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Homogenizing_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Homogenizing_FactColumn) End Function - - + + _ Public Sub SetP_Homogenizing_FactNull() Me(Me.tabletable_Sample.P_Homogenizing_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Pelletization_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Pelletization_FactColumn) End Function - - + + _ Public Sub SetP_Pelletization_FactNull() Me(Me.tabletable_Sample.P_Pelletization_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Fragmentation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Fragmentation_FactColumn) End Function - - + + _ Public Sub SetP_Fragmentation_FactNull() Me(Me.tabletable_Sample.P_Fragmentation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Weighting_SLINull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Weighting_SLIColumn) End Function - - + + _ Public Sub SetP_Weighting_SLINull() Me(Me.tabletable_Sample.P_Weighting_SLIColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Weighting_LLINull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Weighting_LLIColumn) End Function - - + + _ Public Sub SetP_Weighting_LLINull() Me(Me.tabletable_Sample.P_Weighting_LLIColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Date_Sample_PreparationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Date_Sample_PreparationColumn) End Function - - + + _ Public Sub SetP_Date_Sample_PreparationNull() Me(Me.tabletable_Sample.P_Date_Sample_PreparationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Maked_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.P_Maked_ByColumn) End Function - - + + _ Public Sub SetP_Maked_ByNull() Me(Me.tabletable_Sample.P_Maked_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Time_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Time_StartColumn) End Function - - + + _ Public Sub SetI_SLI_Time_StartNull() Me(Me.tabletable_Sample.I_SLI_Time_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Channel_IrradiationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Channel_IrradiationColumn) End Function - - + + _ Public Sub SetI_SLI_Channel_IrradiationNull() Me(Me.tabletable_Sample.I_SLI_Channel_IrradiationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_File_FirstNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_File_FirstColumn) End Function - - + + _ Public Sub SetI_SLI_File_FirstNull() Me(Me.tabletable_Sample.I_SLI_File_FirstColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Irradiated_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Irradiated_ByColumn) End Function - - + + _ Public Sub SetI_SLI_Irradiated_ByNull() Me(Me.tabletable_Sample.I_SLI_Irradiated_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Irradiation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Irradiation_FactColumn) End Function - - + + _ Public Sub SetI_LLI_1_Irradiation_FactNull() Me(Me.tabletable_Sample.I_LLI_1_Irradiation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Date_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Date_StartColumn) End Function - - + + _ Public Sub SetI_LLI_1_Date_StartNull() Me(Me.tabletable_Sample.I_LLI_1_Date_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Time_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Time_StartColumn) End Function - - + + _ Public Sub SetI_LLI_1_Time_StartNull() Me(Me.tabletable_Sample.I_LLI_1_Time_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Date_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Date_FinishColumn) End Function - - + + _ Public Sub SetI_LLI_1_Date_FinishNull() Me(Me.tabletable_Sample.I_LLI_1_Date_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Time_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Time_FinishColumn) End Function - - + + _ Public Sub SetI_LLI_1_Time_FinishNull() Me(Me.tabletable_Sample.I_LLI_1_Time_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Channel_IrradiationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Channel_IrradiationColumn) End Function - - + + _ Public Sub SetI_LLI_1_Channel_IrradiationNull() Me(Me.tabletable_Sample.I_LLI_1_Channel_IrradiationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Detector_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Detector_NumberColumn) End Function - - + + _ Public Sub SetI_LLI_1_Detector_NumberNull() Me(Me.tabletable_Sample.I_LLI_1_Detector_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_File_FirstNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_File_FirstColumn) End Function - - + + _ Public Sub SetI_LLI_1_File_FirstNull() Me(Me.tabletable_Sample.I_LLI_1_File_FirstColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_File_LastNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_File_LastColumn) End Function - - + + _ Public Sub SetI_LLI_1_File_LastNull() Me(Me.tabletable_Sample.I_LLI_1_File_LastColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Irradiated_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Irradiated_ByColumn) End Function - - + + _ Public Sub SetI_LLI_1_Irradiated_ByNull() Me(Me.tabletable_Sample.I_LLI_1_Irradiated_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_1_Irradiation_LogNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_1_Irradiation_LogColumn) End Function - - + + _ Public Sub SetI_LLI_1_Irradiation_LogNull() Me(Me.tabletable_Sample.I_LLI_1_Irradiation_LogColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Irradiation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Irradiation_FactColumn) End Function - - + + _ Public Sub SetI_LLI_2_Irradiation_FactNull() Me(Me.tabletable_Sample.I_LLI_2_Irradiation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Date_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Date_StartColumn) End Function - - + + _ Public Sub SetI_LLI_2_Date_StartNull() Me(Me.tabletable_Sample.I_LLI_2_Date_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Time_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Time_StartColumn) End Function - - + + _ Public Sub SetI_LLI_2_Time_StartNull() Me(Me.tabletable_Sample.I_LLI_2_Time_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Date_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Date_FinishColumn) End Function - - + + _ Public Sub SetI_LLI_2_Date_FinishNull() Me(Me.tabletable_Sample.I_LLI_2_Date_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Time_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Time_FinishColumn) End Function - - + + _ Public Sub SetI_LLI_2_Time_FinishNull() Me(Me.tabletable_Sample.I_LLI_2_Time_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Channel_IrradiationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Channel_IrradiationColumn) End Function - - + + _ Public Sub SetI_LLI_2_Channel_IrradiationNull() Me(Me.tabletable_Sample.I_LLI_2_Channel_IrradiationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Detector_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Detector_NumberColumn) End Function - - + + _ Public Sub SetI_LLI_2_Detector_NumberNull() Me(Me.tabletable_Sample.I_LLI_2_Detector_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_File_FirstNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_File_FirstColumn) End Function - - + + _ Public Sub SetI_LLI_2_File_FirstNull() Me(Me.tabletable_Sample.I_LLI_2_File_FirstColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_File_LastNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_File_LastColumn) End Function - - + + _ Public Sub SetI_LLI_2_File_LastNull() Me(Me.tabletable_Sample.I_LLI_2_File_LastColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Irradiated_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Irradiated_ByColumn) End Function - - + + _ Public Sub SetI_LLI_2_Irradiated_ByNull() Me(Me.tabletable_Sample.I_LLI_2_Irradiated_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_LLI_2_Irradiation_LogNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_LLI_2_Irradiation_LogColumn) End Function - - + + _ Public Sub SetI_LLI_2_Irradiation_LogNull() Me(Me.tabletable_Sample.I_LLI_2_Irradiation_LogColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_DateNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_DateColumn) End Function - - + + _ Public Sub SetI_SLI_DateNull() Me(Me.tabletable_Sample.I_SLI_DateColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_DurationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_DurationColumn) End Function - - + + _ Public Sub SetI_SLI_DurationNull() Me(Me.tabletable_Sample.I_SLI_DurationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Irradiation_Log_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Irradiation_Log_NumberColumn) End Function - - + + _ Public Sub SetI_SLI_Irradiation_Log_NumberNull() Me(Me.tabletable_Sample.I_SLI_Irradiation_Log_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Measured_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Measured_ByColumn) End Function - - + + _ Public Sub SetI_SLI_Measured_ByNull() Me(Me.tabletable_Sample.I_SLI_Measured_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Detector_1Null() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Detector_1Column) End Function - - + + _ Public Sub SetI_SLI_Detector_1Null() Me(Me.tabletable_Sample.I_SLI_Detector_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Detector_2Null() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Detector_2Column) End Function - - + + _ Public Sub SetI_SLI_Detector_2Null() Me(Me.tabletable_Sample.I_SLI_Detector_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Detector_3Null() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Detector_3Column) End Function - - + + _ Public Sub SetI_SLI_Detector_3Null() Me(Me.tabletable_Sample.I_SLI_Detector_3Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Detector_4Null() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Detector_4Column) End Function - - + + _ Public Sub SetI_SLI_Detector_4Null() Me(Me.tabletable_Sample.I_SLI_Detector_4Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_File_LastNull() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_File_LastColumn) End Function - - + + _ Public Sub SetI_SLI_File_LastNull() Me(Me.tabletable_Sample.I_SLI_File_LastColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsI_SLI_Duration1Null() As Boolean Return Me.IsNull(Me.tabletable_Sample.I_SLI_Duration1Column) End Function - - + + _ Public Sub SetI_SLI_Duration1Null() Me(Me.tabletable_Sample.I_SLI_Duration1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_SLI_Irradiation_LogRows() As table_SLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample") Is Nothing) Then Return New table_SLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample")), table_SLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample")),table_SLI_Irradiation_LogRow()) End If End Function - - + + _ Public Function Gettable_LLI_Irradiation_LogRows() As table_LLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample") Is Nothing) Then Return New table_LLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample")), table_LLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample")),table_LLI_Irradiation_LogRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Sample_Sample_PreparationRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample_Sample_Preparation As table_Sample_Sample_PreparationDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample_Sample_Preparation = CType(Me.Table, table_Sample_Sample_PreparationDataTable) + Me.tabletable_Sample_Sample_Preparation = CType(Me.Table,table_Sample_Sample_PreparationDataTable) End Sub - - + + _ Public Property A_Sample_ID() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.A_Sample_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.A_Sample_IDColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.A_Sample_IDColumn) = value End Set End Property - - + + _ Public Property A_Client_Sample_ID() As String Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.A_Client_Sample_IDColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.A_Client_Sample_IDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'A_Client_Sample_ID' in table 'table_Sample_Sample_Preparati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'A_Client_Sample_ID' in table 'table_Sample_Sample_Preparati"& _ "on' is DBNull.", e) End Try End Get @@ -18103,15 +18101,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.A_Client_Sample_IDColumn) = value End Set End Property - - + + _ Public Property P_Cleaning_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Cleaning_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Cleaning_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Cleaning_Fact' in table 'table_Sample_Sample_Preparation'" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Cleaning_Fact' in table 'table_Sample_Sample_Preparation'"& _ " is DBNull.", e) End Try End Get @@ -18119,15 +18117,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Cleaning_FactColumn) = value End Set End Property - - + + _ Public Property P_Drying_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Drying_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Drying_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Drying_Fact' in table 'table_Sample_Sample_Preparation' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Drying_Fact' in table 'table_Sample_Sample_Preparation' i"& _ "s DBNull.", e) End Try End Get @@ -18135,15 +18133,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Drying_FactColumn) = value End Set End Property - - + + _ Public Property P_Evaporation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Evaporation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Evaporation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Evaporation_Fact' in table 'table_Sample_Sample_Preparati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Evaporation_Fact' in table 'table_Sample_Sample_Preparati"& _ "on' is DBNull.", e) End Try End Get @@ -18151,15 +18149,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Evaporation_FactColumn) = value End Set End Property - - + + _ Public Property P_Freeze_Drying_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Freeze_Drying_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Freeze_Drying_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Freeze_Drying_Fact' in table 'table_Sample_Sample_Prepara" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Freeze_Drying_Fact' in table 'table_Sample_Sample_Prepara"& _ "tion' is DBNull.", e) End Try End Get @@ -18167,15 +18165,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Freeze_Drying_FactColumn) = value End Set End Property - - + + _ Public Property P_Homogenizing_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Homogenizing_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Homogenizing_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Homogenizing_Fact' in table 'table_Sample_Sample_Preparat" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Homogenizing_Fact' in table 'table_Sample_Sample_Preparat"& _ "ion' is DBNull.", e) End Try End Get @@ -18183,15 +18181,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Homogenizing_FactColumn) = value End Set End Property - - + + _ Public Property P_Pelletization_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Pelletization_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Pelletization_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Pelletization_Fact' in table 'table_Sample_Sample_Prepara" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Pelletization_Fact' in table 'table_Sample_Sample_Prepara"& _ "tion' is DBNull.", e) End Try End Get @@ -18199,15 +18197,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Pelletization_FactColumn) = value End Set End Property - - + + _ Public Property P_Fragmentation_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Fragmentation_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Fragmentation_FactColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Fragmentation_Fact' in table 'table_Sample_Sample_Prepara" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Fragmentation_Fact' in table 'table_Sample_Sample_Prepara"& _ "tion' is DBNull.", e) End Try End Get @@ -18215,15 +18213,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Fragmentation_FactColumn) = value End Set End Property - - + + _ Public Property P_Weighting_SLI() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_SLIColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_SLIColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_SLI' in table 'table_Sample_Sample_Preparation'" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_SLI' in table 'table_Sample_Sample_Preparation'"& _ " is DBNull.", e) End Try End Get @@ -18231,15 +18229,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_SLIColumn) = value End Set End Property - - + + _ Public Property P_Weighting_LLI() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_LLIColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_LLIColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_LLI' in table 'table_Sample_Sample_Preparation'" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Weighting_LLI' in table 'table_Sample_Sample_Preparation'"& _ " is DBNull.", e) End Try End Get @@ -18247,15 +18245,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_LLIColumn) = value End Set End Property - - + + _ Public Property P_Date_Sample_Preparation() As Date Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Date_Sample_PreparationColumn), Date) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Date_Sample_PreparationColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Date_Sample_Preparation' in table 'table_Sample_Sample_Pr" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Date_Sample_Preparation' in table 'table_Sample_Sample_Pr"& _ "eparation' is DBNull.", e) End Try End Get @@ -18263,15 +18261,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Date_Sample_PreparationColumn) = value End Set End Property - - + + _ Public Property P_Maked_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Maked_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.P_Maked_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'P_Maked_By' in table 'table_Sample_Sample_Preparation' is D" & + Throw New Global.System.Data.StrongTypingException("The value for column 'P_Maked_By' in table 'table_Sample_Sample_Preparation' is D"& _ "BNull.", e) End Try End Get @@ -18279,338 +18277,338 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_Sample_Preparation.P_Maked_ByColumn) = value End Set End Property - - + + _ Public Property F_Country_Code() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Country_CodeColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.F_Country_CodeColumn) = value End Set End Property - - + + _ Public Property F_Client_ID() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Client_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Client_IDColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.F_Client_IDColumn) = value End Set End Property - - + + _ Public Property F_Year() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_YearColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_YearColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.F_YearColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_Sample_Sample_Preparation.F_Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property table_Sample_SetRowParent() As table_Sample_SetRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set1")), table_Sample_SetRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set1")),table_Sample_SetRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set1")) End Set End Property - - + + _ Public Function IsA_Client_Sample_IDNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.A_Client_Sample_IDColumn) End Function - - + + _ Public Sub SetA_Client_Sample_IDNull() Me(Me.tabletable_Sample_Sample_Preparation.A_Client_Sample_IDColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Cleaning_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Cleaning_FactColumn) End Function - - + + _ Public Sub SetP_Cleaning_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Cleaning_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Drying_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Drying_FactColumn) End Function - - + + _ Public Sub SetP_Drying_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Drying_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Evaporation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Evaporation_FactColumn) End Function - - + + _ Public Sub SetP_Evaporation_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Evaporation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Freeze_Drying_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Freeze_Drying_FactColumn) End Function - - + + _ Public Sub SetP_Freeze_Drying_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Freeze_Drying_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Homogenizing_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Homogenizing_FactColumn) End Function - - + + _ Public Sub SetP_Homogenizing_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Homogenizing_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Pelletization_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Pelletization_FactColumn) End Function - - + + _ Public Sub SetP_Pelletization_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Pelletization_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Fragmentation_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Fragmentation_FactColumn) End Function - - + + _ Public Sub SetP_Fragmentation_FactNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Fragmentation_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Weighting_SLINull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Weighting_SLIColumn) End Function - - + + _ Public Sub SetP_Weighting_SLINull() Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_SLIColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Weighting_LLINull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Weighting_LLIColumn) End Function - - + + _ Public Sub SetP_Weighting_LLINull() Me(Me.tabletable_Sample_Sample_Preparation.P_Weighting_LLIColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Date_Sample_PreparationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Date_Sample_PreparationColumn) End Function - - + + _ Public Sub SetP_Date_Sample_PreparationNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Date_Sample_PreparationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsP_Maked_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_Sample_Preparation.P_Maked_ByColumn) End Function - - + + _ Public Sub SetP_Maked_ByNull() Me(Me.tabletable_Sample_Sample_Preparation.P_Maked_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_SLI_Irradiation_LogRows() As table_SLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample1") Is Nothing) Then Return New table_SLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample1")), table_SLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Sample1")),table_SLI_Irradiation_LogRow()) End If End Function - - + + _ Public Function Gettable_LLI_Irradiation_LogRows() As table_LLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample1") Is Nothing) Then Return New table_LLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample1")), table_LLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Sample1")),table_LLI_Irradiation_LogRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_SLI_Irradiation_LogRow Inherits Global.System.Data.DataRow - + Private tabletable_SLI_Irradiation_Log As table_SLI_Irradiation_LogDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_SLI_Irradiation_Log = CType(Me.Table, table_SLI_Irradiation_LogDataTable) + Me.tabletable_SLI_Irradiation_Log = CType(Me.Table,table_SLI_Irradiation_LogDataTable) End Sub - - + + _ Public Property Country_Code() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Country_CodeColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Country_CodeColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Country_CodeColumn) = value End Set End Property - - + + _ Public Property Client_ID() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Client_IDColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Client_IDColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Client_IDColumn) = value End Set End Property - - + + _ Public Property Year() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.YearColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.YearColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.YearColumn) = value End Set End Property - - + + _ Public Property Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property Sample_ID() As String Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_IDColumn), String) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Sample_IDColumn),String) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Sample_IDColumn) = value End Set End Property - - + + _ Public Property Date_Start() As Date Get - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Date_StartColumn), Date) + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Date_StartColumn),Date) End Get Set Me(Me.tabletable_SLI_Irradiation_Log.Date_StartColumn) = value End Set End Property - - + + _ Public Property Time_Start() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Time_StartColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Time_StartColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Start' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Start' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18618,13 +18616,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Time_StartColumn) = value End Set End Property - - + + _ Public Property Channel() As Short Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.ChannelColumn), Short) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.ChannelColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Channel' in table 'table_SLI_Irradiation_Log' is DBNull.", e) End Try @@ -18633,13 +18631,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.ChannelColumn) = value End Set End Property - - + + _ Public Property Duration() As Integer Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.DurationColumn), Integer) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.DurationColumn),Integer) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Duration' in table 'table_SLI_Irradiation_Log' is DBNull.", e) End Try @@ -18648,15 +18646,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.DurationColumn) = value End Set End Property - - + + _ Public Property Detector_2() As Boolean Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_2Column), Boolean) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_2Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18664,15 +18662,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Detector_2Column) = value End Set End Property - - + + _ Public Property Detector_3() As Boolean Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_3Column), Boolean) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_3Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18680,15 +18678,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Detector_3Column) = value End Set End Property - - + + _ Public Property Detector_4() As Boolean Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_4Column), Boolean) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_4Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18696,13 +18694,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Detector_4Column) = value End Set End Property - - + + _ Public Property File_Last() As String Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.File_LastColumn), String) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.File_LastColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'File_Last' in table 'table_SLI_Irradiation_Log' is DBNull.", e) End Try @@ -18711,15 +18709,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.File_LastColumn) = value End Set End Property - - + + _ Public Property Irradiated_By() As String Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Irradiated_ByColumn), String) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Irradiated_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Irradiated_By' in table 'table_SLI_Irradiation_Log' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Irradiated_By' in table 'table_SLI_Irradiation_Log' is DBNu"& _ "ll.", e) End Try End Get @@ -18727,15 +18725,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Irradiated_ByColumn) = value End Set End Property - - + + _ Public Property Measured_By() As String Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Measured_ByColumn), String) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Measured_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_By' in table 'table_SLI_Irradiation_Log' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_By' in table 'table_SLI_Irradiation_Log' is DBNull"& _ ".", e) End Try End Get @@ -18743,15 +18741,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Measured_ByColumn) = value End Set End Property - - + + _ Public Property Paper_Log_Number() As String Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Paper_Log_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Paper_Log_NumberColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_Number' in table 'table_SLI_Irradiation_Log' is D" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_Number' in table 'table_SLI_Irradiation_Log' is D"& _ "BNull.", e) End Try End Get @@ -18759,15 +18757,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Paper_Log_NumberColumn) = value End Set End Property - - + + _ Public Property Position_Number() As Short Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Position_NumberColumn), Short) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Position_NumberColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Position_Number' in table 'table_SLI_Irradiation_Log' is DB" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Position_Number' in table 'table_SLI_Irradiation_Log' is DB"& _ "Null.", e) End Try End Get @@ -18775,15 +18773,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Position_NumberColumn) = value End Set End Property - - + + _ Public Property Detector_1() As Short Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_1Column), Short) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.Detector_1Column),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18791,15 +18789,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.Detector_1Column) = value End Set End Property - - + + _ Public Property File_First() As String Get - Try - Return CType(Me(Me.tabletable_SLI_Irradiation_Log.File_FirstColumn), String) + Try + Return CType(Me(Me.tabletable_SLI_Irradiation_Log.File_FirstColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'File_First' in table 'table_SLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'File_First' in table 'table_SLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -18807,308 +18805,308 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SLI_Irradiation_Log.File_FirstColumn) = value End Set End Property - - + + _ Public Property table_SampleRowParent() As table_SampleRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample")), table_SampleRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample")),table_SampleRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample")) End Set End Property - - + + _ Public Property table_Sample_Sample_PreparationRowParent() As table_Sample_Sample_PreparationRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample1")), table_Sample_Sample_PreparationRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample1")),table_Sample_Sample_PreparationRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Sample1")) End Set End Property - - + + _ Public Property table_MonitorRowParent() As table_MonitorRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Monitor")), table_MonitorRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Monitor")),table_MonitorRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_Monitor")) End Set End Property - - + + _ Public Property table_SRMRowParent() As table_SRMRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_SRM")), table_SRMRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_SRM")),table_SRMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_SLI_Irradiation_Log_table_SRM")) End Set End Property - - + + _ Public Function IsTime_StartNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Time_StartColumn) End Function - - + + _ Public Sub SetTime_StartNull() Me(Me.tabletable_SLI_Irradiation_Log.Time_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsChannelNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.ChannelColumn) End Function - - + + _ Public Sub SetChannelNull() Me(Me.tabletable_SLI_Irradiation_Log.ChannelColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDurationNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.DurationColumn) End Function - - + + _ Public Sub SetDurationNull() Me(Me.tabletable_SLI_Irradiation_Log.DurationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_2Null() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Detector_2Column) End Function - - + + _ Public Sub SetDetector_2Null() Me(Me.tabletable_SLI_Irradiation_Log.Detector_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_3Null() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Detector_3Column) End Function - - + + _ Public Sub SetDetector_3Null() Me(Me.tabletable_SLI_Irradiation_Log.Detector_3Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_4Null() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Detector_4Column) End Function - - + + _ Public Sub SetDetector_4Null() Me(Me.tabletable_SLI_Irradiation_Log.Detector_4Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsFile_LastNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.File_LastColumn) End Function - - + + _ Public Sub SetFile_LastNull() Me(Me.tabletable_SLI_Irradiation_Log.File_LastColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsIrradiated_ByNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Irradiated_ByColumn) End Function - - + + _ Public Sub SetIrradiated_ByNull() Me(Me.tabletable_SLI_Irradiation_Log.Irradiated_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMeasured_ByNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Measured_ByColumn) End Function - - + + _ Public Sub SetMeasured_ByNull() Me(Me.tabletable_SLI_Irradiation_Log.Measured_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPaper_Log_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Paper_Log_NumberColumn) End Function - - + + _ Public Sub SetPaper_Log_NumberNull() Me(Me.tabletable_SLI_Irradiation_Log.Paper_Log_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPosition_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Position_NumberColumn) End Function - - + + _ Public Sub SetPosition_NumberNull() Me(Me.tabletable_SLI_Irradiation_Log.Position_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_1Null() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.Detector_1Column) End Function - - + + _ Public Sub SetDetector_1Null() Me(Me.tabletable_SLI_Irradiation_Log.Detector_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsFile_FirstNull() As Boolean Return Me.IsNull(Me.tabletable_SLI_Irradiation_Log.File_FirstColumn) End Function - - + + _ Public Sub SetFile_FirstNull() Me(Me.tabletable_SLI_Irradiation_Log.File_FirstColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_LLI_Irradiation_LogRow Inherits Global.System.Data.DataRow - + Private tabletable_LLI_Irradiation_Log As table_LLI_Irradiation_LogDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_LLI_Irradiation_Log = CType(Me.Table, table_LLI_Irradiation_LogDataTable) + Me.tabletable_LLI_Irradiation_Log = CType(Me.Table,table_LLI_Irradiation_LogDataTable) End Sub - - + + _ Public Property Country_Code() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Country_CodeColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Country_CodeColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Country_CodeColumn) = value End Set End Property - - + + _ Public Property Client_ID() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Client_IDColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Client_IDColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Client_IDColumn) = value End Set End Property - - + + _ Public Property Year() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.YearColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.YearColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.YearColumn) = value End Set End Property - - + + _ Public Property Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property Sample_ID() As String Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_IDColumn), String) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Sample_IDColumn),String) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Sample_IDColumn) = value End Set End Property - - + + _ Public Property Date_Start() As Date Get - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_StartColumn), Date) + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_StartColumn),Date) End Get Set Me(Me.tabletable_LLI_Irradiation_Log.Date_StartColumn) = value End Set End Property - - + + _ Public Property Time_Start() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Time_StartColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Time_StartColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Start' in table 'table_LLI_Irradiation_Log' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Start' in table 'table_LLI_Irradiation_Log' is DBNull."& _ "", e) End Try End Get @@ -19116,13 +19114,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Time_StartColumn) = value End Set End Property - - + + _ Public Property Channel() As Short Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.ChannelColumn), Short) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.ChannelColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Channel' in table 'table_LLI_Irradiation_Log' is DBNull.", e) End Try @@ -19131,15 +19129,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.ChannelColumn) = value End Set End Property - - + + _ Public Property Date_Finish() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_FinishColumn), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_FinishColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Finish' in table 'table_LLI_Irradiation_Log' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Finish' in table 'table_LLI_Irradiation_Log' is DBNull"& _ ".", e) End Try End Get @@ -19147,15 +19145,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Date_FinishColumn) = value End Set End Property - - + + _ Public Property Time_Finish() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Time_FinishColumn), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Time_FinishColumn),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Finish' in table 'table_LLI_Irradiation_Log' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Time_Finish' in table 'table_LLI_Irradiation_Log' is DBNull"& _ ".", e) End Try End Get @@ -19163,15 +19161,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Time_FinishColumn) = value End Set End Property - - + + _ Public Property Power_Relief_Date_Start_1() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_1Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_1Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Start_1' in table 'table_LLI_Irradiation_" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Start_1' in table 'table_LLI_Irradiation_"& _ "Log' is DBNull.", e) End Try End Get @@ -19179,15 +19177,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_1Column) = value End Set End Property - - + + _ Public Property Power_Relief_Time_Start_1() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_1Column), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_1Column),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Start_1' in table 'table_LLI_Irradiation_" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Start_1' in table 'table_LLI_Irradiation_"& _ "Log' is DBNull.", e) End Try End Get @@ -19195,15 +19193,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_1Column) = value End Set End Property - - + + _ Public Property Power_Relief_Date_Finish_1() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_1Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_1Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Finish_1' in table 'table_LLI_Irradiation" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Finish_1' in table 'table_LLI_Irradiation"& _ "_Log' is DBNull.", e) End Try End Get @@ -19211,15 +19209,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_1Column) = value End Set End Property - - + + _ Public Property Power_Relief_Time_Finish_1() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_1Column), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_1Column),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Finish_1' in table 'table_LLI_Irradiation" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Finish_1' in table 'table_LLI_Irradiation"& _ "_Log' is DBNull.", e) End Try End Get @@ -19227,15 +19225,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_1Column) = value End Set End Property - - + + _ Public Property Power_Relief_Date_Start_2() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_2Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_2Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Start_2' in table 'table_LLI_Irradiation_" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Start_2' in table 'table_LLI_Irradiation_"& _ "Log' is DBNull.", e) End Try End Get @@ -19243,15 +19241,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_2Column) = value End Set End Property - - + + _ Public Property Power_Relief_Time_Start_2() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_2Column), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_2Column),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Start_2' in table 'table_LLI_Irradiation_" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Start_2' in table 'table_LLI_Irradiation_"& _ "Log' is DBNull.", e) End Try End Get @@ -19259,15 +19257,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_2Column) = value End Set End Property - - + + _ Public Property Power_Relief_Date_Finish_2() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_2Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_2Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Finish_2' in table 'table_LLI_Irradiation" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Date_Finish_2' in table 'table_LLI_Irradiation"& _ "_Log' is DBNull.", e) End Try End Get @@ -19275,15 +19273,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_2Column) = value End Set End Property - - + + _ Public Property Power_Relief_Time_Finish_2() As System.TimeSpan Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_2Column), Global.System.TimeSpan) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_2Column),Global.System.TimeSpan) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Finish_2' in table 'table_LLI_Irradiation" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Power_Relief_Time_Finish_2' in table 'table_LLI_Irradiation"& _ "_Log' is DBNull.", e) End Try End Get @@ -19291,15 +19289,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_2Column) = value End Set End Property - - + + _ Public Property Container_Number() As Short Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Container_NumberColumn), Short) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Container_NumberColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Container_Number' in table 'table_LLI_Irradiation_Log' is D" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Container_Number' in table 'table_LLI_Irradiation_Log' is D"& _ "BNull.", e) End Try End Get @@ -19307,15 +19305,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Container_NumberColumn) = value End Set End Property - - + + _ Public Property Position_Number() As Short Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Position_NumberColumn), Short) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Position_NumberColumn),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Position_Number' in table 'table_LLI_Irradiation_Log' is DB" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Position_Number' in table 'table_LLI_Irradiation_Log' is DB"& _ "Null.", e) End Try End Get @@ -19323,15 +19321,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Position_NumberColumn) = value End Set End Property - - + + _ Public Property Irradiated_By() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Irradiated_ByColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Irradiated_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Irradiated_By' in table 'table_LLI_Irradiation_Log' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Irradiated_By' in table 'table_LLI_Irradiation_Log' is DBNu"& _ "ll.", e) End Try End Get @@ -19339,15 +19337,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Irradiated_ByColumn) = value End Set End Property - - + + _ Public Property Date_Rehadle() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_RehadleColumn), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_RehadleColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Rehadle' in table 'table_LLI_Irradiation_Log' is DBNul" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Rehadle' in table 'table_LLI_Irradiation_Log' is DBNul"& _ "l.", e) End Try End Get @@ -19355,15 +19353,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Date_RehadleColumn) = value End Set End Property - - + + _ Public Property Rehandled_By() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Rehandled_ByColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Rehandled_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Rehandled_By' in table 'table_LLI_Irradiation_Log' is DBNul" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Rehandled_By' in table 'table_LLI_Irradiation_Log' is DBNul"& _ "l.", e) End Try End Get @@ -19371,15 +19369,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Rehandled_ByColumn) = value End Set End Property - - + + _ Public Property Date_Measurement_LLI_1() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_1Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_1Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Measurement_LLI_1' in table 'table_LLI_Irradiation_Log" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Measurement_LLI_1' in table 'table_LLI_Irradiation_Log"& _ "' is DBNull.", e) End Try End Get @@ -19387,15 +19385,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_1Column) = value End Set End Property - - + + _ Public Property Detector_2_Measurement_LLI_1() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_1Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_1Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2_Measurement_LLI_1' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2_Measurement_LLI_1' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19403,15 +19401,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_1Column) = value End Set End Property - - + + _ Public Property Detector_3_Measurement_LLI_1() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_1Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_1Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3_Measurement_LLI_1' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3_Measurement_LLI_1' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19419,15 +19417,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_1Column) = value End Set End Property - - + + _ Public Property Detector_4_Measurement_LLI_1() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_1Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_1Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4_Measurement_LLI_1' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4_Measurement_LLI_1' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19435,15 +19433,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_1Column) = value End Set End Property - - + + _ Public Property Paper_Log_LLI_1_Number() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_1_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_1_NumberColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_LLI_1_Number' in table 'table_LLI_Irradiation_Log" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_LLI_1_Number' in table 'table_LLI_Irradiation_Log"& _ "' is DBNull.", e) End Try End Get @@ -19451,15 +19449,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_1_NumberColumn) = value End Set End Property - - + + _ Public Property Measured_LLI_1_By() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_1_ByColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_1_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_LLI_1_By' in table 'table_LLI_Irradiation_Log' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_LLI_1_By' in table 'table_LLI_Irradiation_Log' is "& _ "DBNull.", e) End Try End Get @@ -19467,15 +19465,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_1_ByColumn) = value End Set End Property - - + + _ Public Property Date_Measurement_LLI_2() As Date Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_2Column), Date) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_2Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Measurement_LLI_2' in table 'table_LLI_Irradiation_Log" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Date_Measurement_LLI_2' in table 'table_LLI_Irradiation_Log"& _ "' is DBNull.", e) End Try End Get @@ -19483,15 +19481,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_2Column) = value End Set End Property - - + + _ Public Property Detector_2_Measurement_LLI_2() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_2Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_2Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2_Measurement_LLI_2' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_2_Measurement_LLI_2' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19499,15 +19497,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_2Column) = value End Set End Property - - + + _ Public Property Detector_3_Measurement_LLI_2() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_2Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_2Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3_Measurement_LLI_2' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_3_Measurement_LLI_2' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19515,15 +19513,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_2Column) = value End Set End Property - - + + _ Public Property Detector_4_Measurement_LLI_2() As Boolean Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_2Column), Boolean) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_2Column),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4_Measurement_LLI_2' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_4_Measurement_LLI_2' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19531,15 +19529,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_2Column) = value End Set End Property - - + + _ Public Property Paper_Log_LLI_2_Number() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_2_NumberColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_2_NumberColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_LLI_2_Number' in table 'table_LLI_Irradiation_Log" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Paper_Log_LLI_2_Number' in table 'table_LLI_Irradiation_Log"& _ "' is DBNull.", e) End Try End Get @@ -19547,15 +19545,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_2_NumberColumn) = value End Set End Property - - + + _ Public Property Measured_LLI_2_By() As String Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_2_ByColumn), String) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_2_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_LLI_2_By' in table 'table_LLI_Irradiation_Log' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'Measured_LLI_2_By' in table 'table_LLI_Irradiation_Log' is "& _ "DBNull.", e) End Try End Get @@ -19563,15 +19561,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_2_ByColumn) = value End Set End Property - - + + _ Public Property Detector_1_Measurement_LLI_1() As Short Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_1Column), Short) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_1Column),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1_Measurement_LLI_1' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1_Measurement_LLI_1' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19579,15 +19577,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_1Column) = value End Set End Property - - + + _ Public Property Detector_1_Measurement_LLI_2() As Short Get - Try - Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_2Column), Short) + Try + Return CType(Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_2Column),Short) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1_Measurement_LLI_2' in table 'table_LLI_Irradiati" & + Throw New Global.System.Data.StrongTypingException("The value for column 'Detector_1_Measurement_LLI_2' in table 'table_LLI_Irradiati"& _ "on_Log' is DBNull.", e) End Try End Get @@ -19595,489 +19593,489 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_2Column) = value End Set End Property - - + + _ Public Property table_SampleRowParent() As table_SampleRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample")), table_SampleRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample")),table_SampleRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample")) End Set End Property - - + + _ Public Property table_Sample_Sample_PreparationRowParent() As table_Sample_Sample_PreparationRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample1")), table_Sample_Sample_PreparationRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample1")),table_Sample_Sample_PreparationRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Sample1")) End Set End Property - - + + _ Public Property table_MonitorRowParent() As table_MonitorRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Monitor")), table_MonitorRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Monitor")),table_MonitorRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_Monitor")) End Set End Property - - + + _ Public Property table_SRMRowParent() As table_SRMRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_SRM")), table_SRMRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_SRM")),table_SRMRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_LLI_Irradiation_Log_table_SRM")) End Set End Property - - + + _ Public Function IsTime_StartNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Time_StartColumn) End Function - - + + _ Public Sub SetTime_StartNull() Me(Me.tabletable_LLI_Irradiation_Log.Time_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsChannelNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.ChannelColumn) End Function - - + + _ Public Sub SetChannelNull() Me(Me.tabletable_LLI_Irradiation_Log.ChannelColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDate_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Date_FinishColumn) End Function - - + + _ Public Sub SetDate_FinishNull() Me(Me.tabletable_LLI_Irradiation_Log.Date_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsTime_FinishNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Time_FinishColumn) End Function - - + + _ Public Sub SetTime_FinishNull() Me(Me.tabletable_LLI_Irradiation_Log.Time_FinishColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Date_Start_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_1Column) End Function - - + + _ Public Sub SetPower_Relief_Date_Start_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Time_Start_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_1Column) End Function - - + + _ Public Sub SetPower_Relief_Time_Start_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Date_Finish_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_1Column) End Function - - + + _ Public Sub SetPower_Relief_Date_Finish_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Time_Finish_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_1Column) End Function - - + + _ Public Sub SetPower_Relief_Time_Finish_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Date_Start_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_2Column) End Function - - + + _ Public Sub SetPower_Relief_Date_Start_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Start_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Time_Start_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_2Column) End Function - - + + _ Public Sub SetPower_Relief_Time_Start_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Start_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Date_Finish_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_2Column) End Function - - + + _ Public Sub SetPower_Relief_Date_Finish_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Date_Finish_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPower_Relief_Time_Finish_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_2Column) End Function - - + + _ Public Sub SetPower_Relief_Time_Finish_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Power_Relief_Time_Finish_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsContainer_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Container_NumberColumn) End Function - - + + _ Public Sub SetContainer_NumberNull() Me(Me.tabletable_LLI_Irradiation_Log.Container_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPosition_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Position_NumberColumn) End Function - - + + _ Public Sub SetPosition_NumberNull() Me(Me.tabletable_LLI_Irradiation_Log.Position_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsIrradiated_ByNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Irradiated_ByColumn) End Function - - + + _ Public Sub SetIrradiated_ByNull() Me(Me.tabletable_LLI_Irradiation_Log.Irradiated_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDate_RehadleNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Date_RehadleColumn) End Function - - + + _ Public Sub SetDate_RehadleNull() Me(Me.tabletable_LLI_Irradiation_Log.Date_RehadleColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsRehandled_ByNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Rehandled_ByColumn) End Function - - + + _ Public Sub SetRehandled_ByNull() Me(Me.tabletable_LLI_Irradiation_Log.Rehandled_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDate_Measurement_LLI_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_1Column) End Function - - + + _ Public Sub SetDate_Measurement_LLI_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_2_Measurement_LLI_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_1Column) End Function - - + + _ Public Sub SetDetector_2_Measurement_LLI_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_3_Measurement_LLI_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_1Column) End Function - - + + _ Public Sub SetDetector_3_Measurement_LLI_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_4_Measurement_LLI_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_1Column) End Function - - + + _ Public Sub SetDetector_4_Measurement_LLI_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPaper_Log_LLI_1_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_1_NumberColumn) End Function - - + + _ Public Sub SetPaper_Log_LLI_1_NumberNull() Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_1_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMeasured_LLI_1_ByNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_1_ByColumn) End Function - - + + _ Public Sub SetMeasured_LLI_1_ByNull() Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_1_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDate_Measurement_LLI_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_2Column) End Function - - + + _ Public Sub SetDate_Measurement_LLI_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Date_Measurement_LLI_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_2_Measurement_LLI_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_2Column) End Function - - + + _ Public Sub SetDetector_2_Measurement_LLI_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_2_Measurement_LLI_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_3_Measurement_LLI_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_2Column) End Function - - + + _ Public Sub SetDetector_3_Measurement_LLI_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_3_Measurement_LLI_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_4_Measurement_LLI_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_2Column) End Function - - + + _ Public Sub SetDetector_4_Measurement_LLI_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_4_Measurement_LLI_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPaper_Log_LLI_2_NumberNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_2_NumberColumn) End Function - - + + _ Public Sub SetPaper_Log_LLI_2_NumberNull() Me(Me.tabletable_LLI_Irradiation_Log.Paper_Log_LLI_2_NumberColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMeasured_LLI_2_ByNull() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_2_ByColumn) End Function - - + + _ Public Sub SetMeasured_LLI_2_ByNull() Me(Me.tabletable_LLI_Irradiation_Log.Measured_LLI_2_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_1_Measurement_LLI_1Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_1Column) End Function - - + + _ Public Sub SetDetector_1_Measurement_LLI_1Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsDetector_1_Measurement_LLI_2Null() As Boolean Return Me.IsNull(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_2Column) End Function - - + + _ Public Sub SetDetector_1_Measurement_LLI_2Null() Me(Me.tabletable_LLI_Irradiation_Log.Detector_1_Measurement_LLI_2Column) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_MonitorRow Inherits Global.System.Data.DataRow - + Private tabletable_Monitor As table_MonitorDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Monitor = CType(Me.Table, table_MonitorDataTable) + Me.tabletable_Monitor = CType(Me.Table,table_MonitorDataTable) End Sub - - + + _ Public Property Monitor_Set_Name() As String Get - Return CType(Me(Me.tabletable_Monitor.Monitor_Set_NameColumn), String) + Return CType(Me(Me.tabletable_Monitor.Monitor_Set_NameColumn),String) End Get Set Me(Me.tabletable_Monitor.Monitor_Set_NameColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Number() As String Get - Return CType(Me(Me.tabletable_Monitor.Monitor_Set_NumberColumn), String) + Return CType(Me(Me.tabletable_Monitor.Monitor_Set_NumberColumn),String) End Get Set Me(Me.tabletable_Monitor.Monitor_Set_NumberColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Weight() As Single Get - Return CType(Me(Me.tabletable_Monitor.Monitor_Set_WeightColumn), Single) + Return CType(Me(Me.tabletable_Monitor.Monitor_Set_WeightColumn),Single) End Get Set Me(Me.tabletable_Monitor.Monitor_Set_WeightColumn) = value End Set End Property - - + + _ Public Property Monitor_Number() As String Get - Return CType(Me(Me.tabletable_Monitor.Monitor_NumberColumn), String) + Return CType(Me(Me.tabletable_Monitor.Monitor_NumberColumn),String) End Get Set Me(Me.tabletable_Monitor.Monitor_NumberColumn) = value End Set End Property - - + + _ Public Property Monitor_SLI_Weight() As Single Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_WeightColumn), Single) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_WeightColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_SLI_Weight' in table 'table_Monitor' is DBNull.", e) End Try @@ -20086,15 +20084,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_SLI_WeightColumn) = value End Set End Property - - + + _ Public Property Monitor_SLI_Date_Start() As Date Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_Date_StartColumn), Date) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_Date_StartColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_SLI_Date_Start' in table 'table_Monitor' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_SLI_Date_Start' in table 'table_Monitor' is DBNull."& _ "", e) End Try End Get @@ -20102,15 +20100,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_SLI_Date_StartColumn) = value End Set End Property - - + + _ Public Property Monitor_SLI_Not_In_Use() As Boolean Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_Not_In_UseColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_SLI_Not_In_UseColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_SLI_Not_In_Use' in table 'table_Monitor' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_SLI_Not_In_Use' in table 'table_Monitor' is DBNull."& _ "", e) End Try End Get @@ -20118,13 +20116,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_SLI_Not_In_UseColumn) = value End Set End Property - - + + _ Public Property Monitor_LLI_Weight() As Single Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_WeightColumn), Single) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_WeightColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_LLI_Weight' in table 'table_Monitor' is DBNull.", e) End Try @@ -20133,15 +20131,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_LLI_WeightColumn) = value End Set End Property - - + + _ Public Property Monitor_LLI_Date_Start() As Date Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_Date_StartColumn), Date) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_Date_StartColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_LLI_Date_Start' in table 'table_Monitor' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_LLI_Date_Start' in table 'table_Monitor' is DBNull."& _ "", e) End Try End Get @@ -20149,15 +20147,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_LLI_Date_StartColumn) = value End Set End Property - - + + _ Public Property Monitor_LLI_Not_In_Use() As Boolean Get - Try - Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_Not_In_UseColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Monitor.Monitor_LLI_Not_In_UseColumn),Boolean) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_LLI_Not_In_Use' in table 'table_Monitor' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'Monitor_LLI_Not_In_Use' in table 'table_Monitor' is DBNull."& _ "", e) End Try End Get @@ -20165,257 +20163,257 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Monitor.Monitor_LLI_Not_In_UseColumn) = value End Set End Property - - + + _ Public Property table_Monitor_SetRowParent() As table_Monitor_SetRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Monitor_table_Monitor_Set")), table_Monitor_SetRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Monitor_table_Monitor_Set")),table_Monitor_SetRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_Monitor_table_Monitor_Set")) End Set End Property - - + + _ Public Function IsMonitor_SLI_WeightNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_SLI_WeightColumn) End Function - - + + _ Public Sub SetMonitor_SLI_WeightNull() Me(Me.tabletable_Monitor.Monitor_SLI_WeightColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMonitor_SLI_Date_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_SLI_Date_StartColumn) End Function - - + + _ Public Sub SetMonitor_SLI_Date_StartNull() Me(Me.tabletable_Monitor.Monitor_SLI_Date_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMonitor_SLI_Not_In_UseNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_SLI_Not_In_UseColumn) End Function - - + + _ Public Sub SetMonitor_SLI_Not_In_UseNull() Me(Me.tabletable_Monitor.Monitor_SLI_Not_In_UseColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMonitor_LLI_WeightNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_LLI_WeightColumn) End Function - - + + _ Public Sub SetMonitor_LLI_WeightNull() Me(Me.tabletable_Monitor.Monitor_LLI_WeightColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMonitor_LLI_Date_StartNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_LLI_Date_StartColumn) End Function - - + + _ Public Sub SetMonitor_LLI_Date_StartNull() Me(Me.tabletable_Monitor.Monitor_LLI_Date_StartColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsMonitor_LLI_Not_In_UseNull() As Boolean Return Me.IsNull(Me.tabletable_Monitor.Monitor_LLI_Not_In_UseColumn) End Function - - + + _ Public Sub SetMonitor_LLI_Not_In_UseNull() Me(Me.tabletable_Monitor.Monitor_LLI_Not_In_UseColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_SLI_Irradiation_LogRows() As table_SLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Monitor") Is Nothing) Then Return New table_SLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Monitor")), table_SLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_Monitor")),table_SLI_Irradiation_LogRow()) End If End Function - - + + _ Public Function Gettable_LLI_Irradiation_LogRows() As table_LLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Monitor") Is Nothing) Then Return New table_LLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Monitor")), table_LLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_Monitor")),table_LLI_Irradiation_LogRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Monitor_SetRow Inherits Global.System.Data.DataRow - + Private tabletable_Monitor_Set As table_Monitor_SetDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Monitor_Set = CType(Me.Table, table_Monitor_SetDataTable) + Me.tabletable_Monitor_Set = CType(Me.Table,table_Monitor_SetDataTable) End Sub - - + + _ Public Property Monitor_Set_Name() As String Get - Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_NameColumn), String) + Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_NameColumn),String) End Get Set Me(Me.tabletable_Monitor_Set.Monitor_Set_NameColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Number() As String Get - Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_NumberColumn), String) + Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_NumberColumn),String) End Get Set Me(Me.tabletable_Monitor_Set.Monitor_Set_NumberColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Type() As String Get - Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_TypeColumn), String) + Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_TypeColumn),String) End Get Set Me(Me.tabletable_Monitor_Set.Monitor_Set_TypeColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Weight() As Single Get - Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_WeightColumn), Single) + Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_WeightColumn),Single) End Get Set Me(Me.tabletable_Monitor_Set.Monitor_Set_WeightColumn) = value End Set End Property - - + + _ Public Property Monitor_Set_Purchasing_Date() As Date Get - Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_Purchasing_DateColumn), Date) + Return CType(Me(Me.tabletable_Monitor_Set.Monitor_Set_Purchasing_DateColumn),Date) End Get Set Me(Me.tabletable_Monitor_Set.Monitor_Set_Purchasing_DateColumn) = value End Set End Property - - + + _ Public Function Gettable_MonitorRows() As table_MonitorRow() If (Me.Table.ChildRelations("FK_table_Monitor_table_Monitor_Set") Is Nothing) Then Return New table_MonitorRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Monitor_table_Monitor_Set")), table_MonitorRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_Monitor_table_Monitor_Set")),table_MonitorRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_SRMRow Inherits Global.System.Data.DataRow - + Private tabletable_SRM As table_SRMDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_SRM = CType(Me.Table, table_SRMDataTable) + Me.tabletable_SRM = CType(Me.Table,table_SRMDataTable) End Sub - - + + _ Public Property SRM_Set_Name() As String Get - Return CType(Me(Me.tabletable_SRM.SRM_Set_NameColumn), String) + Return CType(Me(Me.tabletable_SRM.SRM_Set_NameColumn),String) End Get Set Me(Me.tabletable_SRM.SRM_Set_NameColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Number() As String Get - Return CType(Me(Me.tabletable_SRM.SRM_Set_NumberColumn), String) + Return CType(Me(Me.tabletable_SRM.SRM_Set_NumberColumn),String) End Get Set Me(Me.tabletable_SRM.SRM_Set_NumberColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Weight() As Single Get - Return CType(Me(Me.tabletable_SRM.SRM_Set_WeightColumn), Single) + Return CType(Me(Me.tabletable_SRM.SRM_Set_WeightColumn),Single) End Get Set Me(Me.tabletable_SRM.SRM_Set_WeightColumn) = value End Set End Property - - + + _ Public Property SRM_Number() As String Get - Return CType(Me(Me.tabletable_SRM.SRM_NumberColumn), String) + Return CType(Me(Me.tabletable_SRM.SRM_NumberColumn),String) End Get Set Me(Me.tabletable_SRM.SRM_NumberColumn) = value End Set End Property - - + + _ Public Property SRM_SLI_Weight() As Single Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_WeightColumn), Single) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_WeightColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Weight' in table 'table_SRM' is DBNull.", e) End Try @@ -20424,15 +20422,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_WeightColumn) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_1() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_1Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_1Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_1' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_1' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20440,15 +20438,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_1Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_2() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_2Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_2Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_2' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_2' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20456,15 +20454,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_2Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_3() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_3Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_3Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_3' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_3' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20472,15 +20470,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_3Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_4() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_4Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_4Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_4' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_4' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20488,15 +20486,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_4Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_5() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_5Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_5Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_5' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_5' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20504,15 +20502,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_5Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_6() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_6Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_6Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_6' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_6' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20520,15 +20518,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_6Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_7() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_7Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_7Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_7' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_7' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20536,15 +20534,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_7Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_8() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_8Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_8Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_8' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_8' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20552,15 +20550,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_8Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_9() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_9Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_9Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_9' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_9' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20568,15 +20566,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_9Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Irradiation_Date_10() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_10Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_10Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_10' in table 'table_SRM' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Irradiation_Date_10' in table 'table_SRM' is DBNull"& _ ".", e) End Try End Get @@ -20584,13 +20582,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_10Column) = value End Set End Property - - + + _ Public Property SRM_SLI_Not_In_Use() As Boolean Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_SLI_Not_In_UseColumn), Boolean) + Try + Return CType(Me(Me.tabletable_SRM.SRM_SLI_Not_In_UseColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_SLI_Not_In_Use' in table 'table_SRM' is DBNull.", e) End Try @@ -20599,13 +20597,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_SLI_Not_In_UseColumn) = value End Set End Property - - + + _ Public Property SRM_LLI_Weight() As Single Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_WeightColumn), Single) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_WeightColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Weight' in table 'table_SRM' is DBNull.", e) End Try @@ -20614,15 +20612,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_WeightColumn) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_1() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_1Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_1Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_1' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_1' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20630,15 +20628,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_1Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_2() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_2Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_2Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_2' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_2' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20646,15 +20644,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_2Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_3() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_3Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_3Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_3' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_3' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20662,15 +20660,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_3Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_4() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_4Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_4Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_4' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_4' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20678,15 +20676,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_4Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_5() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_5Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_5Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_5' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_5' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20694,15 +20692,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_5Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_6() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_6Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_6Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_6' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_6' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20710,15 +20708,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_6Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_7() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_7Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_7Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_7' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_7' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20726,15 +20724,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_7Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_8() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_8Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_8Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_8' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_8' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20742,15 +20740,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_8Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_9() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_9Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_9Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_9' in table 'table_SRM' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_9' in table 'table_SRM' is DBNull."& _ "", e) End Try End Get @@ -20758,15 +20756,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_9Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Irradiation_Date_10() As Date Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_10Column), Date) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_10Column),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_10' in table 'table_SRM' is DBNull" & + Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Irradiation_Date_10' in table 'table_SRM' is DBNull"& _ ".", e) End Try End Get @@ -20774,13 +20772,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_10Column) = value End Set End Property - - + + _ Public Property SRM_LLI_Not_In_Use() As Boolean Get - Try - Return CType(Me(Me.tabletable_SRM.SRM_LLI_Not_In_UseColumn), Boolean) + Try + Return CType(Me(Me.tabletable_SRM.SRM_LLI_Not_In_UseColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'SRM_LLI_Not_In_Use' in table 'table_SRM' is DBNull.", e) End Try @@ -20789,431 +20787,431 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_SRM.SRM_LLI_Not_In_UseColumn) = value End Set End Property - - + + _ Public Property table_SRM_SetRowParent() As table_SRM_SetRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SRM_table_SRM_Set")), table_SRM_SetRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_SRM_table_SRM_Set")),table_SRM_SetRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_SRM_table_SRM_Set")) End Set End Property - - + + _ Public Function IsSRM_SLI_WeightNull() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_WeightColumn) End Function - - + + _ Public Sub SetSRM_SLI_WeightNull() Me(Me.tabletable_SRM.SRM_SLI_WeightColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_1Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_1Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_1Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_2Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_2Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_2Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_3Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_3Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_3Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_3Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_4Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_4Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_4Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_4Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_5Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_5Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_5Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_5Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_6Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_6Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_6Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_6Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_7Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_7Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_7Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_7Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_8Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_8Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_8Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_8Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_9Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_9Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_9Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_9Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Irradiation_Date_10Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_10Column) End Function - - + + _ Public Sub SetSRM_SLI_Irradiation_Date_10Null() Me(Me.tabletable_SRM.SRM_SLI_Irradiation_Date_10Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_SLI_Not_In_UseNull() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_SLI_Not_In_UseColumn) End Function - - + + _ Public Sub SetSRM_SLI_Not_In_UseNull() Me(Me.tabletable_SRM.SRM_SLI_Not_In_UseColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_WeightNull() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_WeightColumn) End Function - - + + _ Public Sub SetSRM_LLI_WeightNull() Me(Me.tabletable_SRM.SRM_LLI_WeightColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_1Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_1Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_1Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_2Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_2Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_2Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_3Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_3Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_3Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_3Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_4Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_4Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_4Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_4Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_5Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_5Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_5Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_5Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_6Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_6Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_6Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_6Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_7Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_7Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_7Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_7Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_8Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_8Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_8Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_8Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_9Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_9Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_9Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_9Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Irradiation_Date_10Null() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_10Column) End Function - - + + _ Public Sub SetSRM_LLI_Irradiation_Date_10Null() Me(Me.tabletable_SRM.SRM_LLI_Irradiation_Date_10Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSRM_LLI_Not_In_UseNull() As Boolean Return Me.IsNull(Me.tabletable_SRM.SRM_LLI_Not_In_UseColumn) End Function - - + + _ Public Sub SetSRM_LLI_Not_In_UseNull() Me(Me.tabletable_SRM.SRM_LLI_Not_In_UseColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function Gettable_SLI_Irradiation_LogRows() As table_SLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_SRM") Is Nothing) Then Return New table_SLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_SRM")), table_SLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SLI_Irradiation_Log_table_SRM")),table_SLI_Irradiation_LogRow()) End If End Function - - + + _ Public Function Gettable_LLI_Irradiation_LogRows() As table_LLI_Irradiation_LogRow() If (Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_SRM") Is Nothing) Then Return New table_LLI_Irradiation_LogRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_SRM")), table_LLI_Irradiation_LogRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_LLI_Irradiation_Log_table_SRM")),table_LLI_Irradiation_LogRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_SRM_SetRow Inherits Global.System.Data.DataRow - + Private tabletable_SRM_Set As table_SRM_SetDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_SRM_Set = CType(Me.Table, table_SRM_SetDataTable) + Me.tabletable_SRM_Set = CType(Me.Table,table_SRM_SetDataTable) End Sub - - + + _ Public Property SRM_Set_Name() As String Get - Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_NameColumn), String) + Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_NameColumn),String) End Get Set Me(Me.tabletable_SRM_Set.SRM_Set_NameColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Number() As String Get - Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_NumberColumn), String) + Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_NumberColumn),String) End Get Set Me(Me.tabletable_SRM_Set.SRM_Set_NumberColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Type() As String Get - Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_TypeColumn), String) + Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_TypeColumn),String) End Get Set Me(Me.tabletable_SRM_Set.SRM_Set_TypeColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Weight() As Single Get - Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_WeightColumn), Single) + Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_WeightColumn),Single) End Get Set Me(Me.tabletable_SRM_Set.SRM_Set_WeightColumn) = value End Set End Property - - + + _ Public Property SRM_Set_Purchasing_Date() As Date Get - Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_Purchasing_DateColumn), Date) + Return CType(Me(Me.tabletable_SRM_Set.SRM_Set_Purchasing_DateColumn),Date) End Get Set Me(Me.tabletable_SRM_Set.SRM_Set_Purchasing_DateColumn) = value End Set End Property - - + + _ Public Function Gettable_SRMRows() As table_SRMRow() If (Me.Table.ChildRelations("FK_table_SRM_table_SRM_Set") Is Nothing) Then Return New table_SRMRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SRM_table_SRM_Set")), table_SRMRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_table_SRM_table_SRM_Set")),table_SRMRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class table_Sample_NAA_ResultsRow Inherits Global.System.Data.DataRow - + Private tabletable_Sample_NAA_Results As table_Sample_NAA_ResultsDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tabletable_Sample_NAA_Results = CType(Me.Table, table_Sample_NAA_ResultsDataTable) + Me.tabletable_Sample_NAA_Results = CType(Me.Table,table_Sample_NAA_ResultsDataTable) End Sub - - + + _ Public Property R_U_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21221,13 +21219,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_U_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_U_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21236,15 +21234,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_U_ErrorColumn) = value End Set End Property - - + + _ Public Property R_U_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -21252,13 +21250,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_U_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_U_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_U_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_U_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21267,15 +21265,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_U_FactColumn) = value End Set End Property - - + + _ Public Property R_Th_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21283,13 +21281,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Th_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Th_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21298,15 +21296,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Th_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Th_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21314,13 +21312,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Th_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Th_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Th_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Th_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21329,15 +21327,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Th_FactColumn) = value End Set End Property - - + + _ Public Property R_Hg_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21345,13 +21343,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hg_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Hg_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21360,15 +21358,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hg_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Hg_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21376,13 +21374,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hg_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Hg_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hg_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hg_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21391,15 +21389,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hg_FactColumn) = value End Set End Property - - + + _ Public Property R_Au_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21407,13 +21405,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Au_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Au_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21422,15 +21420,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Au_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Au_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21438,13 +21436,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Au_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Au_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Au_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Au_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21453,15 +21451,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Au_FactColumn) = value End Set End Property - - + + _ Public Property R_Pt_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21469,13 +21467,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Pt_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Pt_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21484,15 +21482,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Pt_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Pt_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21500,13 +21498,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Pt_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Pt_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Pt_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Pt_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21515,15 +21513,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Pt_FactColumn) = value End Set End Property - - + + _ Public Property R_Ir_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21531,13 +21529,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ir_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ir_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21546,15 +21544,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ir_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ir_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21562,13 +21560,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ir_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ir_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ir_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ir_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21577,15 +21575,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ir_FactColumn) = value End Set End Property - - + + _ Public Property R_Re_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21593,13 +21591,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Re_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Re_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21608,15 +21606,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Re_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Re_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21624,13 +21622,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Re_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Re_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Re_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Re_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21639,15 +21637,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Re_FactColumn) = value End Set End Property - - + + _ Public Property R_W_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21655,13 +21653,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_W_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_W_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21670,15 +21668,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_W_ErrorColumn) = value End Set End Property - - + + _ Public Property R_W_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -21686,13 +21684,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_W_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_W_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_W_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_W_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21701,15 +21699,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_W_FactColumn) = value End Set End Property - - + + _ Public Property R_Ta_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21717,13 +21715,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ta_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ta_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21732,15 +21730,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ta_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ta_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21748,13 +21746,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ta_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ta_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ta_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ta_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21763,15 +21761,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ta_FactColumn) = value End Set End Property - - + + _ Public Property R_Hf_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21779,13 +21777,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hf_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Hf_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21794,15 +21792,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hf_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Hf_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21810,13 +21808,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hf_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Hf_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Hf_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Hf_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21825,15 +21823,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Hf_FactColumn) = value End Set End Property - - + + _ Public Property R_Lu_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21841,13 +21839,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Lu_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Lu_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21856,15 +21854,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Lu_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Lu_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21872,13 +21870,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Lu_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Lu_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Lu_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Lu_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21887,15 +21885,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Lu_FactColumn) = value End Set End Property - - + + _ Public Property R_Yb_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21903,13 +21901,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Yb_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Yb_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21918,15 +21916,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Yb_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Yb_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21934,13 +21932,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Yb_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Yb_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Yb_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Yb_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21949,15 +21947,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Yb_FactColumn) = value End Set End Property - - + + _ Public Property R_Tm_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -21965,13 +21963,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tm_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Tm_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -21980,15 +21978,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tm_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Tm_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -21996,13 +21994,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tm_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Tm_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tm_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tm_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22011,15 +22009,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tm_FactColumn) = value End Set End Property - - + + _ Public Property R_Er_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22027,13 +22025,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Er_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Er_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22042,15 +22040,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Er_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Er_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22058,13 +22056,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Er_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Er_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Er_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Er_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22073,15 +22071,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Er_FactColumn) = value End Set End Property - - + + _ Public Property R_Dy_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22089,13 +22087,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Dy_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Dy_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22104,15 +22102,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Dy_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Dy_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22120,13 +22118,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Dy_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Dy_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Dy_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Dy_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22135,15 +22133,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Dy_FactColumn) = value End Set End Property - - + + _ Public Property R_Tb_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22151,13 +22149,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tb_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Tb_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22166,15 +22164,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tb_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Tb_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22182,13 +22180,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tb_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Tb_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Tb_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Tb_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22197,15 +22195,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Tb_FactColumn) = value End Set End Property - - + + _ Public Property R_Gd_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22213,13 +22211,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Gd_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Gd_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22228,15 +22226,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Gd_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Gd_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22244,13 +22242,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Gd_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Gd_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Gd_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Gd_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22259,15 +22257,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Gd_FactColumn) = value End Set End Property - - + + _ Public Property R_Eu_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22275,13 +22273,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Eu_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Eu_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22290,15 +22288,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Eu_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Eu_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22306,13 +22304,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Eu_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Eu_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Eu_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Eu_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22321,15 +22319,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Eu_FactColumn) = value End Set End Property - - + + _ Public Property R_Sm_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22337,13 +22335,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sm_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sm_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22352,15 +22350,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sm_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Sm_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22368,13 +22366,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sm_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Sm_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sm_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sm_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22383,15 +22381,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sm_FactColumn) = value End Set End Property - - + + _ Public Property R_Nd_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22399,13 +22397,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nd_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Nd_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22414,15 +22412,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nd_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Nd_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22430,13 +22428,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nd_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Nd_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nd_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nd_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22445,15 +22443,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nd_FactColumn) = value End Set End Property - - + + _ Public Property R_Ce_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22461,13 +22459,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ce_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ce_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22476,15 +22474,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ce_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ce_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22492,13 +22490,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ce_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ce_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ce_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ce_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22507,15 +22505,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ce_FactColumn) = value End Set End Property - - + + _ Public Property R_La_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22523,13 +22521,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_La_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_La_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22538,15 +22536,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_La_ErrorColumn) = value End Set End Property - - + + _ Public Property R_La_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22554,13 +22552,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_La_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_La_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_La_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_La_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22569,15 +22567,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_La_FactColumn) = value End Set End Property - - + + _ Public Property R_Ba_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22585,13 +22583,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ba_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ba_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22600,15 +22598,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ba_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ba_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22616,13 +22614,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ba_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ba_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ba_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ba_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22631,15 +22629,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ba_FactColumn) = value End Set End Property - - + + _ Public Property R_Cs_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22647,13 +22645,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cs_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Cs_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22662,15 +22660,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cs_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Cs_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22678,13 +22676,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cs_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Cs_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cs_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cs_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22693,15 +22691,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cs_FactColumn) = value End Set End Property - - + + _ Public Property R_I_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22709,13 +22707,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_I_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_I_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22724,15 +22722,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_I_ErrorColumn) = value End Set End Property - - + + _ Public Property R_I_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -22740,13 +22738,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_I_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_I_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_I_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_I_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22755,15 +22753,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_I_FactColumn) = value End Set End Property - - + + _ Public Property R_Sb_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22771,13 +22769,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sb_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sb_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22786,15 +22784,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sb_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Sb_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22802,13 +22800,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sb_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Sb_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sb_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sb_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22817,15 +22815,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sb_FactColumn) = value End Set End Property - - + + _ Public Property R_Sn_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22833,13 +22831,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sn_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sn_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22848,15 +22846,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sn_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Sn_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22864,13 +22862,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sn_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Sn_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sn_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sn_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22879,15 +22877,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sn_FactColumn) = value End Set End Property - - + + _ Public Property R_In_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22895,13 +22893,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_In_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_In_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22910,15 +22908,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_In_ErrorColumn) = value End Set End Property - - + + _ Public Property R_In_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22926,13 +22924,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_In_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_In_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_In_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_In_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22941,15 +22939,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_In_FactColumn) = value End Set End Property - - + + _ Public Property R_Cd_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -22957,13 +22955,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cd_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Cd_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -22972,15 +22970,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cd_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Cd_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -22988,13 +22986,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cd_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Cd_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cd_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cd_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23003,15 +23001,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cd_FactColumn) = value End Set End Property - - + + _ Public Property R_Ag_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23019,13 +23017,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ag_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ag_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23034,15 +23032,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ag_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ag_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23050,13 +23048,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ag_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ag_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ag_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ag_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23065,15 +23063,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ag_FactColumn) = value End Set End Property - - + + _ Public Property R_Ru_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23081,13 +23079,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ru_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ru_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23096,15 +23094,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ru_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ru_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23112,13 +23110,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ru_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ru_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ru_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ru_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23127,15 +23125,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ru_FactColumn) = value End Set End Property - - + + _ Public Property R_Mo_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23143,13 +23141,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mo_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Mo_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23158,15 +23156,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mo_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Mo_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23174,13 +23172,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mo_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Mo_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mo_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mo_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23189,15 +23187,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mo_FactColumn) = value End Set End Property - - + + _ Public Property R_Nb_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23205,13 +23203,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nb_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Nb_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23220,15 +23218,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nb_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Nb_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23236,15 +23234,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nb_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Zr_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23252,13 +23250,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zr_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Nb_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Nb_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Nb_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23267,13 +23265,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Nb_FactColumn) = value End Set End Property - - + + _ Public Property R_Zr_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23282,15 +23280,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zr_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Zr_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23298,13 +23296,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zr_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Zr_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zr_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zr_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23313,15 +23311,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zr_FactColumn) = value End Set End Property - - + + _ Public Property R_Y_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23329,13 +23327,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Y_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Y_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23344,15 +23342,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Y_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Y_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -23360,13 +23358,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Y_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Y_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Y_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Y_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23375,15 +23373,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Y_FactColumn) = value End Set End Property - - + + _ Public Property R_Sr_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23391,13 +23389,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sr_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sr_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23406,15 +23404,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sr_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Sr_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23422,15 +23420,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sr_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Rb_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23438,13 +23436,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Rb_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sr_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sr_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sr_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23453,13 +23451,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sr_FactColumn) = value End Set End Property - - + + _ Public Property R_Rb_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23468,15 +23466,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Rb_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Rb_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23484,13 +23482,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Rb_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Rb_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Rb_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Rb_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23499,15 +23497,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Rb_FactColumn) = value End Set End Property - - + + _ Public Property R_Br_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23515,13 +23513,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Br_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Br_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23530,15 +23528,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Br_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Br_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23546,13 +23544,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Br_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Br_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Br_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Br_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23561,15 +23559,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Br_FactColumn) = value End Set End Property - - + + _ Public Property R_Se_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23577,13 +23575,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Se_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Se_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23592,15 +23590,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Se_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Se_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23608,13 +23606,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Se_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Se_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Se_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Se_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23623,15 +23621,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Se_FactColumn) = value End Set End Property - - + + _ Public Property R_As_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23639,13 +23637,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_As_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_As_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23654,15 +23652,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_As_ErrorColumn) = value End Set End Property - - + + _ Public Property R_As_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23670,13 +23668,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_As_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_As_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_As_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_As_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23685,15 +23683,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_As_FactColumn) = value End Set End Property - - + + _ Public Property R_Ga_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23701,13 +23699,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ga_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ga_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23716,15 +23714,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ga_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ga_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23732,13 +23730,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ga_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ga_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ga_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ga_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23747,15 +23745,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ga_FactColumn) = value End Set End Property - - + + _ Public Property R_Zn_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23763,13 +23761,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zn_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Zn_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23778,15 +23776,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zn_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Zn_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23794,13 +23792,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zn_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Zn_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Zn_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Zn_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23809,15 +23807,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Zn_FactColumn) = value End Set End Property - - + + _ Public Property R_Cu_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23825,13 +23823,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cu_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Cu_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23840,15 +23838,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cu_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Cu_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23856,13 +23854,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cu_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Cu_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cu_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cu_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23871,15 +23869,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cu_FactColumn) = value End Set End Property - - + + _ Public Property R_Co_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23887,13 +23885,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Co_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Co_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23902,15 +23900,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Co_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Co_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23918,13 +23916,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Co_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Co_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Co_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Co_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23933,15 +23931,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Co_FactColumn) = value End Set End Property - - + + _ Public Property R_Fe_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -23949,13 +23947,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Fe_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Fe_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23964,15 +23962,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Fe_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Fe_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -23980,13 +23978,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Fe_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Fe_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Fe_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Fe_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -23995,15 +23993,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Fe_FactColumn) = value End Set End Property - - + + _ Public Property R_Mn_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24011,13 +24009,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mn_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Mn_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24026,13 +24024,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mn_ErrorColumn) = value End Set End Property - - + + _ Public Property R_F_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24041,15 +24039,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_F_FactColumn) = value End Set End Property - - + + _ Public Property R_F_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -24057,13 +24055,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_F_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_F_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24072,15 +24070,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_F_ErrorColumn) = value End Set End Property - - + + _ Public Property R_F_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_F_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_F_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24088,13 +24086,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_F_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Na_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24103,15 +24101,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Na_FactColumn) = value End Set End Property - - + + _ Public Property R_Na_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24119,13 +24117,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Na_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Na_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24134,15 +24132,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Na_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Na_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Na_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Na_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24150,13 +24148,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Na_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Mg_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24165,15 +24163,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mg_FactColumn) = value End Set End Property - - + + _ Public Property R_Mg_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24181,13 +24179,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mg_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Mg_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24196,15 +24194,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mg_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Mg_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mg_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mg_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24212,13 +24210,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mg_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Al_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24227,15 +24225,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Al_FactColumn) = value End Set End Property - - + + _ Public Property R_Al_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24243,13 +24241,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Al_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Al_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24258,13 +24256,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Al_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Si_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24273,15 +24271,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Si_FactColumn) = value End Set End Property - - + + _ Public Property R_Al_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Al_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Al_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24289,15 +24287,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Al_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Si_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24305,13 +24303,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Si_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Si_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24320,15 +24318,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Si_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Si_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Si_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Si_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24336,13 +24334,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Si_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_S_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24351,15 +24349,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_S_FactColumn) = value End Set End Property - - + + _ Public Property R_S_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -24367,13 +24365,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_S_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_S_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24382,15 +24380,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_S_ErrorColumn) = value End Set End Property - - + + _ Public Property R_S_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_S_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_S_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24398,13 +24396,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_S_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Cl_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24413,15 +24411,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cl_FactColumn) = value End Set End Property - - + + _ Public Property R_Cl_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24429,13 +24427,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cl_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Cl_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24444,15 +24442,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cl_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Cl_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cl_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cl_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24460,13 +24458,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cl_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_K_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24475,15 +24473,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_K_FactColumn) = value End Set End Property - - + + _ Public Property R_K_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -24491,13 +24489,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_K_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_K_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24506,15 +24504,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_K_ErrorColumn) = value End Set End Property - - + + _ Public Property R_K_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_K_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_K_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24522,13 +24520,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_K_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ca_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24537,15 +24535,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ca_FactColumn) = value End Set End Property - - + + _ Public Property R_Ca_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24553,13 +24551,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ca_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ca_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24568,15 +24566,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ca_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ca_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ca_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ca_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24584,13 +24582,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ca_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Sc_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24599,15 +24597,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sc_FactColumn) = value End Set End Property - - + + _ Public Property R_Sc_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24615,13 +24613,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sc_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Sc_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24630,15 +24628,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sc_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Sc_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Sc_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Sc_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24646,13 +24644,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Sc_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Ti_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24661,15 +24659,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ti_FactColumn) = value End Set End Property - - + + _ Public Property R_Ti_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24677,13 +24675,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ti_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Ti_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24692,15 +24690,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ti_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Ti_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Ti_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Ti_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24708,13 +24706,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Ti_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_V_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24723,15 +24721,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_V_FactColumn) = value End Set End Property - - + + _ Public Property R_V_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Concentaration' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Concentaration' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -24739,13 +24737,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_V_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_V_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24754,15 +24752,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_V_ErrorColumn) = value End Set End Property - - + + _ Public Property R_V_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_V_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Detection_Limit' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_V_Detection_Limit' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24770,13 +24768,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_V_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Cr_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24785,15 +24783,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cr_FactColumn) = value End Set End Property - - + + _ Public Property R_Cr_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24801,13 +24799,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cr_ConcentarationColumn) = value End Set End Property - - + + _ Public Property R_Cr_Error() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_ErrorColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_ErrorColumn),Single) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Error' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24816,15 +24814,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cr_ErrorColumn) = value End Set End Property - - + + _ Public Property R_Cr_Detection_Limit() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_Detection_LimitColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Cr_Detection_LimitColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Detection_Limit' in table 'table_Sample_NAA_Results' i" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Cr_Detection_Limit' in table 'table_Sample_NAA_Results' i"& _ "s DBNull.", e) End Try End Get @@ -24832,13 +24830,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Cr_Detection_LimitColumn) = value End Set End Property - - + + _ Public Property R_Mn_Fact() As Boolean Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_FactColumn), Boolean) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_FactColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Fact' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24847,15 +24845,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mn_FactColumn) = value End Set End Property - - + + _ Public Property R_Mn_Concentaration() As Single Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_ConcentarationColumn), Single) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Mn_ConcentarationColumn),Single) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Concentaration' in table 'table_Sample_NAA_Results' is" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Mn_Concentaration' in table 'table_Sample_NAA_Results' is"& _ " DBNull.", e) End Try End Get @@ -24863,81 +24861,81 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Mn_ConcentarationColumn) = value End Set End Property - - + + _ Public Property A_Sample_ID() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Sample_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Sample_IDColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.A_Sample_IDColumn) = value End Set End Property - - + + _ Public Property F_Country_Code() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Country_CodeColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Country_CodeColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.F_Country_CodeColumn) = value End Set End Property - - + + _ Public Property F_Client_ID() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Client_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Client_IDColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.F_Client_IDColumn) = value End Set End Property - - + + _ Public Property F_Year() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.F_YearColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.F_YearColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.F_YearColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_ID() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IDColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IDColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IDColumn) = value End Set End Property - - + + _ Public Property F_Sample_Set_Index() As String Get - Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IndexColumn), String) + Return CType(Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IndexColumn),String) End Get Set Me(Me.tabletable_Sample_NAA_Results.F_Sample_Set_IndexColumn) = value End Set End Property - - + + _ Public Property R_Processed_By() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Processed_ByColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_Processed_ByColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_Processed_By' in table 'table_Sample_NAA_Results' is DBNu" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_Processed_By' in table 'table_Sample_NAA_Results' is DBNu"& _ "ll.", e) End Try End Get @@ -24945,15 +24943,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_Processed_ByColumn) = value End Set End Property - - + + _ Public Property R_File_Spectrum() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.R_File_SpectrumColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.R_File_SpectrumColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'R_File_Spectrum' in table 'table_Sample_NAA_Results' is DBN" & + Throw New Global.System.Data.StrongTypingException("The value for column 'R_File_Spectrum' in table 'table_Sample_NAA_Results' is DBN"& _ "ull.", e) End Try End Get @@ -24961,15 +24959,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.R_File_SpectrumColumn) = value End Set End Property - - + + _ Public Property A_Client_Sample_ID() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Client_Sample_IDColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Client_Sample_IDColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'A_Client_Sample_ID' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'A_Client_Sample_ID' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -24977,13 +24975,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.A_Client_Sample_IDColumn) = value End Set End Property - - + + _ Public Property A_Latitude() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_LatitudeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_LatitudeColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Latitude' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -24992,15 +24990,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.A_LatitudeColumn) = value End Set End Property - - + + _ Public Property A_Longitude() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_LongitudeColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_LongitudeColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'A_Longitude' in table 'table_Sample_NAA_Results' is DBNull." & + Throw New Global.System.Data.StrongTypingException("The value for column 'A_Longitude' in table 'table_Sample_NAA_Results' is DBNull."& _ "", e) End Try End Get @@ -25008,15 +25006,15 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.A_LongitudeColumn) = value End Set End Property - - + + _ Public Property A_Collection_Place() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Collection_PlaceColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_Collection_PlaceColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("The value for column 'A_Collection_Place' in table 'table_Sample_NAA_Results' is " & + Throw New Global.System.Data.StrongTypingException("The value for column 'A_Collection_Place' in table 'table_Sample_NAA_Results' is "& _ "DBNull.", e) End Try End Get @@ -25024,13 +25022,13 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.A_Collection_PlaceColumn) = value End Set End Property - - + + _ Public Property A_Notes() As String Get - Try - Return CType(Me(Me.tabletable_Sample_NAA_Results.A_NotesColumn), String) + Try + Return CType(Me(Me.tabletable_Sample_NAA_Results.A_NotesColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("The value for column 'A_Notes' in table 'table_Sample_NAA_Results' is DBNull.", e) End Try @@ -25039,3540 +25037,3540 @@ Partial Public Class NAA_DB_EXPDataSet Me(Me.tabletable_Sample_NAA_Results.A_NotesColumn) = value End Set End Property - - + + _ Public Property table_Sample_SetRowParent() As table_Sample_SetRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set2")), table_Sample_SetRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set2")),table_Sample_SetRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_table_Sample_table_Sample_Set2")) End Set End Property - - + + _ Public Function IsR_U_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_U_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_U_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_U_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_U_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_U_ErrorColumn) End Function - - + + _ Public Sub SetR_U_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_U_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_U_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_U_ConcentarationColumn) End Function - - + + _ Public Sub SetR_U_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_U_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_U_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_U_FactColumn) End Function - - + + _ Public Sub SetR_U_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_U_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Th_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Th_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Th_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Th_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Th_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Th_ErrorColumn) End Function - - + + _ Public Sub SetR_Th_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Th_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Th_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Th_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Th_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Th_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Th_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Th_FactColumn) End Function - - + + _ Public Sub SetR_Th_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Th_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hg_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hg_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Hg_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Hg_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hg_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hg_ErrorColumn) End Function - - + + _ Public Sub SetR_Hg_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Hg_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hg_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hg_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Hg_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Hg_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hg_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hg_FactColumn) End Function - - + + _ Public Sub SetR_Hg_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Hg_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Au_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Au_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Au_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Au_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Au_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Au_ErrorColumn) End Function - - + + _ Public Sub SetR_Au_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Au_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Au_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Au_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Au_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Au_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Au_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Au_FactColumn) End Function - - + + _ Public Sub SetR_Au_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Au_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Pt_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Pt_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Pt_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Pt_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Pt_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Pt_ErrorColumn) End Function - - + + _ Public Sub SetR_Pt_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Pt_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Pt_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Pt_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Pt_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Pt_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Pt_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Pt_FactColumn) End Function - - + + _ Public Sub SetR_Pt_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Pt_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ir_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ir_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ir_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ir_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ir_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ir_ErrorColumn) End Function - - + + _ Public Sub SetR_Ir_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ir_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ir_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ir_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ir_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ir_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ir_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ir_FactColumn) End Function - - + + _ Public Sub SetR_Ir_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ir_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Re_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Re_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Re_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Re_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Re_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Re_ErrorColumn) End Function - - + + _ Public Sub SetR_Re_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Re_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Re_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Re_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Re_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Re_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Re_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Re_FactColumn) End Function - - + + _ Public Sub SetR_Re_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Re_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_W_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_W_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_W_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_W_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_W_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_W_ErrorColumn) End Function - - + + _ Public Sub SetR_W_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_W_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_W_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_W_ConcentarationColumn) End Function - - + + _ Public Sub SetR_W_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_W_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_W_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_W_FactColumn) End Function - - + + _ Public Sub SetR_W_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_W_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ta_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ta_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ta_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ta_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ta_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ta_ErrorColumn) End Function - - + + _ Public Sub SetR_Ta_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ta_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ta_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ta_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ta_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ta_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ta_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ta_FactColumn) End Function - - + + _ Public Sub SetR_Ta_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ta_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hf_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hf_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Hf_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Hf_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hf_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hf_ErrorColumn) End Function - - + + _ Public Sub SetR_Hf_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Hf_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hf_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hf_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Hf_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Hf_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Hf_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Hf_FactColumn) End Function - - + + _ Public Sub SetR_Hf_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Hf_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Lu_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Lu_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Lu_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Lu_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Lu_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Lu_ErrorColumn) End Function - - + + _ Public Sub SetR_Lu_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Lu_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Lu_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Lu_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Lu_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Lu_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Lu_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Lu_FactColumn) End Function - - + + _ Public Sub SetR_Lu_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Lu_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Yb_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Yb_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Yb_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Yb_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Yb_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Yb_ErrorColumn) End Function - - + + _ Public Sub SetR_Yb_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Yb_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Yb_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Yb_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Yb_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Yb_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Yb_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Yb_FactColumn) End Function - - + + _ Public Sub SetR_Yb_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Yb_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tm_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tm_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Tm_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Tm_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tm_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tm_ErrorColumn) End Function - - + + _ Public Sub SetR_Tm_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Tm_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tm_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tm_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Tm_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Tm_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tm_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tm_FactColumn) End Function - - + + _ Public Sub SetR_Tm_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Tm_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Er_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Er_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Er_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Er_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Er_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Er_ErrorColumn) End Function - - + + _ Public Sub SetR_Er_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Er_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Er_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Er_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Er_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Er_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Er_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Er_FactColumn) End Function - - + + _ Public Sub SetR_Er_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Er_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Dy_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Dy_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Dy_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Dy_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Dy_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Dy_ErrorColumn) End Function - - + + _ Public Sub SetR_Dy_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Dy_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Dy_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Dy_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Dy_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Dy_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Dy_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Dy_FactColumn) End Function - - + + _ Public Sub SetR_Dy_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Dy_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tb_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tb_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Tb_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Tb_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tb_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tb_ErrorColumn) End Function - - + + _ Public Sub SetR_Tb_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Tb_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tb_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tb_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Tb_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Tb_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Tb_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Tb_FactColumn) End Function - - + + _ Public Sub SetR_Tb_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Tb_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Gd_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Gd_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Gd_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Gd_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Gd_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Gd_ErrorColumn) End Function - - + + _ Public Sub SetR_Gd_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Gd_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Gd_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Gd_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Gd_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Gd_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Gd_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Gd_FactColumn) End Function - - + + _ Public Sub SetR_Gd_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Gd_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Eu_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Eu_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Eu_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Eu_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Eu_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Eu_ErrorColumn) End Function - - + + _ Public Sub SetR_Eu_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Eu_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Eu_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Eu_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Eu_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Eu_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Eu_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Eu_FactColumn) End Function - - + + _ Public Sub SetR_Eu_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Eu_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sm_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sm_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Sm_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Sm_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sm_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sm_ErrorColumn) End Function - - + + _ Public Sub SetR_Sm_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Sm_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sm_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sm_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Sm_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Sm_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sm_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sm_FactColumn) End Function - - + + _ Public Sub SetR_Sm_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Sm_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nd_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nd_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Nd_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Nd_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nd_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nd_ErrorColumn) End Function - - + + _ Public Sub SetR_Nd_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Nd_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nd_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nd_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Nd_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Nd_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nd_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nd_FactColumn) End Function - - + + _ Public Sub SetR_Nd_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Nd_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ce_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ce_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ce_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ce_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ce_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ce_ErrorColumn) End Function - - + + _ Public Sub SetR_Ce_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ce_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ce_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ce_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ce_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ce_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ce_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ce_FactColumn) End Function - - + + _ Public Sub SetR_Ce_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ce_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_La_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_La_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_La_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_La_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_La_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_La_ErrorColumn) End Function - - + + _ Public Sub SetR_La_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_La_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_La_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_La_ConcentarationColumn) End Function - - + + _ Public Sub SetR_La_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_La_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_La_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_La_FactColumn) End Function - - + + _ Public Sub SetR_La_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_La_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ba_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ba_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ba_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ba_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ba_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ba_ErrorColumn) End Function - - + + _ Public Sub SetR_Ba_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ba_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ba_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ba_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ba_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ba_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ba_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ba_FactColumn) End Function - - + + _ Public Sub SetR_Ba_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ba_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cs_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cs_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Cs_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Cs_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cs_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cs_ErrorColumn) End Function - - + + _ Public Sub SetR_Cs_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Cs_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cs_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cs_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Cs_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Cs_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cs_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cs_FactColumn) End Function - - + + _ Public Sub SetR_Cs_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Cs_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_I_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_I_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_I_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_I_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_I_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_I_ErrorColumn) End Function - - + + _ Public Sub SetR_I_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_I_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_I_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_I_ConcentarationColumn) End Function - - + + _ Public Sub SetR_I_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_I_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_I_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_I_FactColumn) End Function - - + + _ Public Sub SetR_I_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_I_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sb_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sb_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Sb_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Sb_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sb_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sb_ErrorColumn) End Function - - + + _ Public Sub SetR_Sb_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Sb_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sb_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sb_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Sb_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Sb_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sb_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sb_FactColumn) End Function - - + + _ Public Sub SetR_Sb_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Sb_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sn_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sn_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Sn_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Sn_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sn_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sn_ErrorColumn) End Function - - + + _ Public Sub SetR_Sn_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Sn_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sn_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sn_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Sn_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Sn_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sn_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sn_FactColumn) End Function - - + + _ Public Sub SetR_Sn_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Sn_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_In_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_In_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_In_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_In_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_In_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_In_ErrorColumn) End Function - - + + _ Public Sub SetR_In_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_In_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_In_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_In_ConcentarationColumn) End Function - - + + _ Public Sub SetR_In_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_In_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_In_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_In_FactColumn) End Function - - + + _ Public Sub SetR_In_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_In_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cd_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cd_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Cd_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Cd_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cd_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cd_ErrorColumn) End Function - - + + _ Public Sub SetR_Cd_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Cd_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cd_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cd_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Cd_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Cd_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cd_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cd_FactColumn) End Function - - + + _ Public Sub SetR_Cd_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Cd_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ag_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ag_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ag_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ag_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ag_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ag_ErrorColumn) End Function - - + + _ Public Sub SetR_Ag_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ag_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ag_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ag_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ag_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ag_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ag_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ag_FactColumn) End Function - - + + _ Public Sub SetR_Ag_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ag_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ru_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ru_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ru_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ru_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ru_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ru_ErrorColumn) End Function - - + + _ Public Sub SetR_Ru_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ru_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ru_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ru_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ru_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ru_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ru_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ru_FactColumn) End Function - - + + _ Public Sub SetR_Ru_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ru_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mo_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mo_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Mo_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Mo_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mo_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mo_ErrorColumn) End Function - - + + _ Public Sub SetR_Mo_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Mo_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mo_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mo_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Mo_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Mo_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mo_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mo_FactColumn) End Function - - + + _ Public Sub SetR_Mo_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Mo_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nb_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nb_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Nb_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Nb_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nb_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nb_ErrorColumn) End Function - - + + _ Public Sub SetR_Nb_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Nb_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nb_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nb_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Nb_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Nb_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zr_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zr_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Zr_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Zr_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Nb_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Nb_FactColumn) End Function - - + + _ Public Sub SetR_Nb_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Nb_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zr_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zr_ErrorColumn) End Function - - + + _ Public Sub SetR_Zr_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Zr_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zr_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zr_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Zr_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Zr_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zr_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zr_FactColumn) End Function - - + + _ Public Sub SetR_Zr_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Zr_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Y_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Y_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Y_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Y_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Y_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Y_ErrorColumn) End Function - - + + _ Public Sub SetR_Y_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Y_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Y_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Y_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Y_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Y_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Y_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Y_FactColumn) End Function - - + + _ Public Sub SetR_Y_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Y_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sr_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sr_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Sr_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Sr_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sr_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sr_ErrorColumn) End Function - - + + _ Public Sub SetR_Sr_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Sr_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sr_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sr_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Sr_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Sr_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Rb_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Rb_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Rb_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Rb_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sr_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sr_FactColumn) End Function - - + + _ Public Sub SetR_Sr_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Sr_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Rb_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Rb_ErrorColumn) End Function - - + + _ Public Sub SetR_Rb_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Rb_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Rb_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Rb_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Rb_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Rb_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Rb_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Rb_FactColumn) End Function - - + + _ Public Sub SetR_Rb_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Rb_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Br_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Br_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Br_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Br_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Br_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Br_ErrorColumn) End Function - - + + _ Public Sub SetR_Br_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Br_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Br_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Br_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Br_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Br_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Br_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Br_FactColumn) End Function - - + + _ Public Sub SetR_Br_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Br_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Se_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Se_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Se_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Se_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Se_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Se_ErrorColumn) End Function - - + + _ Public Sub SetR_Se_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Se_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Se_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Se_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Se_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Se_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Se_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Se_FactColumn) End Function - - + + _ Public Sub SetR_Se_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Se_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_As_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_As_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_As_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_As_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_As_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_As_ErrorColumn) End Function - - + + _ Public Sub SetR_As_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_As_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_As_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_As_ConcentarationColumn) End Function - - + + _ Public Sub SetR_As_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_As_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_As_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_As_FactColumn) End Function - - + + _ Public Sub SetR_As_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_As_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ga_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ga_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ga_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ga_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ga_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ga_ErrorColumn) End Function - - + + _ Public Sub SetR_Ga_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ga_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ga_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ga_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ga_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ga_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ga_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ga_FactColumn) End Function - - + + _ Public Sub SetR_Ga_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ga_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zn_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zn_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Zn_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Zn_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zn_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zn_ErrorColumn) End Function - - + + _ Public Sub SetR_Zn_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Zn_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zn_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zn_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Zn_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Zn_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Zn_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Zn_FactColumn) End Function - - + + _ Public Sub SetR_Zn_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Zn_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cu_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cu_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Cu_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Cu_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cu_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cu_ErrorColumn) End Function - - + + _ Public Sub SetR_Cu_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Cu_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cu_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cu_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Cu_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Cu_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cu_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cu_FactColumn) End Function - - + + _ Public Sub SetR_Cu_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Cu_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Co_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Co_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Co_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Co_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Co_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Co_ErrorColumn) End Function - - + + _ Public Sub SetR_Co_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Co_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Co_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Co_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Co_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Co_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Co_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Co_FactColumn) End Function - - + + _ Public Sub SetR_Co_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Co_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Fe_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Fe_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Fe_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Fe_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Fe_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Fe_ErrorColumn) End Function - - + + _ Public Sub SetR_Fe_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Fe_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Fe_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Fe_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Fe_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Fe_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Fe_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Fe_FactColumn) End Function - - + + _ Public Sub SetR_Fe_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Fe_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mn_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mn_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Mn_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Mn_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mn_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mn_ErrorColumn) End Function - - + + _ Public Sub SetR_Mn_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Mn_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_F_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_F_FactColumn) End Function - - + + _ Public Sub SetR_F_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_F_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_F_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_F_ConcentarationColumn) End Function - - + + _ Public Sub SetR_F_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_F_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_F_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_F_ErrorColumn) End Function - - + + _ Public Sub SetR_F_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_F_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_F_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_F_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_F_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_F_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Na_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Na_FactColumn) End Function - - + + _ Public Sub SetR_Na_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Na_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Na_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Na_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Na_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Na_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Na_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Na_ErrorColumn) End Function - - + + _ Public Sub SetR_Na_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Na_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Na_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Na_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Na_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Na_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mg_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mg_FactColumn) End Function - - + + _ Public Sub SetR_Mg_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Mg_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mg_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mg_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Mg_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Mg_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mg_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mg_ErrorColumn) End Function - - + + _ Public Sub SetR_Mg_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Mg_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mg_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mg_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Mg_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Mg_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Al_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Al_FactColumn) End Function - - + + _ Public Sub SetR_Al_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Al_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Al_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Al_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Al_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Al_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Al_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Al_ErrorColumn) End Function - - + + _ Public Sub SetR_Al_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Al_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Si_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Si_FactColumn) End Function - - + + _ Public Sub SetR_Si_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Si_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Al_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Al_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Al_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Al_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Si_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Si_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Si_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Si_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Si_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Si_ErrorColumn) End Function - - + + _ Public Sub SetR_Si_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Si_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Si_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Si_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Si_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Si_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_S_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_S_FactColumn) End Function - - + + _ Public Sub SetR_S_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_S_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_S_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_S_ConcentarationColumn) End Function - - + + _ Public Sub SetR_S_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_S_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_S_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_S_ErrorColumn) End Function - - + + _ Public Sub SetR_S_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_S_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_S_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_S_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_S_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_S_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cl_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cl_FactColumn) End Function - - + + _ Public Sub SetR_Cl_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Cl_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cl_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cl_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Cl_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Cl_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cl_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cl_ErrorColumn) End Function - - + + _ Public Sub SetR_Cl_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Cl_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cl_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cl_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Cl_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Cl_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_K_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_K_FactColumn) End Function - - + + _ Public Sub SetR_K_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_K_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_K_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_K_ConcentarationColumn) End Function - - + + _ Public Sub SetR_K_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_K_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_K_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_K_ErrorColumn) End Function - - + + _ Public Sub SetR_K_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_K_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_K_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_K_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_K_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_K_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ca_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ca_FactColumn) End Function - - + + _ Public Sub SetR_Ca_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ca_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ca_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ca_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ca_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ca_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ca_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ca_ErrorColumn) End Function - - + + _ Public Sub SetR_Ca_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ca_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ca_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ca_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ca_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ca_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sc_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sc_FactColumn) End Function - - + + _ Public Sub SetR_Sc_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Sc_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sc_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sc_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Sc_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Sc_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sc_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sc_ErrorColumn) End Function - - + + _ Public Sub SetR_Sc_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Sc_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Sc_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Sc_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Sc_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Sc_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ti_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ti_FactColumn) End Function - - + + _ Public Sub SetR_Ti_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Ti_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ti_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ti_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Ti_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Ti_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ti_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ti_ErrorColumn) End Function - - + + _ Public Sub SetR_Ti_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Ti_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Ti_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Ti_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Ti_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Ti_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_V_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_V_FactColumn) End Function - - + + _ Public Sub SetR_V_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_V_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_V_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_V_ConcentarationColumn) End Function - - + + _ Public Sub SetR_V_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_V_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_V_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_V_ErrorColumn) End Function - - + + _ Public Sub SetR_V_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_V_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_V_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_V_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_V_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_V_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cr_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cr_FactColumn) End Function - - + + _ Public Sub SetR_Cr_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Cr_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cr_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cr_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Cr_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Cr_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cr_ErrorNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cr_ErrorColumn) End Function - - + + _ Public Sub SetR_Cr_ErrorNull() Me(Me.tabletable_Sample_NAA_Results.R_Cr_ErrorColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Cr_Detection_LimitNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Cr_Detection_LimitColumn) End Function - - + + _ Public Sub SetR_Cr_Detection_LimitNull() Me(Me.tabletable_Sample_NAA_Results.R_Cr_Detection_LimitColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mn_FactNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mn_FactColumn) End Function - - + + _ Public Sub SetR_Mn_FactNull() Me(Me.tabletable_Sample_NAA_Results.R_Mn_FactColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Mn_ConcentarationNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Mn_ConcentarationColumn) End Function - - + + _ Public Sub SetR_Mn_ConcentarationNull() Me(Me.tabletable_Sample_NAA_Results.R_Mn_ConcentarationColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_Processed_ByNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_Processed_ByColumn) End Function - - + + _ Public Sub SetR_Processed_ByNull() Me(Me.tabletable_Sample_NAA_Results.R_Processed_ByColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsR_File_SpectrumNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.R_File_SpectrumColumn) End Function - - + + _ Public Sub SetR_File_SpectrumNull() Me(Me.tabletable_Sample_NAA_Results.R_File_SpectrumColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Client_Sample_IDNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.A_Client_Sample_IDColumn) End Function - - + + _ Public Sub SetA_Client_Sample_IDNull() Me(Me.tabletable_Sample_NAA_Results.A_Client_Sample_IDColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_LatitudeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.A_LatitudeColumn) End Function - - + + _ Public Sub SetA_LatitudeNull() Me(Me.tabletable_Sample_NAA_Results.A_LatitudeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_LongitudeNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.A_LongitudeColumn) End Function - - + + _ Public Sub SetA_LongitudeNull() Me(Me.tabletable_Sample_NAA_Results.A_LongitudeColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_Collection_PlaceNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.A_Collection_PlaceColumn) End Function - - + + _ Public Sub SetA_Collection_PlaceNull() Me(Me.tabletable_Sample_NAA_Results.A_Collection_PlaceColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsA_NotesNull() As Boolean Return Me.IsNull(Me.tabletable_Sample_NAA_Results.A_NotesColumn) End Function - - + + _ Public Sub SetA_NotesNull() Me(Me.tabletable_Sample_NAA_Results.A_NotesColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - + _ Public Class table_ClientRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_ClientRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_ClientRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_ClientRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_CountryRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_CountryRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_CountryRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_CountryRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Determined_ElementsRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Determined_ElementsRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Determined_ElementsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Determined_ElementsRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Physical_EnvironmentRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Physical_EnvironmentRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Physical_EnvironmentRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Physical_EnvironmentRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Received_ByRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Received_ByRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Received_ByRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Received_ByRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Sample_PreparationRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Sample_PreparationRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Sample_PreparationRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Sample_PreparationRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Sample_SetRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Sample_SetRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Sample_SetRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Sample_SetRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Sample_TypeRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Sample_TypeRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Sample_TypeRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Sample_TypeRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_SampleRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_SampleRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_SampleRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_SampleRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Sample_Sample_PreparationRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Sample_Sample_PreparationRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Sample_Sample_PreparationRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Sample_Sample_PreparationRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_SLI_Irradiation_LogRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_SLI_Irradiation_LogRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_SLI_Irradiation_LogRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_SLI_Irradiation_LogRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_LLI_Irradiation_LogRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_LLI_Irradiation_LogRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_LLI_Irradiation_LogRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_LLI_Irradiation_LogRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_MonitorRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_MonitorRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_MonitorRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_MonitorRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Monitor_SetRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Monitor_SetRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Monitor_SetRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Monitor_SetRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_SRMRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_SRMRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_SRMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_SRMRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_SRM_SetRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_SRM_SetRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_SRM_SetRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_SRM_SetRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class table_Sample_NAA_ResultsRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As table_Sample_NAA_ResultsRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As table_Sample_NAA_ResultsRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As table_Sample_NAA_ResultsRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -28582,38 +28580,38 @@ Partial Public Class NAA_DB_EXPDataSet End Class Namespace NAA_DB_EXPDataSetTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_ClientTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -28622,9 +28620,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -28646,15 +28644,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -28666,23 +28664,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -28691,9 +28689,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -28702,9 +28700,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -28745,331 +28743,331 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Client] ([Client_ID], [Country_Code], [Country], [Postal" & - "_Code], [Republic], [Region], [Area], [City], [Street], [House], [Building], [Or" & - "ganization], [Title], [Gender], [Last_Name], [First_Name], [Middle_Name], [Phone" & - "_Country_Code_Phone_1], [Code_Phone_1], [Phone_1], [Phone_Country_Code_Phone_2]," & - " [Code_Phone_2], [Phone_2], [Phone_Country_Code_Fax_1], [Code_Fax_1], [Fax_1], [" & - "Phone_Country_Code_Mobile_Phone_1], [Code_Mobile_Phone_1], [Mobile_Phone_1], [E_" & - "mail_1], [E_mail_2], [Notes]) VALUES (@Client_ID, @Country_Code, @Country, @Post" & - "al_Code, @Republic, @Region, @Area, @City, @Street, @House, @Building, @Organiza" & - "tion, @Title, @Gender, @Last_Name, @First_Name, @Middle_Name, @Phone_Country_Cod" & - "e_Phone_1, @Code_Phone_1, @Phone_1, @Phone_Country_Code_Phone_2, @Code_Phone_2, " & - "@Phone_2, @Phone_Country_Code_Fax_1, @Code_Fax_1, @Fax_1, @Phone_Country_Code_Mo" & - "bile_Phone_1, @Code_Mobile_Phone_1, @Mobile_Phone_1, @E_mail_1, @E_mail_2, @Note" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Client] ([Client_ID], [Country_Code], [Country], [Postal"& _ + "_Code], [Republic], [Region], [Area], [City], [Street], [House], [Building], [Or"& _ + "ganization], [Title], [Gender], [Last_Name], [First_Name], [Middle_Name], [Phone"& _ + "_Country_Code_Phone_1], [Code_Phone_1], [Phone_1], [Phone_Country_Code_Phone_2],"& _ + " [Code_Phone_2], [Phone_2], [Phone_Country_Code_Fax_1], [Code_Fax_1], [Fax_1], ["& _ + "Phone_Country_Code_Mobile_Phone_1], [Code_Mobile_Phone_1], [Mobile_Phone_1], [E_"& _ + "mail_1], [E_mail_2], [Notes]) VALUES (@Client_ID, @Country_Code, @Country, @Post"& _ + "al_Code, @Republic, @Region, @Area, @City, @Street, @House, @Building, @Organiza"& _ + "tion, @Title, @Gender, @Last_Name, @First_Name, @Middle_Name, @Phone_Country_Cod"& _ + "e_Phone_1, @Code_Phone_1, @Phone_1, @Phone_Country_Code_Phone_2, @Code_Phone_2, "& _ + "@Phone_2, @Phone_Country_Code_Fax_1, @Code_Fax_1, @Fax_1, @Phone_Country_Code_Mo"& _ + "bile_Phone_1, @Code_Mobile_Phone_1, @Mobile_Phone_1, @E_mail_1, @E_mail_2, @Note"& _ "s)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postal_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postal_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Republic", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Republic", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Region", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Area", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Area", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@House", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "House", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Building", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Building", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Organization", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Organization", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Last_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Last_Name", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@First_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "First_Name", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Middle_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Middle_Name", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Phone_2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Phone_2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Fax_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Fax_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fax_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@E_mail_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E_mail_1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@E_mail_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E_mail_2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notes", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notes", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Postal_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Postal_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Republic", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Republic", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Region", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Region", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Area", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Area", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@City", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "City", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Street", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Street", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@House", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "House", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Building", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Building", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Organization", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Organization", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Title", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Title", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Gender", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Gender", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Last_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Last_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@First_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "First_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Middle_Name", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Middle_Name", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Phone_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Phone_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Fax_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Fax_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fax_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fax_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code_Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code_Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Code_Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Code_Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Mobile_Phone_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Mobile_Phone_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@E_mail_1", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E_mail_1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@E_mail_2", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "E_mail_2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Notes", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Notes", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT Client_ID, Country_Code, Country, Postal_Code, Republic, Region, Area, Cit" & - "y, Street, House, Building, Organization, Title, Gender, Last_Name, First_Name, " & - "Middle_Name, Phone_Country_Code_Phone_1, Code_Phone_1, Phone_1, Phone_Country_Co" & - "de_Phone_2, Code_Phone_2, Phone_2, Phone_Country_Code_Fax_1, Code_Fax_1, Fax_1, " & - "Phone_Country_Code_Mobile_Phone_1, Code_Mobile_Phone_1, Mobile_Phone_1, E_mail_1" & + Me._commandCollection(0).CommandText = "SELECT Client_ID, Country_Code, Country, Postal_Code, Republic, Region, Area, Cit"& _ + "y, Street, House, Building, Organization, Title, Gender, Last_Name, First_Name, "& _ + "Middle_Name, Phone_Country_Code_Phone_1, Code_Phone_1, Phone_1, Phone_Country_Co"& _ + "de_Phone_2, Code_Phone_2, Phone_2, Phone_Country_Code_Fax_1, Code_Fax_1, Fax_1, "& _ + "Phone_Country_Code_Mobile_Phone_1, Code_Mobile_Phone_1, Mobile_Phone_1, E_mail_1"& _ ", E_mail_2, Notes FROM dbo.table_Client" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_ClientDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_ClientDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_ClientDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_ClientDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_ClientDataTable = New NAA_DB_EXPDataSet.table_ClientDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_ClientDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_ClientDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Client") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Insert( - ByVal Client_ID As String, - ByVal Country_Code As String, - ByVal Country As String, - ByVal Postal_Code As String, - ByVal Republic As String, - ByVal _Region As String, - ByVal Area As String, - ByVal City As String, - ByVal Street As String, - ByVal House As String, - ByVal Building As String, - ByVal Organization As String, - ByVal Title As String, - ByVal Gender As String, - ByVal Last_Name As String, - ByVal First_Name As String, - ByVal Middle_Name As String, - ByVal Phone_Country_Code_Phone_1 As String, - ByVal Code_Phone_1 As String, - ByVal Phone_1 As String, - ByVal Phone_Country_Code_Phone_2 As String, - ByVal Code_Phone_2 As String, - ByVal Phone_2 As String, - ByVal Phone_Country_Code_Fax_1 As String, - ByVal Code_Fax_1 As String, - ByVal Fax_1 As String, - ByVal Phone_Country_Code_Mobile_Phone_1 As String, - ByVal Code_Mobile_Phone_1 As String, - ByVal Mobile_Phone_1 As String, - ByVal E_mail_1 As String, - ByVal E_mail_2 As String, + + _ + Public Overloads Overridable Function Insert( _ + ByVal Client_ID As String, _ + ByVal Country_Code As String, _ + ByVal Country As String, _ + ByVal Postal_Code As String, _ + ByVal Republic As String, _ + ByVal _Region As String, _ + ByVal Area As String, _ + ByVal City As String, _ + ByVal Street As String, _ + ByVal House As String, _ + ByVal Building As String, _ + ByVal Organization As String, _ + ByVal Title As String, _ + ByVal Gender As String, _ + ByVal Last_Name As String, _ + ByVal First_Name As String, _ + ByVal Middle_Name As String, _ + ByVal Phone_Country_Code_Phone_1 As String, _ + ByVal Code_Phone_1 As String, _ + ByVal Phone_1 As String, _ + ByVal Phone_Country_Code_Phone_2 As String, _ + ByVal Code_Phone_2 As String, _ + ByVal Phone_2 As String, _ + ByVal Phone_Country_Code_Fax_1 As String, _ + ByVal Code_Fax_1 As String, _ + ByVal Fax_1 As String, _ + ByVal Phone_Country_Code_Mobile_Phone_1 As String, _ + ByVal Code_Mobile_Phone_1 As String, _ + ByVal Mobile_Phone_1 As String, _ + ByVal E_mail_1 As String, _ + ByVal E_mail_2 As String, _ ByVal Notes As String) As Integer If (Client_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Client_ID") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(Client_ID, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Client_ID,String) End If If (Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_Code") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(Country_Code, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Country_Code,String) End If If (Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Country") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Country, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Country,String) End If If (Postal_Code Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Postal_Code, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Postal_Code,String) End If If (Republic Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(Republic, String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Republic,String) End If If (_Region Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(_Region, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(_Region,String) End If If (Area Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Area, String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Area,String) End If If (City Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(City, String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(City,String) End If If (Street Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(Street, String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(Street,String) End If If (House Is Nothing) Then Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(House, String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(House,String) End If If (Building Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(Building, String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(Building,String) End If If (Organization Is Nothing) Then Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(Organization, String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(Organization,String) End If If (Title Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(Title, String) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(Title,String) End If If (Gender Is Nothing) Then Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(Gender, String) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(Gender,String) End If If (Last_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(Last_Name, String) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(Last_Name,String) End If If (First_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(First_Name, String) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(First_Name,String) End If If (Middle_Name Is Nothing) Then Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(Middle_Name, String) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(Middle_Name,String) End If If (Phone_Country_Code_Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(Phone_Country_Code_Phone_1, String) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(Phone_Country_Code_Phone_1,String) End If If (Code_Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(18).Value = CType(Code_Phone_1, String) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(Code_Phone_1,String) End If If (Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(19).Value = CType(Phone_1, String) + Me.Adapter.InsertCommand.Parameters(19).Value = CType(Phone_1,String) End If If (Phone_Country_Code_Phone_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(20).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(20).Value = CType(Phone_Country_Code_Phone_2, String) + Me.Adapter.InsertCommand.Parameters(20).Value = CType(Phone_Country_Code_Phone_2,String) End If If (Code_Phone_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(21).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(21).Value = CType(Code_Phone_2, String) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(Code_Phone_2,String) End If If (Phone_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(22).Value = CType(Phone_2, String) + Me.Adapter.InsertCommand.Parameters(22).Value = CType(Phone_2,String) End If If (Phone_Country_Code_Fax_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(23).Value = CType(Phone_Country_Code_Fax_1, String) + Me.Adapter.InsertCommand.Parameters(23).Value = CType(Phone_Country_Code_Fax_1,String) End If If (Code_Fax_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(24).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(24).Value = CType(Code_Fax_1, String) + Me.Adapter.InsertCommand.Parameters(24).Value = CType(Code_Fax_1,String) End If If (Fax_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(25).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(25).Value = CType(Fax_1, String) + Me.Adapter.InsertCommand.Parameters(25).Value = CType(Fax_1,String) End If If (Phone_Country_Code_Mobile_Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(26).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(26).Value = CType(Phone_Country_Code_Mobile_Phone_1, String) + Me.Adapter.InsertCommand.Parameters(26).Value = CType(Phone_Country_Code_Mobile_Phone_1,String) End If If (Code_Mobile_Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(27).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(27).Value = CType(Code_Mobile_Phone_1, String) + Me.Adapter.InsertCommand.Parameters(27).Value = CType(Code_Mobile_Phone_1,String) End If If (Mobile_Phone_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(28).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(28).Value = CType(Mobile_Phone_1, String) + Me.Adapter.InsertCommand.Parameters(28).Value = CType(Mobile_Phone_1,String) End If If (E_mail_1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(29).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(29).Value = CType(E_mail_1, String) + Me.Adapter.InsertCommand.Parameters(29).Value = CType(E_mail_1,String) End If If (E_mail_2 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(30).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(30).Value = CType(E_mail_2, String) + Me.Adapter.InsertCommand.Parameters(30).Value = CType(E_mail_2,String) End If If (Notes Is Nothing) Then Me.Adapter.InsertCommand.Parameters(31).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(31).Value = CType(Notes, String) + Me.Adapter.InsertCommand.Parameters(31).Value = CType(Notes,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -29079,38 +29077,38 @@ Namespace NAA_DB_EXPDataSetTableAdapters End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_CountryTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29119,9 +29117,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -29143,15 +29141,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -29163,23 +29161,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -29188,9 +29186,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -29199,9 +29197,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -29213,23 +29211,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Country] ([Country], [Country_Code], [Phone_Country_Code" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Country] ([Country], [Country_Code], [Phone_Country_Code"& _ "]) VALUES (@Country, @Country_Code, @Phone_Country_Code)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Phone_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Phone_Country_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -29237,85 +29235,85 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._commandCollection(0).CommandText = "SELECT Country, Country_Code, Phone_Country_Code FROM dbo.table_Country" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_CountryDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_CountryDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_CountryDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_CountryDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_CountryDataTable = New NAA_DB_EXPDataSet.table_CountryDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_CountryDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_CountryDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Country") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Insert(ByVal Country As String, ByVal Country_Code As String, ByVal Phone_Country_Code As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal Country As String, ByVal Country_Code As String, ByVal Phone_Country_Code As String) As Integer If (Country Is Nothing) Then Throw New Global.System.ArgumentNullException("Country") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(Country, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Country,String) End If If (Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_Code") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(Country_Code, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Country_Code,String) End If If (Phone_Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Phone_Country_Code") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Phone_Country_Code, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Phone_Country_Code,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -29325,38 +29323,38 @@ Namespace NAA_DB_EXPDataSetTableAdapters End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_Determined_ElementsTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29365,9 +29363,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -29389,15 +29387,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -29409,23 +29407,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -29434,9 +29432,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -29445,9 +29443,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -29457,21 +29455,21 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Determined_Elements] ([DeterminedElements]) VALUES (@Det" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Determined_Elements] ([DeterminedElements]) VALUES (@Det"& _ "erminedElements)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeterminedElements", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeterminedElements", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DeterminedElements", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DeterminedElements", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -29479,75 +29477,75 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._commandCollection(0).CommandText = "SELECT DeterminedElements FROM dbo.table_Determined_Elements" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable = New NAA_DB_EXPDataSet.table_Determined_ElementsDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Determined_ElementsDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Determined_Elements") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Insert(ByVal DeterminedElements As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal DeterminedElements As String) As Integer If (DeterminedElements Is Nothing) Then Throw New Global.System.ArgumentNullException("DeterminedElements") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DeterminedElements, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DeterminedElements,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -29557,38 +29555,38 @@ Namespace NAA_DB_EXPDataSetTableAdapters End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_Physical_EnvironmentTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29597,9 +29595,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -29621,15 +29619,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -29641,23 +29639,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -29666,9 +29664,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -29677,9 +29675,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -29692,116 +29690,116 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Physical_Environment] ([Data], [Time], [Relative_Humidit" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Physical_Environment] ([Data], [Time], [Relative_Humidit"& _ "y], [Temperature]) VALUES (@Data, @Time, @Relative_Humidity, @Temperature)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Data", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Data", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Time", Global.System.Data.SqlDbType.Time, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Relative_Humidity", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Relative_Humidity", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Temperature", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Temperature", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Data", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Data", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Time", Global.System.Data.SqlDbType.Time, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Time", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Relative_Humidity", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Relative_Humidity", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Temperature", Global.System.Data.SqlDbType.Real, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Temperature", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT Data, Time, Relative_Humidity, Temperature FROM dbo.table_Physical_Environ" & + Me._commandCollection(0).CommandText = "SELECT Data, Time, Relative_Humidity, Temperature FROM dbo.table_Physical_Environ"& _ "ment" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable = New NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Physical_EnvironmentDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Physical_Environment") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Insert(ByVal Data As Global.System.Nullable(Of Date), ByVal Time As Global.System.Nullable(Of Global.System.TimeSpan), ByVal Relative_Humidity As Global.System.Nullable(Of Single), ByVal Temperature As Global.System.Nullable(Of Single)) As Integer - If (Data.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(0).Value = CType(Data.Value, Date) + + _ + Public Overloads Overridable Function Insert(ByVal Data As Global.System.Nullable(Of Date), ByVal Time As Global.System.Nullable(Of Global.System.TimeSpan), ByVal Relative_Humidity As Global.System.Nullable(Of Single), ByVal Temperature As Global.System.Nullable(Of Single)) As Integer + If (Data.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Data.Value,Date) Else Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value End If - If (Time.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(1).Value = CType(Time.Value, System.TimeSpan) + If (Time.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Time.Value,System.TimeSpan) Else Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value End If - If (Relative_Humidity.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Relative_Humidity.Value, Single) + If (Relative_Humidity.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Relative_Humidity.Value,Single) Else Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value End If - If (Temperature.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Temperature.Value, Single) + If (Temperature.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Temperature.Value,Single) Else Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -29811,38 +29809,38 @@ Namespace NAA_DB_EXPDataSetTableAdapters End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_Received_ByTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -29851,9 +29849,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -29875,15 +29873,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -29895,23 +29893,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -29920,9 +29918,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -29931,9 +29929,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -29942,80 +29940,80 @@ Namespace NAA_DB_EXPDataSetTableAdapters tableMapping.ColumnMappings.Add("Received_By", "Received_By") Me._adapter.TableMappings.Add(tableMapping) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT Received_By" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM table_Received_By" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY Received_By" + Me._commandCollection(0).CommandText = "SELECT Received_By"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM table_Received_By"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Received_By" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Received_ByDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Received_ByDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_Received_ByDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_Received_ByDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_Received_ByDataTable = New NAA_DB_EXPDataSet.table_Received_ByDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_Sample_PreparationTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30024,9 +30022,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30048,15 +30046,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30068,23 +30066,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30093,9 +30091,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30104,9 +30102,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30122,108 +30120,108 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Sample_Preparation] ([Cleaning], [Drying], [Evaporation]" & - ", [Freeze_Drying], [Homogenizing], [Pelletization], [Fragmentation]) VALUES (@Cl" & - "eaning, @Drying, @Evaporation, @Freeze_Drying, @Homogenizing, @Pelletization, @F" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [dbo].[table_Sample_Preparation] ([Cleaning], [Drying], [Evaporation]"& _ + ", [Freeze_Drying], [Homogenizing], [Pelletization], [Fragmentation]) VALUES (@Cl"& _ + "eaning, @Drying, @Evaporation, @Freeze_Drying, @Homogenizing, @Pelletization, @F"& _ "ragmentation)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cleaning", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Cleaning", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Drying", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Drying", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Evaporation", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Evaporation", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Freeze_Drying", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Freeze_Drying", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Homogenizing", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Homogenizing", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pelletization", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pelletization", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fragmentation", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fragmentation", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Cleaning", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Cleaning", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Drying", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Drying", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Evaporation", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Evaporation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Freeze_Drying", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Freeze_Drying", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Homogenizing", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Homogenizing", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Pelletization", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Pelletization", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Fragmentation", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Fragmentation", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT Cleaning, Drying, Evaporation, Freeze_Drying, Homogenizing, Pelletization," & + Me._commandCollection(0).CommandText = "SELECT Cleaning, Drying, Evaporation, Freeze_Drying, Homogenizing, Pelletization,"& _ " Fragmentation FROM dbo.table_Sample_Preparation" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable = New NAA_DB_EXPDataSet.table_Sample_PreparationDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_PreparationDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Sample_Preparation") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Insert(ByVal Cleaning As Boolean, ByVal Drying As Boolean, ByVal Evaporation As Boolean, ByVal Freeze_Drying As Boolean, ByVal Homogenizing As Boolean, ByVal Pelletization As Boolean, ByVal Fragmentation As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(Cleaning, Boolean) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(Drying, Boolean) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Evaporation, Boolean) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Freeze_Drying, Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(Homogenizing, Boolean) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(Pelletization, Boolean) - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Fragmentation, Boolean) + + _ + Public Overloads Overridable Function Insert(ByVal Cleaning As Boolean, ByVal Drying As Boolean, ByVal Evaporation As Boolean, ByVal Freeze_Drying As Boolean, ByVal Homogenizing As Boolean, ByVal Pelletization As Boolean, ByVal Fragmentation As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Cleaning,Boolean) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Drying,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Evaporation,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Freeze_Drying,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Homogenizing,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Pelletization,Boolean) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Fragmentation,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -30233,38 +30231,38 @@ Namespace NAA_DB_EXPDataSetTableAdapters End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class table_Sample_SetTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -30273,9 +30271,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -30297,15 +30295,15 @@ Namespace NAA_DB_EXPDataSetTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -30317,23 +30315,23 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -30342,9 +30340,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -30353,9 +30351,9 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -30372,236 +30370,236 @@ Namespace NAA_DB_EXPDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [table_Sample_Set] WHERE (([Country_Code] = @Original_Country_Code) A" & - "ND ([Client_ID] = @Original_Client_ID) AND ([Year] = @Original_Year) AND ([Sampl" & - "e_Set_ID] = @Original_Sample_Set_ID) AND ([Sample_Set_Index] = @Original_Sample_" & - "Set_Index) AND ((@IsNull_Sample_Set_Receipt_Date = 1 AND [Sample_Set_Receipt_Dat" & - "e] IS NULL) OR ([Sample_Set_Receipt_Date] = @Original_Sample_Set_Receipt_Date)) " & - "AND ((@IsNull_Sample_Set_Report_Date = 1 AND [Sample_Set_Report_Date] IS NULL) O" & - "R ([Sample_Set_Report_Date] = @Original_Sample_Set_Report_Date)) AND ((@IsNull_R" & - "eceived_By = 1 AND [Received_By] IS NULL) OR ([Received_By] = @Original_Received" & + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [table_Sample_Set] WHERE (([Country_Code] = @Original_Country_Code) A"& _ + "ND ([Client_ID] = @Original_Client_ID) AND ([Year] = @Original_Year) AND ([Sampl"& _ + "e_Set_ID] = @Original_Sample_Set_ID) AND ([Sample_Set_Index] = @Original_Sample_"& _ + "Set_Index) AND ((@IsNull_Sample_Set_Receipt_Date = 1 AND [Sample_Set_Receipt_Dat"& _ + "e] IS NULL) OR ([Sample_Set_Receipt_Date] = @Original_Sample_Set_Receipt_Date)) "& _ + "AND ((@IsNull_Sample_Set_Report_Date = 1 AND [Sample_Set_Report_Date] IS NULL) O"& _ + "R ([Sample_Set_Report_Date] = @Original_Sample_Set_Report_Date)) AND ((@IsNull_R"& _ + "eceived_By = 1 AND [Received_By] IS NULL) OR ([Received_By] = @Original_Received"& _ "_By)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Report_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Received_By", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Report_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Received_By", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [table_Sample_Set] ([Country_Code], [Client_ID], [Year], [Sample_Set_" & - "ID], [Sample_Set_Index], [Sample_Set_Receipt_Date], [Sample_Set_Report_Date], [R" & - "eceived_By]) VALUES (@Country_Code, @Client_ID, @Year, @Sample_Set_ID, @Sample_S" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO [table_Sample_Set] ([Country_Code], [Client_ID], [Year], [Sample_Set_"& _ + "ID], [Sample_Set_Index], [Sample_Set_Receipt_Date], [Sample_Set_Report_Date], [R"& _ + "eceived_By]) VALUES (@Country_Code, @Client_ID, @Year, @Sample_Set_ID, @Sample_S"& _ "et_Index, @Sample_Set_Receipt_Date, @Sample_Set_Report_Date, @Received_By)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [table_Sample_Set] SET [Country_Code] = @Country_Code, [Client_ID] = @Clie" & - "nt_ID, [Year] = @Year, [Sample_Set_ID] = @Sample_Set_ID, [Sample_Set_Index] = @S" & - "ample_Set_Index, [Sample_Set_Receipt_Date] = @Sample_Set_Receipt_Date, [Sample_S" & - "et_Report_Date] = @Sample_Set_Report_Date, [Received_By] = @Received_By WHERE ((" & - "[Country_Code] = @Original_Country_Code) AND ([Client_ID] = @Original_Client_ID)" & - " AND ([Year] = @Original_Year) AND ([Sample_Set_ID] = @Original_Sample_Set_ID) A" & - "ND ([Sample_Set_Index] = @Original_Sample_Set_Index) AND ((@IsNull_Sample_Set_Re" & - "ceipt_Date = 1 AND [Sample_Set_Receipt_Date] IS NULL) OR ([Sample_Set_Receipt_Da" & - "te] = @Original_Sample_Set_Receipt_Date)) AND ((@IsNull_Sample_Set_Report_Date =" & - " 1 AND [Sample_Set_Report_Date] IS NULL) OR ([Sample_Set_Report_Date] = @Origina" & - "l_Sample_Set_Report_Date)) AND ((@IsNull_Received_By = 1 AND [Received_By] IS NU" & + Me._adapter.UpdateCommand.CommandText = "UPDATE [table_Sample_Set] SET [Country_Code] = @Country_Code, [Client_ID] = @Clie"& _ + "nt_ID, [Year] = @Year, [Sample_Set_ID] = @Sample_Set_ID, [Sample_Set_Index] = @S"& _ + "ample_Set_Index, [Sample_Set_Receipt_Date] = @Sample_Set_Receipt_Date, [Sample_S"& _ + "et_Report_Date] = @Sample_Set_Report_Date, [Received_By] = @Received_By WHERE (("& _ + "[Country_Code] = @Original_Country_Code) AND ([Client_ID] = @Original_Client_ID)"& _ + " AND ([Year] = @Original_Year) AND ([Sample_Set_ID] = @Original_Sample_Set_ID) A"& _ + "ND ([Sample_Set_Index] = @Original_Sample_Set_Index) AND ((@IsNull_Sample_Set_Re"& _ + "ceipt_Date = 1 AND [Sample_Set_Receipt_Date] IS NULL) OR ([Sample_Set_Receipt_Da"& _ + "te] = @Original_Sample_Set_Receipt_Date)) AND ((@IsNull_Sample_Set_Report_Date ="& _ + " 1 AND [Sample_Set_Report_Date] IS NULL) OR ([Sample_Set_Report_Date] = @Origina"& _ + "l_Sample_Set_Report_Date)) AND ((@IsNull_Received_By = 1 AND [Received_By] IS NU"& _ "LL) OR ([Received_By] = @Original_Received_By)))" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Report_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Received_By", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Country_Code", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Country_Code", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Client_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Client_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Year", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Year", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_ID", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Index", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Index", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Receipt_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Receipt_Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Sample_Set_Report_Date", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Sample_Set_Report_Date", Global.System.Data.SqlDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Sample_Set_Report_Date", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_Received_By", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_Received_By", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "Received_By", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.NaaDB.My.Settings.Default.NAA_DB_EXPConnectionString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample" & - "_Set_Receipt_Date, Sample_Set_Report_Date, Received_By" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM table_Sampl" & - "e_Set" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY Year, Sample_Set_ID" + Me._commandCollection(0).CommandText = "SELECT Country_Code, Client_ID, Year, Sample_Set_ID, Sample_Set_Index, Sample"& _ + "_Set_Receipt_Date, Sample_Set_Report_Date, Received_By"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM table_Sampl"& _ + "e_Set"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Year, Sample_Set_ID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT Client_ID, Country_Code, Notes_1, Notes_2, Notes_3, Received_By, Sample_Se" & - "t_ID, Sample_Set_Index, Sample_Set_Receipt_Date, Sample_Set_Report_Date, Year FR" & + Me._commandCollection(1).CommandText = "SELECT Client_ID, Country_Code, Notes_1, Notes_2, Notes_3, Received_By, Sample_Se"& _ + "t_ID, Sample_Set_Index, Sample_Set_Receipt_Date, Sample_Set_Report_Date, Year FR"& _ "OM table_Sample_Set ORDER BY Year, Sample_Set_ID" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As NAA_DB_EXPDataSet.table_Sample_SetDataTable + + _ + Public Overloads Overridable Function GetData() As NAA_DB_EXPDataSet.table_Sample_SetDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable = New NAA_DB_EXPDataSet.table_Sample_SetDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Fill_Sample_Set(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer + + _ + Public Overloads Overridable Function Fill_Sample_Set(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (Me.ClearBeforeFill = True) Then + If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData_Sample_Set() As NAA_DB_EXPDataSet.table_Sample_SetDataTable + + _ + Public Overloads Overridable Function GetData_Sample_Set() As NAA_DB_EXPDataSet.table_Sample_SetDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) Dim dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable = New NAA_DB_EXPDataSet.table_Sample_SetDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As NAA_DB_EXPDataSet.table_Sample_SetDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As NAA_DB_EXPDataSet) As Integer Return Me.Adapter.Update(dataSet, "table_Sample_Set") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Delete(ByVal Original_Country_Code As String, ByVal Original_Client_ID As String, ByVal Original_Year As String, ByVal Original_Sample_Set_ID As String, ByVal Original_Sample_Set_Index As String, ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Original_Received_By As String) As Integer + + _ + Public Overloads Overridable Function Delete(ByVal Original_Country_Code As String, ByVal Original_Client_ID As String, ByVal Original_Year As String, ByVal Original_Sample_Set_ID As String, ByVal Original_Sample_Set_Index As String, ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Original_Received_By As String) As Integer If (Original_Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Country_Code") Else - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Country_Code, String) + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Country_Code,String) End If If (Original_Client_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Client_ID") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Client_ID, String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_Client_ID,String) End If If (Original_Year Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Year") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Year, String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Year,String) End If If (Original_Sample_Set_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Sample_Set_ID") Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Sample_Set_ID, String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_Sample_Set_ID,String) End If If (Original_Sample_Set_Index Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Sample_Set_Index") Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Sample_Set_Index, String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Sample_Set_Index,String) End If - If (Original_Sample_Set_Receipt_Date.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Sample_Set_Receipt_Date.Value, Date) + If (Original_Sample_Set_Receipt_Date.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Sample_Set_Receipt_Date.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value End If - If (Original_Sample_Set_Report_Date.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Sample_Set_Report_Date.Value, Date) + If (Original_Sample_Set_Report_Date.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Sample_Set_Report_Date.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_Received_By Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Received_By, String) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Received_By,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally @@ -30610,58 +30608,58 @@ Namespace NAA_DB_EXPDataSetTableAdapters End If End Try End Function - - - Public Overridable Overloads Function Insert(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String, ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Received_By As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal Country_Code As String, ByVal Client_ID As String, ByVal Year As String, ByVal Sample_Set_ID As String, ByVal Sample_Set_Index As String, ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Received_By As String) As Integer If (Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_Code") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(Country_Code, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Country_Code,String) End If If (Client_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Client_ID") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(Client_ID, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Client_ID,String) End If If (Year Is Nothing) Then Throw New Global.System.ArgumentNullException("Year") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(Year, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Year,String) End If If (Sample_Set_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Sample_Set_ID") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(Sample_Set_ID, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Sample_Set_ID,String) End If If (Sample_Set_Index Is Nothing) Then Throw New Global.System.ArgumentNullException("Sample_Set_Index") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(Sample_Set_Index, String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Sample_Set_Index,String) End If - If (Sample_Set_Receipt_Date.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(Sample_Set_Receipt_Date.Value, Date) + If (Sample_Set_Receipt_Date.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Sample_Set_Receipt_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If - If (Sample_Set_Report_Date.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(Sample_Set_Report_Date.Value, Date) + If (Sample_Set_Report_Date.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Sample_Set_Report_Date.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Received_By Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(Received_By, String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Received_By,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally @@ -30670,120 +30668,120 @@ Namespace NAA_DB_EXPDataSetTableAdapters End If End Try End Function - - - Public Overridable Overloads Function Update( - ByVal Country_Code As String, - ByVal Client_ID As String, - ByVal Year As String, - ByVal Sample_Set_ID As String, - ByVal Sample_Set_Index As String, - ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), - ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), - ByVal Received_By As String, - ByVal Original_Country_Code As String, - ByVal Original_Client_ID As String, - ByVal Original_Year As String, - ByVal Original_Sample_Set_ID As String, - ByVal Original_Sample_Set_Index As String, - ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), - ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), + + _ + Public Overloads Overridable Function Update( _ + ByVal Country_Code As String, _ + ByVal Client_ID As String, _ + ByVal Year As String, _ + ByVal Sample_Set_ID As String, _ + ByVal Sample_Set_Index As String, _ + ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), _ + ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), _ + ByVal Received_By As String, _ + ByVal Original_Country_Code As String, _ + ByVal Original_Client_ID As String, _ + ByVal Original_Year As String, _ + ByVal Original_Sample_Set_ID As String, _ + ByVal Original_Sample_Set_Index As String, _ + ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), _ + ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), _ ByVal Original_Received_By As String) As Integer If (Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Country_Code") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Country_Code, String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Country_Code,String) End If If (Client_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Client_ID") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Client_ID, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Client_ID,String) End If If (Year Is Nothing) Then Throw New Global.System.ArgumentNullException("Year") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Year, String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Year,String) End If If (Sample_Set_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Sample_Set_ID") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Sample_Set_ID, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Sample_Set_ID,String) End If If (Sample_Set_Index Is Nothing) Then Throw New Global.System.ArgumentNullException("Sample_Set_Index") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Sample_Set_Index, String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Sample_Set_Index,String) End If - If (Sample_Set_Receipt_Date.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Sample_Set_Receipt_Date.Value, Date) + If (Sample_Set_Receipt_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Sample_Set_Receipt_Date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If - If (Sample_Set_Report_Date.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Sample_Set_Report_Date.Value, Date) + If (Sample_Set_Report_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Sample_Set_Report_Date.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (Received_By Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Received_By, String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Received_By,String) End If If (Original_Country_Code Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Country_Code") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Country_Code, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Country_Code,String) End If If (Original_Client_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Client_ID") Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Client_ID, String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_Client_ID,String) End If If (Original_Year Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Year") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Year, String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Year,String) End If If (Original_Sample_Set_ID Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Sample_Set_ID") Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Sample_Set_ID, String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_Sample_Set_ID,String) End If If (Original_Sample_Set_Index Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_Sample_Set_Index") Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Sample_Set_Index, String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Sample_Set_Index,String) End If - If (Original_Sample_Set_Receipt_Date.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Sample_Set_Receipt_Date.Value, Date) + If (Original_Sample_Set_Receipt_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Sample_Set_Receipt_Date.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If - If (Original_Sample_Set_Report_Date.HasValue = True) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Sample_Set_Report_Date.Value, Date) + If (Original_Sample_Set_Report_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Sample_Set_Report_Date.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (Original_Received_By Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1, Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0, Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Received_By, String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Received_By,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally @@ -30792,12 +30790,12 @@ Namespace NAA_DB_EXPDataSetTableAdapters End If End Try End Function - - - Public Overridable Overloads Function Update(ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Received_By As String, ByVal Original_Country_Code As String, ByVal Original_Client_ID As String, ByVal Original_Year As String, ByVal Original_Sample_Set_ID As String, ByVal Original_Sample_Set_Index As String, ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Original_Received_By As String) As Integer + + _ + Public Overloads Overridable Function Update(ByVal Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Received_By As String, ByVal Original_Country_Code As String, ByVal Original_Client_ID As String, ByVal Original_Year As String, ByVal Original_Sample_Set_ID As String, ByVal Original_Sample_Set_Index As String, ByVal Original_Sample_Set_Receipt_Date As Global.System.Nullable(Of Date), ByVal Original_Sample_Set_Report_Date As Global.System.Nullable(Of Date), ByVal Original_Received_By As String) As Integer Return Me.Update(Original_Country_Code, Original_Client_ID, Original_Year, Original_Sample_Set_ID, Original_Sample_Set_Index, Sample_Set_Receipt_Date, Sample_Set_Report_Date, Received_By, Original_Country_Code, Original_Client_ID, Original_Year, Original_Sample_Set_ID, Original_Sample_Set_Index, Original_Sample_Set_Receipt_Date, Original_Sample_Set_Report_Date, Original_Received_By) End Function End Class diff --git a/NAA_DB.vbproj b/NAA_DB.vbproj index 7b16b8c..a48d646 100755 --- a/NAA_DB.vbproj +++ b/NAA_DB.vbproj @@ -15,7 +15,7 @@ NaaDB 512 WindowsForms - v4.7 + v4.6.1 false @@ -145,6 +145,9 @@ packages\CredentialManagement.Standard.1.0.4\lib\netstandard2.0\CredentialManagement.dll + + packages\CsvHelper.12.2.1\lib\net45\CsvHelper.dll + packages\DeltaCompressionDotNet.1.1.0\lib\net20\DeltaCompressionDotNet.dll @@ -164,6 +167,51 @@ packages\FastMember.1.3.0\lib\net40\FastMember.dll + + packages\Microsoft.EntityFrameworkCore.2.2.6\lib\netstandard2.0\Microsoft.EntityFrameworkCore.dll + + + packages\Microsoft.EntityFrameworkCore.Abstractions.2.2.6\lib\netstandard2.0\Microsoft.EntityFrameworkCore.Abstractions.dll + + + packages\Microsoft.EntityFrameworkCore.Relational.2.2.6\lib\netstandard2.0\Microsoft.EntityFrameworkCore.Relational.dll + + + packages\Microsoft.EntityFrameworkCore.SqlServer.2.2.6\lib\netstandard2.0\Microsoft.EntityFrameworkCore.SqlServer.dll + + + packages\Microsoft.Extensions.Caching.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Caching.Abstractions.dll + + + packages\Microsoft.Extensions.Caching.Memory.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Caching.Memory.dll + + + packages\Microsoft.Extensions.Configuration.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Configuration.dll + + + packages\Microsoft.Extensions.Configuration.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Configuration.Abstractions.dll + + + packages\Microsoft.Extensions.Configuration.Binder.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Configuration.Binder.dll + + + packages\Microsoft.Extensions.DependencyInjection.2.2.0\lib\net461\Microsoft.Extensions.DependencyInjection.dll + + + packages\Microsoft.Extensions.DependencyInjection.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.DependencyInjection.Abstractions.dll + + + packages\Microsoft.Extensions.Logging.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Logging.dll + + + packages\Microsoft.Extensions.Logging.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Logging.Abstractions.dll + + + packages\Microsoft.Extensions.Options.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Options.dll + + + packages\Microsoft.Extensions.Primitives.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Primitives.dll + packages\Mono.Cecil.0.9.6.1\lib\net45\Mono.Cecil.dll @@ -179,6 +227,9 @@ packages\squirrel.windows.1.9.1\lib\Net45\NuGet.Squirrel.dll + + packages\Remotion.Linq.2.2.0\lib\net45\Remotion.Linq.dll + packages\SSH.NET.2016.1.0\lib\net40\Renci.SshNet.dll @@ -193,20 +244,44 @@ + + packages\System.Buffers.4.4.0\lib\netstandard2.0\System.Buffers.dll + + + packages\System.Collections.Immutable.1.5.0\lib\netstandard2.0\System.Collections.Immutable.dll + packages\System.ComponentModel.Annotations.4.5.0\lib\net461\System.ComponentModel.Annotations.dll - True + + packages\System.Data.SqlClient.4.6.1\lib\net461\System.Data.SqlClient.dll + + + packages\System.Diagnostics.DiagnosticSource.4.5.0\lib\net46\System.Diagnostics.DiagnosticSource.dll + packages\System.Drawing.Common.4.5.1\lib\net461\System.Drawing.Common.dll + + packages\System.Interactive.Async.3.2.0\lib\net46\System.Interactive.Async.dll + + + packages\System.Memory.4.5.1\lib\netstandard2.0\System.Memory.dll + + + + packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll + + + packages\System.Runtime.CompilerServices.Unsafe.4.5.1\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll + packages\System.Security.AccessControl.4.5.0\lib\net461\System.Security.AccessControl.dll @@ -218,6 +293,11 @@ + + packages\System.ValueTuple.4.4.0\lib\net461\System.ValueTuple.dll + True + True + diff --git a/packages.config b/packages.config index e276971..0911f04 100755 --- a/packages.config +++ b/packages.config @@ -3,18 +3,47 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file