I changed the Null Value option on three columns from Return Alternate on Null to Return Alternate on Null / Set Null on Alternate (value type) and the generated code was missing an End If - see below:

''' <summary>

''' AGTSequ

''' </summary>

''' <remarks></remarks>

<Browsable(False), _

BusinessFieldDisplayInEditor(), _

Description("AGTSequ"), _

DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _

Public Property [AGTSequ]() As System.Int32

Get

Dim loValue As Object

loValue = Me.CurrentRow.Item("AGTSequ")

If loValue Is DBNull.Value Then

Return 1

Else

Return CType(loValue, System.Int32)

End If

End Get

Set(ByVal value As System.Int32)

If value <> 1 Then

Me.CurrentRow.Item("AGTSequ") = value

Else

Me.CurrentRow.Item("AGTSequ") = DBNull.Value

<----- missing end if here.

End Set

End Property

Cheers, Peter