001.
Imports
System.Data.SqlClient
002.
Imports
System.Data
003.
Partial
Class
webpage10
004.
Inherits
System.Web.UI.Page
005.
006.
Protected
Sub
Page_Load(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Me
.Load
007.
If
Not
IsPostBack
Then
008.
Dim
CurrYear
As
Integer
= DateTime.Today.Year
009.
ddl_Year.Items.Add((CurrYear - 1).ToString())
010.
ddl_Year.Items.Add(CurrYear.ToString())
011.
ddl_Year.Items.Add((CurrYear + 1).ToString())
012.
ddl_Year.Items.Add((CurrYear + 2).ToString())
013.
014.
Dim
CurrDay
As
DateTime = DateTime.Today
015.
ddl_Day.SelectedValue = (CurrDay.Day).ToString()
016.
ddl_Month.SelectedValue = (CurrDay.Month).ToString()
017.
ddl_Year.SelectedValue = (CurrDay.Year).ToString()
018.
019.
020.
021.
End
If
022.
End
Sub
023.
024.
Protected
Overrides
Sub
Finalize()
025.
MyBase
.Finalize()
026.
End
Sub
027.
028.
Protected
Sub
GetData()
029.
Dim
CondStr
As
String
=
""
030.
If
txt_Search.Text <>
""
Then
031.
CondStr =
" and (a.G_memberID like '"
& txt_Search.Text &
"%' OR a.G_borrowName like '"
& txt_Search.Text &
"%')"
032.
End
If
033.
034.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
035.
Dim
conn
As
New
SqlConnection(connStr)
036.
conn.Open()
037.
038.
039.
Dim
da
As
New
SqlDataAdapter(
"select a.*,b.H_FileName from Table_borrow a "
& _
040.
" join Table_device b on(b.H_deviceID=a.G_deviceID) where 1=1 "
& CondStr, conn)
041.
Dim
ds
As
New
DataSet()
042.
da.Fill(ds)
043.
conn.Close()
044.
045.
GridView1.DataSource = ds
046.
GridView1.DataBind()
047.
048.
txt_Count.Text = GridView1.Rows.Count.ToString()
049.
End
Sub
050.
051.
Protected
Sub
Button1_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
052.
GetData()
053.
054.
End
Sub
055.
056.
Protected
Sub
Btn_Add_Click(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
Btn_Add.Click
057.
If
Trim(txt_G_deviceID.Text) =
""
Then
058.
lbl_G_memberID.Visible =
True
059.
txt_G_deviceID.Focus()
060.
Return
061.
End
If
062.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
063.
Dim
conn
As
New
SqlConnection(connStr)
064.
Dim
cmd
As
New
SqlCommand()
065.
cmd.CommandText =
"INSERT INTO Table_borrow(G_memberID,G_borrowName,G_deviceID, G_deviceID1,G_deviceID2,G_deviceID3,G_deviceID4,G_storeName, G_storeName1,G_storeName2,G_storeName3,G_storeName4, G_numberTel,G_gowhere,G_borrowDate,G_Date,G_FileName)"
& _
066.
" VALUES(@G_memberID,@G_borrowName,@G_deviceID,@G_deviceID1, @G_deviceID2,@G_deviceID3,@G_deviceID4,@G_storeName,@G_storeName1, @G_storeName2,@G_storeName3,@G_storeName4,@G_numberTel, @G_Gowhere,@G_borrowDate,@G_Date,@G_FileName) "
067.
068.
cmd.Parameters.Add(
"@G_memberID"
, SqlDbType.VarChar).Value = txt_G_memberID.Text
069.
cmd.Parameters.Add(
"@G_borrowName"
, SqlDbType.VarChar).Value = txt_G_borrowName.Text
070.
cmd.Parameters.Add(
"@G_deviceID"
, SqlDbType.VarChar).Value = txt_G_deviceID.Text
071.
cmd.Parameters.Add(
"@G_deviceID1"
, SqlDbType.VarChar).Value = txt_G_deviceID1.Text
072.
cmd.Parameters.Add(
"@G_deviceID2"
, SqlDbType.VarChar).Value = txt_G_deviceID2.Text
073.
cmd.Parameters.Add(
"@G_deviceID3"
, SqlDbType.VarChar).Value = txt_G_deviceID3.Text
074.
cmd.Parameters.Add(
"@G_deviceID4"
, SqlDbType.VarChar).Value = txt_G_deviceID4.Text
075.
cmd.Parameters.Add(
"@G_storeName"
, SqlDbType.VarChar).Value = txt_G_storeName.Text
076.
cmd.Parameters.Add(
"@G_storeName1"
, SqlDbType.VarChar).Value = txt_G_storeName1.Text
077.
cmd.Parameters.Add(
"@G_storeName2"
, SqlDbType.VarChar).Value = txt_G_storeName2.Text
078.
cmd.Parameters.Add(
"@G_storeName3"
, SqlDbType.VarChar).Value = txt_G_storeName3.Text
079.
cmd.Parameters.Add(
"@G_storeName4"
, SqlDbType.VarChar).Value = txt_G_storeName4.Text
080.
cmd.Parameters.Add(
"@G_numberTel"
, SqlDbType.VarChar).Value = txt_G_numberTel.Text
081.
cmd.Parameters.Add(
"@G_Gowhere"
, SqlDbType.VarChar).Value = txt_G_gowhere.Text
082.
cmd.Parameters.Add(
"@G_borrowDate"
, SqlDbType.VarChar).Value = (Convert.ToDateTime(ddl_Day.SelectedValue &
"/"
& ddl_Month.SelectedValue &
"/"
& ddl_Year.SelectedValue))
083.
cmd.Parameters.Add(
"@G_Date"
, SqlDbType.DateTime).Value = DateTime.Now
084.
085.
If
Me
.FileUpload1.HasFile
Then
086.
Me
.FileUpload1.SaveAs(Server.MapPath(
"Picture/"
& FileUpload1.FileName))
087.
cmd.Parameters.Add(
"@G_FileName"
, SqlDbType.VarChar).Value =
"Picture/"
& FileUpload1.PostedFile.FileName
088.
Else
089.
cmd.Parameters.Add(
"@G_FileName"
, SqlDbType.VarChar).Value =
""
090.
End
If
091.
092.
093.
cmd.Connection = conn
094.
conn.Open()
095.
cmd.ExecuteNonQuery()
096.
conn.Close()
097.
Response.Redirect(
"ข้อมูลการยืม.aspx"
)
098.
GetData()
099.
End
Sub
100.
101.
Protected
Sub
GridView1_RowCancelingEdit(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewCancelEditEventArgs)
Handles
GridView1.RowCancelingEdit
102.
GridView1.EditIndex = -1
103.
GetData()
104.
End
Sub
105.
106.
Protected
Sub
GridView1_RowEditing(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewEditEventArgs)
Handles
GridView1.RowEditing
107.
GridView1.EditIndex = e.NewEditIndex
108.
GetData()
109.
End
Sub
110.
111.
Protected
Sub
GridView1_RowUpdating(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewUpdateEventArgs)
Handles
GridView1.RowUpdating
112.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
113.
Dim
conn
As
New
SqlConnection(connStr)
114.
Dim
cmd
As
New
SqlCommand()
115.
cmd.CommandText =
" UPDATE Table_borrow set G_memberID=@G_memberID, G_borrowName=@G_borrowName, G_deviceID=@G_deviceID,G_deviceID1=@G_deviceID1,G_deviceID2=@G_deviceID2, G_deviceID3=@G_deviceID3,G_deviceID4=@G_deviceID4,G_storeName=@G_storeName, G_storeName1=@G_storeName1,G_storeName2=@G_storeName2,G_storeName3=@G_storeName3, G_storeName4=@G_storeName4,G_numberTel=@G_numberTel,G_Gowhere=@G_Gowhere, G_borrowDate=@G_borrowDate,G_Date=@G_Date "
& _
116.
" where G_memberID=@memberID "
117.
118.
cmd.Parameters.Add(
"@G_memberID"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_memberID"
), TextBox).Text
119.
cmd.Parameters.Add(
"@G_borrowName"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_borrowName"
), TextBox).Text
120.
121.
cmd.Parameters.Add(
"@G_deviceID"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_deviceID"
), TextBox).Text
122.
cmd.Parameters.Add(
"@G_deviceID1"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_deviceID1"
), TextBox).Text
123.
cmd.Parameters.Add(
"@G_deviceID2"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_deviceID2"
), TextBox).Text
124.
cmd.Parameters.Add(
"@G_deviceID3"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_deviceID3"
), TextBox).Text
125.
cmd.Parameters.Add(
"@G_deviceID4"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_deviceID4"
), TextBox).Text
126.
cmd.Parameters.Add(
"@G_storeName"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_storeName"
), TextBox).Text
127.
cmd.Parameters.Add(
"@G_storeName1"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_storeName1"
), TextBox).Text
128.
cmd.Parameters.Add(
"@G_storeName2"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_storeName2"
), TextBox).Text
129.
cmd.Parameters.Add(
"@G_storeName3"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_storeName3"
), TextBox).Text
130.
cmd.Parameters.Add(
"@G_storeName4"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_storeName4"
), TextBox).Text
131.
cmd.Parameters.Add(
"@G_numberTel"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_numberTel"
), TextBox).Text
132.
cmd.Parameters.Add(
"@G_Gowhere"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_Gowhere"
), TextBox).Text
133.
cmd.Parameters.Add(
"@G_borrowDate"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_borrowDate"
), TextBox).Text
134.
cmd.Parameters.Add(
"@G_Date"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"txt_G_Date"
), TextBox).Text
135.
136.
cmd.Parameters.Add(
"@memberID"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"hf_G_memberID"
), HiddenField).Value
137.
138.
139.
cmd.Connection = conn
140.
conn.Open()
141.
cmd.ExecuteNonQuery()
142.
conn.Close()
143.
144.
GridView1.EditIndex = -1
145.
GetData()
146.
End
Sub
147.
148.
Protected
Sub
GridView1_RowDeleting(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewDeleteEventArgs)
Handles
GridView1.RowDeleting
149.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
150.
Dim
conn
As
New
SqlConnection(connStr)
151.
Dim
cmd
As
New
SqlCommand()
152.
cmd.CommandText =
" DELETE FROM Table_borrow "
& _
153.
" where G_memberID=@memberID "
154.
155.
cmd.Parameters.Add(
"@memberID"
, SqlDbType.VarChar).Value =
CType
(GridView1.Rows(e.RowIndex).FindControl(
"lbl_G_memberID"
), Label).Text
156.
157.
cmd.Connection = conn
158.
conn.Open()
159.
cmd.ExecuteNonQuery()
160.
conn.Close()
161.
162.
GetData()
163.
End
Sub
164.
165.
Protected
Sub
GridView1_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
GridView1.SelectedIndexChanged
166.
Response.Redirect(
"wf_reportborrow.aspx?borrowID="
& GridView1.SelectedDataKey.Value)
167.
End
Sub
168.
169.
Protected
Sub
ddl_Month_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
ddl_Month.SelectedIndexChanged
170.
171.
End
Sub
172.
173.
Private
Sub
getData2(
ByVal
user
As
String
)
174.
175.
Dim
table
As
New
DataTable()
176.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
177.
Dim
conn
As
New
SqlConnection(connStr)
178.
conn.Open()
179.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_member where A_memberID = @memberID "
, conn)
180.
181.
182.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
183.
184.
185.
sqlCmd.Parameters.AddWithValue(
"@memberID"
, user)
186.
sqlCmd.Parameters.AddWithValue(
"@deviceID"
, user)
187.
sqlDa.Fill(table)
188.
If
table.Rows.Count > 0
Then
189.
txt_G_borrowName.Text = table.Rows(0)(
"A_membernameL"
).ToString()
190.
txt_G_numberTel.Text = table.Rows(0)(
"A_MemberTel"
).ToString()
191.
192.
Else
193.
194.
MsgBox(
"คุณใส่รหัสบุคลากรไม่ถูกต้อง"
, 48,
"Warnning"
)
195.
End
If
196.
197.
198.
199.
200.
conn.Close()
201.
202.
End
Sub
203.
204.
205.
206.
Protected
Sub
txt_G_memberID_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_memberID.TextChanged
207.
getData2(txt_G_memberID.Text)
208.
End
Sub
209.
210.
Protected
Sub
txt_G_numberTel_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_numberTel.TextChanged
211.
212.
End
Sub
213.
214.
Private
Sub
getData3(
ByVal
user
As
String
)
215.
216.
Dim
table
As
New
DataTable()
217.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
218.
Dim
conn
As
New
SqlConnection(connStr)
219.
conn.Open()
220.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_device where H_deviceID = @deviceID"
, conn)
221.
222.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
223.
224.
sqlCmd.Parameters.AddWithValue(
"@deviceID"
, user)
225.
sqlDa.Fill(table)
226.
If
table.Rows.Count > 0
Then
227.
txt_G_storeName.Text = table.Rows(0)(
"H_storeName"
).ToString()
228.
Else
229.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
230.
231.
End
If
232.
233.
234.
conn.Close()
235.
236.
End
Sub
237.
238.
Protected
Sub
txt_G_storeName_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_storeName.TextChanged
239.
240.
End
Sub
241.
242.
Protected
Sub
txt_G_deviceID_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID.TextChanged
243.
getData3(txt_G_deviceID.Text)
244.
End
Sub
245.
246.
247.
248.
249.
Private
Sub
getData4(
ByVal
user
As
String
)
250.
Dim
table
As
New
DataTable()
251.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
252.
Dim
conn
As
New
SqlConnection(connStr)
253.
conn.Open()
254.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_device where H_deviceID = @G_deviceID1"
, conn)
255.
256.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
257.
258.
sqlCmd.Parameters.AddWithValue(
"@G_deviceID1"
, user)
259.
sqlDa.Fill(table)
260.
If
table.Rows.Count > 0
Then
261.
txt_G_storeName1.Text = table.Rows(0)(
"H_storeName"
).ToString()
262.
Else
263.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
264.
265.
End
If
266.
conn.Close()
267.
End
Sub
268.
269.
270.
Protected
Sub
TextBox2_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID1.TextChanged
271.
getData4(txt_G_deviceID1.Text)
272.
End
Sub
273.
274.
275.
Private
Sub
getData5(
ByVal
user
As
String
)
276.
Dim
table
As
New
DataTable()
277.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
278.
Dim
conn
As
New
SqlConnection(connStr)
279.
conn.Open()
280.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_device where H_deviceID = @G_deviceID2"
, conn)
281.
282.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
283.
284.
sqlCmd.Parameters.AddWithValue(
"@G_deviceID2"
, user)
285.
sqlDa.Fill(table)
286.
If
table.Rows.Count > 0
Then
287.
txt_G_storeName2.Text = table.Rows(0)(
"H_storeName"
).ToString()
288.
289.
Else
290.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
291.
End
If
292.
conn.Close()
293.
294.
End
Sub
295.
296.
Protected
Sub
TextBox3_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID2.TextChanged
297.
getData5(txt_G_deviceID2.Text)
298.
299.
End
Sub
300.
301.
Private
Sub
getData6(
ByVal
user
As
String
)
302.
Dim
table
As
New
DataTable()
303.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
304.
Dim
conn
As
New
SqlConnection(connStr)
305.
conn.Open()
306.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_device where H_deviceID = @G_deviceID3"
, conn)
307.
308.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
309.
310.
sqlCmd.Parameters.AddWithValue(
"@G_deviceID3"
, user)
311.
sqlDa.Fill(table)
312.
If
table.Rows.Count > 0
Then
313.
txt_G_storeName3.Text = table.Rows(0)(
"H_storeName"
).ToString()
314.
315.
Else
316.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
317.
318.
End
If
319.
conn.Close()
320.
321.
322.
End
Sub
323.
324.
Protected
Sub
TextBox4_DataBinding(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID3.DataBinding
325.
326.
End
Sub
327.
328.
Protected
Sub
TextBox4_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID3.TextChanged
329.
getData6(txt_G_deviceID3.Text)
330.
331.
End
Sub
332.
333.
Private
Sub
getData7(
ByVal
user
As
String
)
334.
Dim
table
As
New
DataTable()
335.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
336.
Dim
conn
As
New
SqlConnection(connStr)
337.
conn.Open()
338.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from Table_device where H_deviceID = @G_deviceID4"
, conn)
339.
340.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
341.
342.
sqlCmd.Parameters.AddWithValue(
"@G_deviceID4"
, user)
343.
sqlDa.Fill(table)
344.
If
table.Rows.Count > 0
Then
345.
txt_G_storeName4.Text = table.Rows(0)(
"H_storeName"
).ToString()
346.
347.
Else
348.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
349.
End
If
350.
conn.Close()
351.
352.
End
Sub
353.
354.
355.
Protected
Sub
TextBox5_TextChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
txt_G_deviceID4.TextChanged
356.
getData7(txt_G_deviceID4.Text)
357.
358.
359.
End
Sub
360.
361.
Protected
Sub
ddl_member_SelectedIndexChanged(
ByVal
sender
As
Object
,
ByVal
e
As
System.EventArgs)
Handles
ddl_member.SelectedIndexChanged
362.
getData2(ddl_member.SelectedValue)
363.
364.
End
Sub
365.
366.
367.
Private
Sub
getData8(
ByVal
user
As
String
)
368.
Dim
table
As
New
DataTable()
369.
Dim
connStr
As
String
= ConfigurationManager.ConnectionStrings(
"testConnectionString"
).ConnectionString.ToString()
370.
Dim
conn
As
New
SqlConnection(connStr)
371.
conn.Open()
372.
Dim
sqlCmd
As
New
SqlCommand(
"SELECT * from from Table_member where A_memberID = @memberID "
, conn)
373.
374.
Dim
sqlDa
As
New
SqlDataAdapter(sqlCmd)
375.
376.
sqlCmd.Parameters.AddWithValue(
"@A_memberID"
, user)
377.
sqlDa.Fill(table)
378.
If
table.Rows.Count > 0
Then
379.
txt_G_storeName.Text = table.Rows(0)(
"H_storeName"
).ToString()
380.
381.
Else
382.
MsgBox(
"คุณใส่รหัสครุภัณฑ์ไม่ถูกต้อง"
, 48,
"Warnning"
)
383.
End
If
384.
conn.Close()
385.
386.
End
Sub
387.
388.
389.
Protected
Sub
GridView1_RowCommand(
ByVal
sender
As
Object
,
ByVal
e
As
System.Web.UI.WebControls.GridViewCommandEventArgs)
Handles
GridView1.RowCommand
390.
If
e.CommandName =
"SendReturn"
Then
391.
Dim
row
As
GridViewRow = GridView1.Rows(e.CommandArgument)
392.
Response.Redirect(
"webpage11.aspx?BowrowID="
& GridView1.DataKeys(row.RowIndex).Value)
393.
End
If
394.
End
Sub
395.
End
Class