?? dataset1.vb
字號:
Get
Return Me.column生產(chǎn)車間
End Get
End Property
Public Default ReadOnly Property Item(ByVal index As Integer) As 物料主文件Row
Get
Return CType(Me.Rows(index),物料主文件Row)
End Get
End Property
Public Event 物料主文件RowChanged As 物料主文件RowChangeEventHandler
Public Event 物料主文件RowChanging As 物料主文件RowChangeEventHandler
Public Event 物料主文件RowDeleted As 物料主文件RowChangeEventHandler
Public Event 物料主文件RowDeleting As 物料主文件RowChangeEventHandler
Public Overloads Sub Add物料主文件Row(ByVal row As 物料主文件Row)
Me.Rows.Add(row)
End Sub
Public Overloads Function Add物料主文件Row( _
ByVal 物料編號 As String, _
ByVal 條碼 As String, _
ByVal 物料名稱 As String, _
ByVal 拼音編碼 As String, _
ByVal 計量單位 As String, _
ByVal 規(guī)格型號 As String, _
ByVal 計劃類別 As String, _
ByVal 狀態(tài)類別 As String, _
ByVal 歸屬類別 As String, _
ByVal 價值類別 As String, _
ByVal 物料特性a As String, _
ByVal 物料特性b As String, _
ByVal 物料特性c As String, _
ByVal 物料特性d As String, _
ByVal 長 As Decimal, _
ByVal 寬 As Decimal, _
ByVal 高 As Decimal, _
ByVal 凈重 As Decimal, _
ByVal 品牌 As String, _
ByVal 顏色 As String, _
ByVal 等級 As String, _
ByVal 進貨提前期 As Integer, _
ByVal 準(zhǔn)備周期 As Integer, _
ByVal 生產(chǎn)周期 As Integer, _
ByVal 最小包裝量 As Decimal, _
ByVal 最低銷售量 As Decimal, _
ByVal 批量 As Decimal, _
ByVal 最高庫存 As Decimal, _
ByVal 最低庫存 As Decimal, _
ByVal 庫存期限 As Integer, _
ByVal 錄入者 As String, _
ByVal 錄入日期 As Integer, _
ByVal 低層碼 As Integer, _
ByVal 指定供貨商 As String, _
ByVal 定貨策略 As String, _
ByVal 生產(chǎn)車間 As String) As 物料主文件Row
Dim row物料主文件Row As 物料主文件Row = CType(Me.NewRow,物料主文件Row)
row物料主文件Row.ItemArray = New Object() {物料編號, 條碼, 物料名稱, 拼音編碼, 計量單位, 規(guī)格型號, 計劃類別, 狀態(tài)類別, 歸屬類別, 價值類別, 物料特性a, 物料特性b, 物料特性c, 物料特性d, 長, 寬, 高, 凈重, 品牌, 顏色, 等級, 進貨提前期, 準(zhǔn)備周期, 生產(chǎn)周期, 最小包裝量, 最低銷售量, 批量, 最高庫存, 最低庫存, 庫存期限, 錄入者, 錄入日期, 低層碼, 指定供貨商, 定貨策略, 生產(chǎn)車間}
Me.Rows.Add(row物料主文件Row)
Return row物料主文件Row
End Function
Public Function FindBy物料編號(ByVal 物料編號 As String) As 物料主文件Row
Return CType(Me.Rows.Find(New Object() {物料編號}),物料主文件Row)
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
Public Overrides Function Clone() As DataTable
Dim cln As 物料主文件DataTable = CType(MyBase.Clone,物料主文件DataTable)
cln.InitVars
Return cln
End Function
Protected Overrides Function CreateInstance() As DataTable
Return New 物料主文件DataTable
End Function
Friend Sub InitVars()
Me.column物料編號 = Me.Columns("物料編號")
Me.column條碼 = Me.Columns("條碼")
Me.column物料名稱 = Me.Columns("物料名稱")
Me.column拼音編碼 = Me.Columns("拼音編碼")
Me.column計量單位 = Me.Columns("計量單位")
Me.column規(guī)格型號 = Me.Columns("規(guī)格型號")
Me.column計劃類別 = Me.Columns("計劃類別")
Me.column狀態(tài)類別 = Me.Columns("狀態(tài)類別")
Me.column歸屬類別 = Me.Columns("歸屬類別")
Me.column價值類別 = Me.Columns("價值類別")
Me.column物料特性a = Me.Columns("物料特性a")
Me.column物料特性b = Me.Columns("物料特性b")
Me.column物料特性c = Me.Columns("物料特性c")
Me.column物料特性d = Me.Columns("物料特性d")
Me.column長 = Me.Columns("長")
Me.column寬 = Me.Columns("寬")
Me.column高 = Me.Columns("高")
Me.column凈重 = Me.Columns("凈重")
Me.column品牌 = Me.Columns("品牌")
Me.column顏色 = Me.Columns("顏色")
Me.column等級 = Me.Columns("等級")
Me.column進貨提前期 = Me.Columns("進貨提前期")
Me.column準(zhǔn)備周期 = Me.Columns("準(zhǔn)備周期")
Me.column生產(chǎn)周期 = Me.Columns("生產(chǎn)周期")
Me.column最小包裝量 = Me.Columns("最小包裝量")
Me.column最低銷售量 = Me.Columns("最低銷售量")
Me.column批量 = Me.Columns("批量")
Me.column最高庫存 = Me.Columns("最高庫存")
Me.column最低庫存 = Me.Columns("最低庫存")
Me.column庫存期限 = Me.Columns("庫存期限")
Me.column錄入者 = Me.Columns("錄入者")
Me.column錄入日期 = Me.Columns("錄入日期")
Me.column低層碼 = Me.Columns("低層碼")
Me.column指定供貨商 = Me.Columns("指定供貨商")
Me.column定貨策略 = Me.Columns("定貨策略")
Me.column生產(chǎn)車間 = Me.Columns("生產(chǎn)車間")
End Sub
Private Sub InitClass()
Me.column物料編號 = New DataColumn("物料編號", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料編號)
Me.column條碼 = New DataColumn("條碼", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column條碼)
Me.column物料名稱 = New DataColumn("物料名稱", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料名稱)
Me.column拼音編碼 = New DataColumn("拼音編碼", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column拼音編碼)
Me.column計量單位 = New DataColumn("計量單位", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column計量單位)
Me.column規(guī)格型號 = New DataColumn("規(guī)格型號", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column規(guī)格型號)
Me.column計劃類別 = New DataColumn("計劃類別", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column計劃類別)
Me.column狀態(tài)類別 = New DataColumn("狀態(tài)類別", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column狀態(tài)類別)
Me.column歸屬類別 = New DataColumn("歸屬類別", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column歸屬類別)
Me.column價值類別 = New DataColumn("價值類別", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column價值類別)
Me.column物料特性a = New DataColumn("物料特性a", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料特性a)
Me.column物料特性b = New DataColumn("物料特性b", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料特性b)
Me.column物料特性c = New DataColumn("物料特性c", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料特性c)
Me.column物料特性d = New DataColumn("物料特性d", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column物料特性d)
Me.column長 = New DataColumn("長", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column長)
Me.column寬 = New DataColumn("寬", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column寬)
Me.column高 = New DataColumn("高", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column高)
Me.column凈重 = New DataColumn("凈重", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column凈重)
Me.column品牌 = New DataColumn("品牌", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column品牌)
Me.column顏色 = New DataColumn("顏色", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column顏色)
Me.column等級 = New DataColumn("等級", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column等級)
Me.column進貨提前期 = New DataColumn("進貨提前期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column進貨提前期)
Me.column準(zhǔn)備周期 = New DataColumn("準(zhǔn)備周期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column準(zhǔn)備周期)
Me.column生產(chǎn)周期 = New DataColumn("生產(chǎn)周期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column生產(chǎn)周期)
Me.column最小包裝量 = New DataColumn("最小包裝量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column最小包裝量)
Me.column最低銷售量 = New DataColumn("最低銷售量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column最低銷售量)
Me.column批量 = New DataColumn("批量", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column批量)
Me.column最高庫存 = New DataColumn("最高庫存", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column最高庫存)
Me.Columns.Add(Me.column最低庫存)
Me.column庫存期限 = New DataColumn("庫存期限", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column庫存期限)
Me.column錄入者 = New DataColumn("錄入者", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column錄入者)
Me.column錄入日期 = New DataColumn("錄入日期", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column錄入日期)
Me.column低層碼 = New DataColumn("低層碼", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column低層碼)
Me.column指定供貨商 = New DataColumn("指定供貨商", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column指定供貨商)
Me.column定貨策略 = New DataColumn("定貨策略", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column定貨策略)
Me.column生產(chǎn)車間 = New DataColumn("生產(chǎn)車間", GetType(System.String), Nothing, System.Data.MappingType.Element)
Me.Columns.Add(Me.column生產(chǎn)車間)
Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column物料編號}, true))
Me.column物料編號.AllowDBNull = false
Me.column物料編號.Unique = true
Me.column物料名稱.AllowDBNull = false
Me.column計量單位.AllowDBNull = false
End Sub
Public Function New物料主文件Row() As 物料主文件Row
Return CType(Me.NewRow,物料主文件Row)
End Function
Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
Return New 物料主文件Row(builder)
End Function
Protected Overrides Function GetRowType() As System.Type
Return GetType(物料主文件Row)
End Function
Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.物料主文件RowChangedEvent) Is Nothing) Then
RaiseEvent 物料主文件RowChanged(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
End If
End Sub
Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.物料主文件RowChangingEvent) Is Nothing) Then
RaiseEvent 物料主文件RowChanging(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.物料主文件RowDeletedEvent) Is Nothing) Then
RaiseEvent 物料主文件RowDeleted(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
End If
End Sub
Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.物料主文件RowDeletingEvent) Is Nothing) Then
RaiseEvent 物料主文件RowDeleting(Me, New 物料主文件RowChangeEvent(CType(e.Row,物料主文件Row), e.Action))
End If
End Sub
Public Sub Remove物料主文件Row(ByVal row As 物料主文件Row)
Me.Rows.Remove(row)
End Sub
End Class
<System.Diagnostics.DebuggerStepThrough()> _
Public Class 物料主文件Row
Inherits DataRow
Private table物料主文件 As 物料主文件DataTable
Friend Sub New(ByVal rb As DataRowBuilder)
MyBase.New(rb)
Me.table物料主文件 = CType(Me.Table,物料主文件DataTable)
End Sub
Public Property 物料編號 As String
Get
Return CType(Me(Me.table物料主文件.物料編號Column),String)
End Get
Set
Me(Me.table物料主文件.物料編號Column) = value
End Set
End Property
Public Property 條碼 As String
Get
Try
Return CType(Me(Me.table物料主文件.條碼Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("無法獲取值,因為它是 DBNull。", e)
End Try
End Get
Set
Me(Me.table物料主文件.條碼Column) = value
End Set
End Property
Public Property 物料名稱 As String
Get
Return CType(Me(Me.table物料主文件.物料名稱Column),String)
End Get
Set
Me(Me.table物料主文件.物料名稱Column) = value
End Set
End Property
Public Property 拼音編碼 As String
Get
Try
Return CType(Me(Me.table物料主文件.拼音編碼Column),String)
Catch e As InvalidCastException
Throw New StrongTypingException("無法獲取值,因為它是 DBNull。", e)
End Try
End Get
Set
Me(Me.table物料主文件.拼音編碼Column) = value
End Set
End Property
Public Property 計量單位 As String
Get
Return CType(Me(Me.table物料主文件.計量單位Column),String)
End Get
Set
Me(Me.table物料主文件.計量單位Column) = value
End Set
End Property
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -