I am getting the error below that I do not understand. The field ID does exist as a PrimaryKey in an Access database.System.ArgumentException was unhandled by user code
Message="Column 'ID' does not belong to table tblCertHolders."
Source="System.Data"
StackTrace:
at System.Data.DataRow.GetDataColumn(String columnName)
at System.Data.DataRow.get_Item(String columnName)
at FMLCertHolderConversion.boCertHolders.get_ID() in D:\FMLCertHolderConversion\FMLCertHolderConversion\boCertHolders.Designer.vb:line 239
at FMLCertHolderConversion.boCertHolders.Field_ID_Descriptor.GetValue(Object component) in D:\FMLCertHolderConversion\FMLCertHolderConversion\boCertHolders.Designer.vb:line 735
at MicroFour.StrataFrame.Business.BusinessLayer.get_Item(String FieldName)
at MicroFour.StrataFrame.UI.Windows.Forms.ListView.CreateListViewItem(BusinessLayer BusinessObject)
at MicroFour.StrataFrame.UI.Windows.Forms.ListView.PopulateListView(Object[] Parameters)
at MicroFour.StrataFrame.UI.Windows.Forms.ListView.InitializeObject()
at MicroFour.StrataFrame.UI.Windows.Forms.BaseForm.InitializeFormLoadObjects()
at MicroFour.StrataFrame.UI.Windows.Forms.BaseForm.BaseForm_Load(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Here is the code that causes the error.
<Browsable(
False), _
BusinessFieldDisplayInEditor(), _
Description("ID"), _
DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
Public Property [ID]() As System.Int32
Get
Dim loRow As DataRow
loRow = Me.CurrentRow
If loRow.RowState = DataRowState.Deleted Then
Return CType(loRow.Item("ID", DataRowVersion.Original), System.Int32)
Else
Return CType(loRow.Item("ID"), System.Int32)
End If
End Get
Set(ByVal value As System.Int32)
Me.CurrentRow.Item("ID") = value
End SetEnd Property