I am trying to update Date01 in the resource table from the resource scheduling board. I keep gettin an error(Update of Resource not allowed) I have done this many times before with other tables so I am not sure what could be wrong. Here is my code, maybe I am just having a moment:
Dim SchedControl As EpiDataView = Ctype(oTrans.EpiDataViews("SchedControl"),EpiDataView)
Dim resourceID As String = SchedControl.dataView(SchedControl.Row)("ResourceID")
Dim ResourceAdapt As ResourceAdapter = New ResourceAdapter(ResourceSchedForm)
ResourceAdapt.BOConnect()
Dim Resource As Boolean = ResourceAdapt.GetByID(resourceID)
ResourceAdapt.ResourceData.Tables("Resource").Rows(0)("Date01") = dteEpiCustom1.Value
ResourceAdapt.ResourceData.Tables("Resource").Rows(0)("Number01") = nedEpiCustom1.Value
ResourceAdapt.Update()
ResourceAdapt.Dispose()
Dim SchedControl As EpiDataView = Ctype(oTrans.EpiDataViews("SchedControl"),EpiDataView)
Dim resourceID As String = SchedControl.dataView(SchedControl.Row)("ResourceID")
Dim ResourceAdapt As ResourceAdapter = New ResourceAdapter(ResourceSchedForm)
ResourceAdapt.BOConnect()
Dim Resource As Boolean = ResourceAdapt.GetByID(resourceID)
ResourceAdapt.ResourceData.Tables("Resource").Rows(0)("Date01") = dteEpiCustom1.Value
ResourceAdapt.ResourceData.Tables("Resource").Rows(0)("Number01") = nedEpiCustom1.Value
ResourceAdapt.Update()
ResourceAdapt.Dispose()