Click here to Skip to main content
15,881,803 members
Articles / Programming Languages / Visual Basic

TeamVision

Rate me:
Please Sign up or sign in to vote.
3.08/5 (11 votes)
16 Nov 2009CPL3 min read 83.8K   5.4K   69  
A simple project task management application. A managed approach to help keep on top of your projects.
'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.3082
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml

Namespace Schema
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class DisplayRow
        Inherits DataRow
        
        Private m_DisplayTable As DisplayTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.m_DisplayTable = CType(Me.Table,DisplayTable)
        End Sub
        
        Public Property DisplayID() As Integer
            Get
                Return CType(Me(Me.m_DisplayTable.DisplayIDColumn),Integer)
            End Get
            Set
                Me(Me.m_DisplayTable.DisplayIDColumn) = value
            End Set
        End Property
        
        Public Property Description() As String
            Get
                Return CType(Me(Me.m_DisplayTable.DescriptionColumn),String)
            End Get
            Set
                Me(Me.m_DisplayTable.DescriptionColumn) = value
            End Set
        End Property
        
        Public Property Name() As String
            Get
                Return CType(Me(Me.m_DisplayTable.NameColumn),String)
            End Get
            Set
                Me(Me.m_DisplayTable.NameColumn) = value
            End Set
        End Property
        
        Public Function IsDisplayIDColumnNull() As Boolean
            Return Me.IsNull(Me.m_DisplayTable.DisplayIDColumn)
        End Function
        
        Public Function IsDescriptionColumnNull() As Boolean
            Return Me.IsNull(Me.m_DisplayTable.DescriptionColumn)
        End Function
        
        Public Function IsNameColumnNull() As Boolean
            Return Me.IsNull(Me.m_DisplayTable.NameColumn)
        End Function
        
        Public Sub SetDisplayIDColumnNull()
            Me(Me.m_DisplayTable.DisplayIDColumn) = System.Convert.DBNull
        End Sub
        
        Public Sub SetDescriptionColumnNull()
            Me(Me.m_DisplayTable.DescriptionColumn) = System.Convert.DBNull
        End Sub
        
        Public Sub SetNameColumnNull()
            Me(Me.m_DisplayTable.NameColumn) = System.Convert.DBNull
        End Sub
    End Class
End Namespace

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Common Public License Version 1.0 (CPL)


Written By
Founder Arkitech EBC Corporation
United States United States
MS, BBA, software developer, consultant, and trainer. Specializing in building data-centric applications designed for business, university, community & faith based organizations. Started developing Excel VBA macros and never looked back. Freelance developer utilizing VB.Net, SQL Server, Microsoft Access, and ASP.Net.

Comments and Discussions