?? producingview.aspx.vb
字號:
Imports OrderDll
Partial Class ProducingView
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim strId As String
strId = Me.Request.QueryString("PID")
strId = strId.Replace("'", "''")
If strId <> "" Then
ProcductInit(strId)
ViewInit(strId)
End If
Me.ProductControl1.strType = "VIEW"
End Sub
Private Sub ViewInit(ByVal id As String)
Dim dsProduce As New Data.DataSet
Dim cp As New ClassProducing
Dim count As Integer
If cp.ViewByID(dsProduce, id) = False Then
With dsProduce.Tables(0)
For count = 0 To .Rows.Count - 1
TableProducing.Controls.Add(GenrateRow( _
.Rows(count).Item(0), _
.Rows(count).Item(1)) _
)
Next
End With
Else
End If
End Sub
Private Sub ProcductInit(ByVal id As String)
End Sub
Private Function GenrateRow(ByVal dt As String, ByVal number As Integer) As TableRow
Dim tr As New TableRow
Dim tc As TableCell
tc = New TableCell
tc.Text = dt
tr.Controls.Add(tc)
tc = New TableCell
tc.Text = number.ToString()
tr.Controls.Add(tc)
Return tr
End Function
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -