001.Imports System.Data.SqlClient
002.
003.Public Class WebForm1
004. Inherits System.Web.UI.Page
005.
006. Dim objConn As SqlConnection
007. Dim objCmd As SqlCommand
008. Dim strConnString, strSQL, strFields As String
009. Dim dtAdapter As SqlDataAdapter
010. Dim ds As DataSet
011. Dim dt As DataTable
012.
013. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
014.
015. If Not IsPostBack Then
016. DropDownRawMaterialType()
017. GridViewRawMaterial()
018. End If
019.
020. End Sub
021.
022. Public Sub ConnectDB()
023.
024. strConnString = ConfigurationManager.ConnectionStrings("con").ConnectionString
025. objConn = New SqlConnection(strConnString)
026.
027. End Sub
028.
029. Private Sub GridViewRawMaterial()
030.
031.
032. ConnectDB()
033.
034. strSQL = "SELECT RM.RM_RKEY, RMT.RMT_NAME, RM.RM_NAME FROM RawMaterial AS RM
035. INNER JOIN RawMaterialType AS RMT ON RMT.RMT_RKEY = RM.RMT_RKEY
036. ORDER BY RMT.RMT_NAME, RM.RM_NAME"
037. dtAdapter = New SqlDataAdapter(strSQL, objConn)
038. ds = New DataSet()
039.
040. objConn.Open()
041. dtAdapter.Fill(ds)
042. objConn.Close()
043.
044. gvLoadRM.DataSource = ds
045. gvLoadRM.DataBind()
046.
047. End Sub
048.
049. Function DropDownRawMaterialType() As DataTable
050.
051. ConnectDB()
052.
053. strSQL = "SELECT RMT_RKEY, RMT_NAME FROM RawMaterialType"
054. dtAdapter = New SqlDataAdapter(strSQL, objConn)
055. dt = New DataTable
056.
057. objConn.Open()
058. dtAdapter.Fill(dt)
059. objConn.Close()
060.
061. ddlLoadRMT.DataSource = dt
062. ddlLoadRMT.DataTextField = "RMT_NAME"
063. ddlLoadRMT.DataValueField = "RMT_RKEY"
064. ddlLoadRMT.DataBind()
065. ddlLoadRMT.Items.Insert(0, New ListItem("กรุณาเลือกประเภทวัตถุดิบ", "0"))
066.
067. ddlLoadRMT.SelectedIndex = ddlLoadRMT.Items.IndexOf(ddlLoadRMT.Items.FindByValue("0"))
068.
069. Return dt
070.
071. End Function
072.
073. Private Sub gvLoadRM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvLoadRM.RowDataBound
074.
075. If e.Row.RowType = DataControlRowType.DataRow Then
076. If (e.Row.RowState And DataControlRowState.Edit) > 0 Then
077. Dim ddlRMTName As DropDownList = CType(e.Row.FindControl("ddlEditRMTName"), DropDownList)
078. If Not IsNothing(ddlRMTName) Then
079. ddlRMTName.DataSource = DropDownRawMaterialType()
080. ddlRMTName.DataTextField = "RMT_NAME"
081. ddlRMTName.DataValueField = "RMT_RKEY"
082. ddlRMTName.DataBind()
083.
084. Dim use As String = e.Row.DataItem("RMT_NAME")
085. ddlRMTName.SelectedValue = use
086.
087. Label4.Text = use
088. End If
089. End If
090. End If
091.
092. End Sub
093.
094. Private Sub gvLoadRM_PageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles gvLoadRM.PageIndexChanging
095.
096. gvLoadRM.PageIndex = e.NewPageIndex
097. GridViewRawMaterial()
098.
099. End Sub
100.
101. Private Sub gvLoadRM_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles gvLoadRM.RowEditing
102.
103. gvLoadRM.EditIndex = e.NewEditIndex
104. GridViewRawMaterial()
105.
106. End Sub
107.
108. Private Sub gvLoadRM_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles gvLoadRM.RowCancelingEdit
109.
110. gvLoadRM.EditIndex = -1
111. GridViewRawMaterial()
112.
113. End Sub
114.
115.End Class
