分享使用微軟開發工具及工作上會遇到的疑難雜症
Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
While xLastNO_Str.Length < 4
xLastNO_Str= "0" + xLastNO_Str
End While
Dim xLastNO As Integer = 1
Dim xLastNO_Str As String
xLastNO_Str = Right("0000" + xLastNO.ToString() , 4)
Dim xLastNO As Integer = 1
Dim xLastNO_Str As String ＝ xLastNO.ToString("0000")
Dim query = From ii In db.Item_Inventory _
Select ii
Dim i As New IncrementerZeroBased
Return query.ToList().Select(Function(ii) New With {.NO = i.increment, _
.Loc = ii.ii_lc_ID, _
.Qty = ii.ii_Qty})
Dim query = (From ii In db.Item_Inventory _
Select ii).ToList()
Dim i As New IncrementerZeroBased
Return query.Select(Function(ii) New With {.NO = i.increment, _
.Loc = ii.ii_lc_ID, _
.Qty = ii.ii_Qty})
Public Class Item_InventoryBLL
Public Function Get_Items_Date() As IList
Using db As New ERPDataClassesDataContext
Dim query = From p In db.Item_Kinds _
Select p
Return query.ToList()
End Using
End Function
End Class
Public Class Item_InventoryBLL
Dim db As New ERPDataClassesDataContext
Public Function Get_Items_Date() As IList
Dim query = From p In db.Item_Kinds _
Select p
Return query.ToList()
End Function
End Class
