rekan2,
saya memiliki satu gridview dengan beberapa button di dalamnya. pada saat meng "klik"button pertama (view) pesan error tidka muncul, namun ketika button kedua (approval) error tersebut muncul.
berikut source error :
Source Error:
Line 50: 'Dim row As GridViewRow = gvSOLeaveIP.Rows(e.CommandArgument) Line 51: Dim index As Integer = Convert.ToInt32(e.CommandArgument) Line 52: Dim row As GridViewRow = gvSOLeaveIP.Rows(index) Line 53: Dim obj As New LeaveWeb Line 54: Dim objEISDetail As New clsBusinessEis |
berikut scriptnya :
Protected Sub gvSOLeaveIP_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvSOLeaveIP.RowCommand
'Dim row As GridViewRow = gvSOLeaveIP.Rows(e.CommandArgument)
Select Case e.CommandName
Case "btnView"
Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Dim row As GridViewRow = gvSOLeaveIP.Rows(index)
Session("lrid") = row.Cells(1).Text
Session("iType") = 1
'Response.Redirect("view_leave.aspx")
Dim _URL As String
Dim JavaScript As String
_URL = "view_leave.aspx"
JavaScript = "window.open('" + _URL + "', null, 'resizable=yes,height=700,width=700, left=(screen.availWidth-700)/2, top=(screen.availHeight-600)/2, status=yes,toolbar=no,menubar=no')"
Response.Write("<SCRIPT LANGUAGE=javascript>" & vbCrLf)
Response.Write("<!--" & vbCrLf)
Response.Write(JavaScript & vbCrLf)
Response.Write("//-->" & vbCrLf)
Response.Write("</SCRIPT>" & vbCrLf)
Case "cmdprv"
'Dim row As GridViewRow = gvSOLeaveIP.Rows(e.CommandArgument)
Dim index As Integer = Convert.ToInt32(e.CommandArgument)
Dim row As GridViewRow = gvSOLeaveIP.Rows(index)
Dim obj As New LeaveWeb
Dim objEISDetail As New clsBusinessEis
Dim dr As SqlDataReader
Dim dra As SqlDataReader
obj.eno = row.Cells(2).Text
obj.fda = row.Cells(5).Text
obj.fdw = row.Cells(6).Text
obj.lrid = row.Cells(1).Text
obj.stt = 1
dr = objEISDetail.InsertLeave(obj)
dra = objEISDetail.UpdateLeaveStatus(obj)
gvSOLeaveIP.DataBind()
End Select
End Sub
mohon bantuan dari rekan2.
terima kasih