LightBox ทำงานบ้างไม่ทำงานบ้างครับ หาสาเหตุไม่ได้ต้องการคำแนะนำ

<%@ Page Language="VB" MasterPageFile="~/WebStore.master" AutoEventWireup="false" CodeFile="material.aspx.vb" Inherits="material" title="WebStore-[Material]" %>

<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %>
   
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

    <script type="text/javascript" src="Scripts/jquery-1.4.1.js"></script>
    <script type="text/javascript" src="Scripts/jquery-1.4.1-vsdoc.js"></script> 
    <script type="text/javascript" src="Scripts/thickbox.js"></script> 
    <script type="text/javascript" src="Scripts/jquery-1.4.2.min.js"></script>
    <script type="text/javascript" src="Scripts/jconfirmaction.jquery.js"></script>


    <script language="javascript" type="text/javascript">
            var s1 = '<%=Msg%>';
            if(s1 !=""){
                alert(s1);
            }
   </script>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
    <tr>
        <td style="width:15%; height:auto" valign="top">
            <asp:Button ID="btnNewMat" runat="server" Text="เพิ่มชนิดอุปกรณ์" BackColor="#C0C0FF" BorderColor="#8080FF" BorderStyle="Solid" Width="100%" /><br /><hr />
            <asp:Button ID="btnAll" runat="server" Text="รายการอุปกรณ์" BackColor="#C0C0FF" BorderColor="#8080FF" BorderStyle="Solid" Width="100%"/><br /><hr />
            <asp:Button ID="btnRev" runat="server" Text="เพิ่มอุปกรณ์เข้า Stock" BackColor="#C0C0FF" BorderColor="#8080FF" BorderStyle="Solid" Width="100%"/><br /><hr />
            <asp:Button ID="btnHisRev" runat="server" Text="รายการรับอุปกรณ์" BackColor="#C0C0FF" BorderColor="#8080FF" BorderStyle="Solid" Width="100%"/>
        </td>
        
        <td style="width:100%; height:108px; background-color:#8DB6CD;" valign="middle" align="center" >
            <%--<asp:ScriptManager ID="ScriptManager1" runat="server" />--%>
            <cc1:ToolkitScriptManager ID="ToolkitScriptManager1" runat="server"></cc1:ToolkitScriptManager>
            <asp:UpdatePanel ID="UpdatePanel1" runat="server">
            <ContentTemplate>
            <asp:MultiView ID="MulV1" runat="server">
            
                <asp:View ID="v1" runat="server">
                    <asp:Label ID="lbl1" runat="server" Text="รายการอุปกรณ์" ForeColor="#DD0000"></asp:Label><br />
                
                    <asp:DataGrid ID="dg1" runat="server" AllowPaging="True" CellPadding="2" Font-Size="10pt" ForeColor="#333333" GridLines="Horizontal" AutoGenerateColumns="False">
                        <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                        <EditItemStyle BackColor="#2461BF" />
                        <SelectedItemStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
                        <PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" Mode="NumericPages" PageButtonCount="5" />
            
                        <Columns>
            
                            <asp:BoundColumn DataField="id_mat" HeaderText="รหัสอุปกรณ์" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle HorizontalAlign="Center"  Width="60pt"/>
                            </asp:BoundColumn>
               
                            <asp:BoundColumn DataField ="name_mat" HeaderText ="ชื่ออุปกรณ์">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="qty_mat" HeaderText ="จำนวนปัจจุบัน">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="70pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="lastmodify_in_mat" HeaderText ="เพิ่มเข้าล่าสุด">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="100pt" Height="20pt"/>
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="lastmodify_out_mat" HeaderText ="เบิกออกล่าสุด">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="id_emp" HeaderText ="ผู้เพิ่มข้อมูล">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="100pt" />
                            </asp:BoundColumn>
                            
                            
                            <asp:EditCommandColumn 
                                EditText="&lt;img src='images/edit.gif' border='0' alt='แก้ไข'&gt;"
                                CancelText="&lt;img src='images/cancel.gif' border='0' alt='ยกเลิก'&gt;" 
                                UpdateText="&lt;img src='images/ok.gif' border='0' alt='บันทึก'&gt;">
                                <ItemStyle HorizontalAlign="Center" Width="15px" />
                            </asp:EditCommandColumn>
                            
                            <%--<asp:EditCommandColumn 
                                EditText="&lt;img src='images/edit.gif' border='0' alt='แก้ไข'&gt;">
                                <ItemStyle HorizontalAlign="Center" Width="20px" />
                            </asp:EditCommandColumn>--%>
                    
                          <%--  <asp:ButtonColumn ButtonType="PushButton" Text="Delete" CommandName="Delete" >
                                <ItemStyle HorizontalAlign="Center" />
                            </asp:ButtonColumn>--%>
                            
                            <%-- <asp:TemplateColumn ItemStyle-Width="15px">
                                <ItemTemplate>
                                    <asp:ImageButton ID="imgEdit" runat="server"  CommandName="Edit" ImageAlign="Middle" ImageUrl="~/images/edit.gif" AlternateText="แก้ไข"/>
                                </ItemTemplate>
                            </asp:TemplateColumn>--%>
                                                       
                            <asp:TemplateColumn ItemStyle-Width="20px">
                                <ItemTemplate>
                                    <%--<asp:ImageButton ID="imgDetail" runat="server"  CommandName="Detail" ImageAlign="Middle" ImageUrl="~/images/detail.gif" AlternateText="รายละเอียด"  />--%>
                                    <asp:HyperLink ID="hplDetail" runat="server" ImageUrl="~/images/detail.gif" ToolTip="รายละเอียด"></asp:HyperLink>
                                </ItemTemplate>
                            </asp:TemplateColumn>
                            
                            <asp:TemplateColumn ItemStyle-Width="20px">
                                <ItemTemplate>
                                <asp:ImageButton ID="imgDel" runat="server"  CommandName="Delete" ImageAlign="Middle" ImageUrl="~/images/delete.gif" AlternateText="ลบข้อมูล" ToolTip="ลบข้อมูล"/>
                                </ItemTemplate>
                            </asp:TemplateColumn>
            
                        </Columns>
               
                        <AlternatingItemStyle BackColor="White" />
                        <ItemStyle BackColor="#EFF3FB" />
                        <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                    </asp:DataGrid>
                </asp:View>
                
                <asp:View ID="v2" runat="server">
                    <br />
                    <asp:Label ID="lbl2" runat="server" Text="เพิ่มอุปกรณ์เข้า Stock" ForeColor="#DD0000"></asp:Label><br />
                    
                    <br />
                   
                    <table border="1" cellpadding="0" cellspacing="5pt" style="text-align:left;">
                        <tbody>
                            
                            <tr>
                                <td align="left" >
                                    &nbsp;<asp:Label ID="Label2" runat="server" ForeColor="DarkBlue" Text="ชื่ออุปกรณ์  "></asp:Label>
                                </td>
                                <td align="left" style="width: auto">
                                    &nbsp;<asp:DropDownList ID="ddlmat" runat="server" ForeColor="darkblue" OnSelectedIndexChanged="ddlmat_SelectedIndexChanged" AutoPostBack="true" Width="263px"></asp:DropDownList>
                                </td>
                                
                                 <td align="left">
                                    &nbsp;<asp:Label ID="Label1" runat="server" ForeColor="DarkRed" Text="รหัสอุปกรณ์  "></asp:Label>
                                </td>
                                <td align="left" style="width: auto">
                                    &nbsp;<asp:TextBox ID="txtidmat" runat="server" ForeColor="DarkRed" Width="174px"></asp:TextBox>
                                </td>
                            </tr>
                            <tr >
                                <td align="left" >
                                    &nbsp;<asp:Label ID="Label3" runat="server" ForeColor="darkBlue" Text="เลขที่ใบส่ง  "></asp:Label>
                                </td>
                                <td align="left" style="width: auto">
                                    &nbsp;<asp:TextBox ID="txtcoderev" runat="server" Text="" ForeColor="darkred"  Width="257px" />
                                </td>
                                 <td align="left">
                                    &nbsp;<asp:Label ID="Label6" runat="server" ForeColor="darkBlue" Text="วันเวลาที่รับ  "></asp:Label>
                                </td>
                                <td align="left" style="width: auto">
                                   &nbsp;<asp:TextBox ID="txtdaterev" runat="server" ForeColor="darkred" Width="68px"/>&nbsp; เวลา <asp:TextBox ID="txttimerev" runat="server" ForeColor="darkBlue" Width="55px"></asp:TextBox>
                                    <%--<cc1:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="txtdaterev" PopupButtonID="txtdaterev" Format="dd/MM/yyyy" ></cc1:CalendarExtender>--%>
                                    <asp:RegularExpressionValidator ID="revTxtdaterev" runat="server" ControlToValidate="txtdaterev" Display="Dynamic" 
                                        ErrorMessage="ใส่วันที่ในรูปแบบ dd/MM/yyyy" ForeColor="Red" ValidationExpression="\d{2}/\d{2}/\d{4}"></asp:RegularExpressionValidator>
                                    <asp:RegularExpressionValidator ID="revTxttimerev" runat="server" ControlToValidate="txttimerev" Display="Dynamic" 
                                        ErrorMessage="ใส่เวลาในรูปแบบ HH:mm:ss" ForeColor="Red" ValidationExpression="\d{2}:\d{2}:\d{2}"></asp:RegularExpressionValidator>
                                    
                                    <asp:Panel ID="pp1" runat="server" CssClass="popControl">
	                                    <asp:Calendar ID="Calendar1" runat="server" BackColor="#FFFFCC" BorderColor="#FFCC66" DayNameFormat="Shortest" Font-Names="Verdana" Font-size="8pt"
	                                    ForeColor="#663399" Width="171px" BorderWidth="1px" Height="139px" ShowGridLines="True">
	                                    <SelectedDayStyle BackColor="#CCCCFF" Font-Bold="True" />
	                                    <TodayDayStyle BackColor="#FFCC66" ForeColor="White"/>
	                                    <SelectorStyle BackColor="#FFCC66" />
	                                    <OtherMonthDayStyle ForeColor="#CC9966" />
	                                    <NextPrevStyle Font-Size="9pt" ForeColor="#FFFFCC" />
	                                    <DayHeaderStyle BackColor="#FFCC66" Height="1px" Font-Bold="True" />
	                                    <TitleStyle BackColor="#990000" font-size="9pt" Font-Bold="True" ForeColor="#FFFFCC" />
	                                    </asp:Calendar>
                                    </asp:Panel>
                                    <cc1:PopupControlExtender ID="PopupControlExtender1" runat="server" TargetControlID="txtdaterev" Position="Bottom" PopupControlID="pp1"></cc1:PopupControlExtender>
                                </td>
                            </tr>
                            <tr>
                                <td align="left">
                                    &nbsp;<asp:Label ID="Label5" runat="server" ForeColor="darkBlue" Text="พนักงานที่รับ  "></asp:Label>
                                </td>
                                <td align="left" style="width:auto">
                                    &nbsp;<asp:DropDownList ID="ddlemprev" runat="server" ForeColor="DarkBlue" Width="263px"></asp:DropDownList>
                                </td>
                                <td align="left">
                                    &nbsp;<asp:Label ID="Label4" runat="server" ForeColor="darkBlue" Text="จำนวนที่รับ  "></asp:Label>
                                </td>
                                <td align="left" style="width:auto">
                                    &nbsp;<asp:TextBox ID="txtqtyrev" runat="server" Text="" ForeColor="darkred" Width="174px" />
                                </td>
                            </tr>
                            <tr>
                                <td align="left">
                                    &nbsp;<asp:Label ID="Label7" runat="server" ForeColor="darkBlue" Text="ผู้ส่ง  "></asp:Label>
                                </td>
                                <td align="left" style="width:auto">
                                    &nbsp;<asp:TextBox ID="txtfrom" runat="server" Text="" ForeColor="darkred" Width="257px" />
                                </td>
                                 <td align="left">
                                    &nbsp;<asp:Label ID="Label8" runat="server" ForeColor="DarkBlue" Text="Serial No.  " Visible="False"></asp:Label>
                                </td>
                                <td align="left" style="width:auto">
                                    &nbsp;<asp:TextBox ID="txtsn" runat="server" Text="" ForeColor="DarkBlue" Width="174px" Visible="False" />
                                </td>
                                
                            </tr>
                           
                           
                        </tbody>
                    </table>
  
                    <table width="75%">
                        <tr>
                            <td>
                                <asp:Label ID="lbRevStatus" runat="server" ForeColor="Red" Text="มีรายการอยู่แล้ว"
                                    Visible="False"></asp:Label>
                                <asp:Button ID="btnAddRev" runat="server" Text="เพิ่มรายการ" ForeColor="darkred" Width="100px" BorderColor="Green" BorderStyle="Solid" />
                            </td>
                            <td align="right">
                                <asp:Button ID="btnselall" runat="server" Text="เลือกทั้งหมด" ForeColor="darkred" Width="100px" OnClick="btnselall_Click" />
                                <asp:Button ID="btnunselall" runat="server" Text="ไม่เลือกทั้งหมด" ForeColor="darkred" Width="100px" OnClick="btnunselall_Click" />
                                <asp:Button ID="btnDelRev" runat="server" Text="ลบรายการที่เลือก" ForeColor="darkred" Width="100px" OnClick="btnDelRev_Click" BorderColor="Navy" BorderStyle="Solid" />
                            </td>
                        </tr>
                    </table>
                    <asp:DataGrid ID="dgRev" runat="server" AllowPaging="True" CellPadding="4" Font-Size="10pt" ForeColor="#333333" GridLines="None" AutoGenerateColumns="False" PageSize="20">
                        <FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
                        <EditItemStyle BackColor="#7C6F57" />
                        <SelectedItemStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
                        <PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" PageButtonCount="5" Mode="NumericPages" />
                         <Columns>
            
                            <asp:BoundColumn DataField="id_mat" HeaderText="รหัสอุปกรณ์" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle HorizontalAlign="Center"  Width="80pt"/>
                            </asp:BoundColumn>
               
                            <asp:BoundColumn DataField ="name_mat" HeaderText ="ชื่ออุปกรณ์" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="emp_rev" HeaderText ="ผู้รับของ" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="70pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="qty_mat" HeaderText ="จำนวน" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="100pt" Height="20pt"/>
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="date_mat" HeaderText ="วันที่รับ" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            
                            <asp:BoundColumn DataField ="mat_from" HeaderText ="จากบริษัท" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="100pt" />
                            </asp:BoundColumn>
                            
                             <asp:BoundColumn DataField ="rev_code_mat" HeaderText ="เลขที่ใบส่งของ" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="100pt" />
                            </asp:BoundColumn>
                                                        
                            <asp:TemplateColumn>
                                <ItemTemplate>
                                   <asp:CheckBox ID="ckbox" runat="server" />
                                </ItemTemplate>
                                <ItemStyle Width="20px" />
                            </asp:TemplateColumn>
                            
                             <asp:BoundColumn DataField="id_emp" HeaderText="id_emp" Visible="False"></asp:BoundColumn>
            
                        </Columns>
               
                        <AlternatingItemStyle BackColor="White" />
                        <ItemStyle BackColor="#E3EAEB" />
                        <HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
                    </asp:DataGrid>
                    <br />
                    <hr />
                    <asp:Button ID="btnSummitRev" Text="บันทึก" runat="server" Width="50pt" Height="20pt" /> &nbsp; &nbsp;
                    <asp:Button ID="btnCencelRev" Text="ยกเลิก" runat="server" Width="50pt" Height="20pt" /><br />
                    
                </asp:View>
                
                <asp:View ID="v3" runat="server">
                    <asp:Label ID="lbl3" runat="server" Text="รายการรับอุปกรณ์ย้อนหลัง" ForeColor="#DD0000"></asp:Label><br />
                    <br />
                    <label style="font-size:small">กำหนดรูปแบบการค้นหา</label>&nbsp;
                    <asp:DropDownList ID="ddlchoice" runat="server" OnSelectedIndexChanged="ddlchoice_SelectedIndexChanged" AutoPostBack="true">
                        <asp:ListItem>------ทั้งหมด------</asp:ListItem>
                        <asp:ListItem>รหัสอุปกรณ์</asp:ListItem>
                        <asp:ListItem>วันที่รับ</asp:ListItem>
                        <asp:ListItem>บริษัทผู้ส่ง</asp:ListItem>
                        <asp:ListItem>หมายเลขใบส่งของ</asp:ListItem>
                    </asp:DropDownList>&nbsp;
                    <label style="font-size:small">ระบุข้อมูล</label>&nbsp;
                    <asp:TextBox ID="txtHisSearch" runat="server" Text="" BorderStyle="Groove" ValidationGroup="ckSearch"></asp:TextBox>
                    <asp:button ID="btnHisSearch"  runat="server" Text="ค้นหา" ValidationGroup="ckSearch"/>
                    <asp:RequiredFieldValidator ID="RequiredFieldValidatorHis" runat="server" ControlToValidate="txtHisSearch" Display="dynamic" ErrorMessage="กรุณาระบุข้อมูลที่ต้องการค้นหา" ForeColor="red" ValidationGroup="ckSearch"/>
                    <br />
                    <br />
                    <table style="width:100%;">
                        <tr >
                            <td align="right">
                                <asp:Button ID="btnhisCheckall" Text="เลือกทั้งหมด" runat="server" />
                                <asp:Button ID="btnhisUncheclall" Text="ไม่เลือกทั้งหมด" runat="server" />&nbsp;
                                <asp:Button ID="btnhisDel" runat="server" Text="ลบรายการที่เลือก" ForeColor="darkred" Width="100px" BorderColor="Navy" BorderStyle="Solid" OnClick="btnhisDel_Click" />
                            </td>
                        </tr>
                    </table>
                    <asp:DataGrid ID="dgvhisrev" runat="server" AllowPaging="True" CellPadding="2" Font-Size="10pt"
                        ForeColor="#333333" GridLines="Horizontal" AutoGenerateColumns="False">
                        <FooterStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                        <EditItemStyle BackColor="#2461BF" />
                        <SelectedItemStyle BackColor="#D1DDF1" Font-Bold="True" ForeColor="#333333" />
                        <PagerStyle BackColor="#2461BF" ForeColor="White" HorizontalAlign="Center" Mode="NumericPages"
                        PageButtonCount="5" />
                        <Columns>
                            <asp:BoundColumn DataField="id_rev" HeaderText="ลำดับที่" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle HorizontalAlign="Center"  Width="70pt"/>
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField="id_mat" HeaderText="รหัสอุปกรณ์" ReadOnly="True">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle HorizontalAlign="Center"  Width="80pt"/>
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField ="name_mat" HeaderText ="ชื่ออุปกรณ์">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField ="qty_rev" HeaderText ="จำนวนที่รับ">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="70pt" />
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField ="fullname" HeaderText ="ผู้รับเข้า">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" Height="20pt"/>
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField ="date_rev" HeaderText ="วันที่รับ">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField ="from_rev" HeaderText ="จากบริษัท">
                                <HeaderStyle HorizontalAlign="Center" />
                                <ItemStyle Width="120pt" />
                            </asp:BoundColumn>
                            <asp:BoundColumn DataField="code_doc_rev" HeaderText="หมายเลขใบส่งของ">
                                <HeaderStyle HorizontalAlign ="Center" />
                                <ItemStyle Width="150pt" />
                            </asp:BoundColumn>
                          
                            <asp:TemplateColumn>
                                <ItemTemplate>
                                    <asp:CheckBox ID="ck_hisselect" runat="server" />
                                </ItemTemplate>
                                <ItemStyle Width="20px" />
                            </asp:TemplateColumn>
                            <asp:BoundColumn DataField="id_emp" Visible="False"></asp:BoundColumn>
                            
                        </Columns>
                        <HeaderStyle BackColor="#507CD1" Font-Bold="True" ForeColor="White" />
                    </asp:DataGrid>
                    <asp:Label ID="lblStatusHis" runat="server" Text=""></asp:Label>
                    </asp:View>
                
                
                <asp:View ID="vEdit" runat="server">
                <br />
                    <asp:Label ID="lblEdit" runat="server" Text="" ForeColor="#DD0000"></asp:Label><br /><br />
                    <table border="1" cellpadding="5pt" cellspacing="5pt">
                        <tbody>
                          <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblid" runat="server" Text="รหัสอุปกรณ์" ForeColor="DarkRed"></asp:Label>
                            </td>
                            <td align="left">
                                &nbsp;<asp:TextBox ID="txtid" Text="" runat="server" ForeColor="DarkRed"></asp:TextBox>
                            </td>
                        </tr>
                        
                        <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblname" runat="server" Text="ชื่ออุปกรณ์" ForeColor="DarkBlue"></asp:Label>
                            </td>
                            <td align="left">
                                &nbsp;<asp:TextBox ID="txtName" Text="" runat="server" ForeColor="darkred"></asp:TextBox>
                            </td>
                        </tr>
                        
                        <tr >
                            <td align="left">
                                &nbsp;<asp:Label ID="lblqty" runat="server" Text="จำนวนคงเหลือ" ForeColor="darkBlue"></asp:Label>
                            </td>
                            <td align="left">
                                &nbsp;<asp:TextBox ID="txtqty" runat="server" Text="" ForeColor="darkred" ReadOnly="true" />
                            </td>
                        </tr>
                        
                         <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblmodifyin" runat="server" Text="เพิ่มเข้าล่าสุด" ForeColor="darkBlue"></asp:Label>
                            </td>
                            <td align="left">
                                &nbsp;<asp:TextBox ID="txtmodifyin" runat="server" Text="" ForeColor="darkred" ReadOnly="true" />
                            </td>
                        </tr>
                        
                         <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblmodifyout" runat="server" Text="เบิกออกล่าสุด" ForeColor="darkBlue"></asp:Label>
                            </td >
                            <td align="left">
                                &nbsp;<asp:TextBox ID="txtmodifyout" runat="server" Text="" ForeColor="darkred" ReadOnly="true" />
                            </td>
                        </tr>
                        
                         <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblemp" runat="server" Text="ผู้เพิ่มข้อมูล" ForeColor="darkBlue"></asp:Label>
                            </td>
                            <td align="left">
                                &nbsp;<asp:DropDownList ID="ddlemp" runat="server" ForeColor="darkred"></asp:DropDownList>
                            </td>
                        </tr>
                        
                        <tr>
                            <td align="left">
                                &nbsp;<asp:Label ID="lblnote" runat="server" Text="หมายเหตุ" ForeColor="darkBlue"></asp:Label>
                            </td>
                            <td align="left"> 
                                &nbsp;<asp:TextBox ID="txtnote" runat="server" Text="" ForeColor="darkred" TextMode="MultiLine" Height="50pt" />
                            </td>
                        </tr>
                     </tbody>
                    </table>
                    <br />
                    <asp:Button ID="btnSummitEdit" Text="บันทึก" runat="server" Width="50pt" Height="20pt" />  &nbsp; &nbsp;
                    <asp:Button ID="btnCancelEdit" Text="ยกเลิก" runat="server" Width="50pt" Height="20pt" />
                    <br />
                </asp:View>
                
                <asp:View ID="vNew" runat="server">
                    
                </asp:View>
                
            </asp:MultiView>
            </ContentTemplate>
            </asp:UpdatePanel>
        </td>
    </tr>
 </table>  
   
</asp:Content>

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class material
    Inherits System.Web.UI.Page
    Public Msg As String = ""
    Dim dt As DataTable
    Dim dt2 As DataTable
    Dim dt3 As DataTable
    Dim dtRev As DataTable
    Dim dthisrev As DataTable

    Public Sub ShowMsg(ByVal txt As String)
        Msg = txt
    End Sub
    Public Function DisplayAJAXMessage(ByVal page As Control, ByVal msg As String) As String 'function alert
        Dim myScript As String = [String].Format("alert('{0}');", msg)
        ScriptManager.RegisterStartupScript(page, page.[GetType](), "MyScript", myScript, True)
        Return msg
    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Me.IsPostBack Then
            dt = CType(Session("data"), DataTable)
            dtRev = CType(Session("matRev"), DataTable)
            dthisrev = CType(Session("hisRev"), DataTable)

        Else
            'Dim sql1 As New CSQLServer

            Me.GetMyDataAll_mat()
            Me.MyDataBind(dg1, dt, "id_mat")
            Call GetMyDataToDropDown("tbl_employee", "fullname", "id_emp", "id_emp", ddlemp, dt2)
            Call GetMyDataToDropDown("tbl_material", "name_mat", "id_mat", "id_mat", ddlmat, dt3)
            Call GetMyDataToDropDown("tbl_employee", "fullname", "id_emp", "id_emp", ddlemprev, dt2)

            txtidmat.Text = ddlmat.Items(0).Value.ToString '// เพื่อให้หน้ารับอุปกรณ์ แสดงรหัสอุปกรณ์รายการแรกเลย

            '// create colunm for dtrev
            If (Me.Session("matRev") Is Nothing) Then
                dtRev = New DataTable()
                dtRev.Columns.Add(New DataColumn("id_mat", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("name_mat", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("rev_code_mat", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("date_mat", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("emp_rev", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("qty_mat", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("mat_from", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("sn", GetType(System.String)))
                dtRev.Columns.Add(New DataColumn("id_emp", GetType(System.String)))

                Me.Session("matRev") = dtRev
            Else
                dtRev = CType(Me.Session("matRev"), DataTable)
            End If

            '// load data from tbl_rev_material
            If (Me.Session("hisRev") Is Nothing) Then
                Call GetHisRevAll_mat()
            Else
                dthisrev = CType(Me.Session("hisRev"), DataTable)
            End If

            'dg1.Columns(8).Visible = False
            txtHisSearch.Enabled = False
            btnHisSearch.Enabled = False

            '// add event confirm msgbox to button
            btnDelRev.Attributes.Add("onclick", "javascript:return " & "confirm('คุณต้องการลบรายการที่เลือกใช่หรือไม่?')")
            btnhisDel.Attributes.Add("onclick", "javascript:return " & "confirm('คุณต้องการลบรายการที่เลือกใช่หรือไม่?')")

            '// select first view
            MulV1.ActiveViewIndex = 0

        End If

    End Sub

    Public Sub GetMyDataAll_mat(Optional ByVal iSort As String = "id_mat")
        Dim mat As New Cmaterial
        dt = mat.get_all_material2()
        ViewState("Sort") = iSort
        dg1.EditItemIndex = -1
        dg1.CurrentPageIndex = 0 'กลับไปที่หน้าแรก
        Session("data") = dt
        mat = Nothing
    End Sub

    Private Sub GetHisRevAll_mat()
        dthisrev = New DataTable()
        Dim mat As New Cmaterial
        dthisrev = mat.get_all_HisRev
        Call MyDataBind(dgvhisrev, dthisrev, "id_rev")
        Session("hisRev") = dthisrev
        mat = Nothing
    End Sub

    Public Sub MyDataBind(ByVal objDataGrid As DataGrid, ByVal objDataTable As DataTable, ByVal DataKey As String)
        objDataGrid.DataSource = objDataTable
        objDataGrid.DataKeyField = DataKey
        objDataGrid.SelectedIndex = -1
        objDataGrid.DataBind()
    End Sub

    Protected Sub btnAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAll.Click
        MulV1.ActiveViewIndex = 0
    End Sub

    Protected Sub btnRev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRev.Click
        MulV1.ActiveViewIndex = 1
        If dtRev.Rows.Count > 0 Then
            dgRev.Visible = True
        End If
    End Sub

    Protected Sub btnHisRev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHisRev.Click
        MulV1.ActiveViewIndex = 2
    End Sub

    Protected Sub dg1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg1.CancelCommand
        dg1.EditItemIndex = -1
        Me.MyDataBind(dg1, dt, "id_mat")
    End Sub

    Protected Sub dg1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg1.DeleteCommand
        Dim dr As DataRow = dt.Rows(e.Item.DataSetIndex)
        dr.Delete()

        Dim mymat As New Cmaterial
        mymat.mat_id = CStr(dg1.DataKeys(e.Item.ItemIndex))
        Dim ck As Boolean = mymat.delete_material()
        If ck = True Then
            dr.AcceptChanges()
            Me.MyDataBind(dg1, dt, "id_mat")
        Else
            dr.RejectChanges()
            ShowMsg("ไม่สามารถลบข้อมูลได้")
        End If
    End Sub

    Protected Sub dg1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg1.EditCommand
        Dim row() As DataRow = dt.Select("id_mat='" & e.Item.Cells(0).Text & "'")

        Me.txtid.Text = e.Item.Cells(0).Text
        Me.txtid.ReadOnly = True
        Me.txtName.Text = e.Item.Cells(1).Text
        Me.txtqty.Text = e.Item.Cells(2).Text
        Me.txtmodifyin.Text = CStr(IIf(e.Item.Cells(3).Text = " ", "", e.Item.Cells(3).Text))
        Me.txtmodifyout.Text = CStr(IIf(e.Item.Cells(4).Text = " ", "", e.Item.Cells(4).Text))
        Me.ddlemp.SelectedValue = e.Item.Cells(5).Text
        Me.txtnote.Text = row(0)("note_mat").ToString

        lblEdit.Text = "แก้ไขข้อมูลอุปกรณ์รหัส : " & e.Item.Cells(0).Text
        Session("SelectID") = e.Item.Cells(0).Text
        Session("Option") = "Edit"

        MulV1.ActiveViewIndex = 3 '// Goto vEdit for Update
    End Sub

    Protected Sub dg1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg1.ItemDataBound
        '// Show LightBox when click
        Dim hplDetail As HyperLink = CType(e.Item.FindControl("hplDetail"), HyperLink)
        If Not IsNothing(hplDetail) Then
            hplDetail.NavigateUrl = "LightboxDetails.aspx?id_mat=" & e.Item.Cells(0).Text & "&height=180&width=350"
            hplDetail.CssClass = "thickbox"
            hplDetail.Attributes.Add("title", e.Item.Cells(1).Text)
        End If

        '// show Messagebox Confirm before Delete
        Dim imgDel As ImageButton = CType(e.Item.FindControl("imgDel"), ImageButton)
        If Not IsNothing(imgDel) Then
            imgDel.Attributes.Add("onclick", "javascript:return " & "confirm('คุณต้องการลบข้อมูล " & e.Item.Cells(1).Text & " ใช่หรือไม่?')")
        End If
    End Sub

    Protected Sub btnCancelEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancelEdit.Click
        MulV1.ActiveViewIndex = 0
        Session.Remove("Option")
    End Sub

    Protected Sub btnSummitEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSummitEdit.Click
        Dim mymat As New Cmaterial

        Select Case CType(Session("Option"), String)
            Case "Edit"

                With mymat
                    .mat_id = CType(Session("SelectID"), String)
                    .mat_name = txtName.Text
                    .mat_note = txtnote.Text
                    .mat_id_emp = CType(ddlemp.SelectedValue, String)

                    Dim ck As Boolean
                    ck = mymat.update_detail_material()
                    If ck = False Then
                        Call DisplayAJAXMessage(Page, "แก้ไขข้อมูลอุปกรณ์ " & .mat_id & " ไม่สำเร็จ!!!")
                        GoTo EVENT_FAIL
                    End If
                End With

            Case "Add"

                With mymat
                    .mat_id = txtid.Text
                    .mat_name = txtName.Text
                    .mat_note = txtnote.Text
                    .mat_qty = 0
                    .mat_id_emp = CType(ddlemp.SelectedValue, String)

                    Dim ck As Integer
                    ck = mymat.add_material()
                    If ck = 1 Then
                        Call DisplayAJAXMessage(Page, "เพิ่มข้อมูลอุปกรณ์ " & .mat_id & " ไม่สำเร็จ!!!")
                        GoTo EVENT_FAIL
                    End If
                    If ck = 2 Then
                        Call DisplayAJAXMessage(Page, "มีข้อมูลอุปกรณ์รหัส " & .mat_id & " อยู่แล้วกรุณาตรวจสอบ!!!")
                        GoTo EVENT_FAIL
                    End If
                End With
        End Select

EVENT_SUCCESS:
        '// Refresh Data
        'Call GetMyDataAll_mat()
        'Call MyDataBind(dg1, dt, "id_mat")

        '// clear mem
        mymat = Nothing
        Session.Remove("SelectID")
        Session.Remove("Option")
        MulV1.ActiveViewIndex = 0

EVENT_FAIL:
        '// Nothing
    End Sub

    Protected Sub btnNewMat_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNewMat.Click
        Me.txtid.Text = ""
        Me.txtid.ReadOnly = False
        Me.txtName.Text = ""
        Me.txtqty.Text = "0"
        Me.txtmodifyin.Text = ""
        Me.txtmodifyout.Text = ""
        Me.ddlemp.SelectedIndex = 0
        Me.txtnote.Text = ""

        lblEdit.Text = "เพิ่มข้อมูลชนิดอุปกรณ์ใหม่ "
        Session("Option") = "Add"

        MulV1.ActiveViewIndex = 3 '// Goto vEdit for Insert
    End Sub

    Protected Sub ddlmat_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlmat.SelectedIndexChanged
        txtidmat.Text = CType(ddlmat.SelectedValue, String)
    End Sub

    Private Sub clear_vRev()
        Me.txtcoderev.Text = ""
        Me.txtdaterev.Text = ""
        Me.txttimerev.Text = ""
        Me.txtqtyrev.Text = ""
        Me.txtfrom.Text = ""
        Me.txtsn.Text = ""
        dtRev.Rows.Clear()
        dgRev.DataSource = dtRev
        dgRev.DataBind()
        Session.Remove("Option")
        MulV1.ActiveViewIndex = 0
    End Sub
    Protected Sub btnCencelRev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCencelRev.Click
        Call clear_vRev()
    End Sub

    Protected Sub btnSummitRev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSummitRev.Click
        Dim mat As New Cmaterial
        Dim sql As New CSQLServer
        Dim ck As Boolean

        If dtRev.Rows.Count <= 0 Then GoTo event_error

        For i As Integer = 0 To dtRev.Rows.Count - 1

            mat.mat_id = dgRev.Items(i).Cells(0).Text
            mat.mat_lastmodify_in = CDate(txtdaterev.Text & " " & txttimerev.Text)
            mat.mat_id_emp = dgRev.Items(i).Cells(8).Text
            mat.mat_name = dgRev.Items(i).Cells(1).Text
            'mat.mat_serialNo = dgRev.Items(i).Cells(7).Text
            mat.mat_from = dgRev.Items(i).Cells(5).Text
            mat.mat_code_rev = dgRev.Items(i).Cells(6).Text

            ck = mat.update_qty_material(sql, CType(dgRev.Items(i).Cells(3).Text, Integer), "+", i, dtRev.Rows.Count - 1)
            If ck = False Then
                Call ShowRevMsg("เกิดข้อผิดพลาดในการเพิ่มข้อมูล!! ข้อมูลยังไม่ได้รับการบันทึก")
                GoTo event_error
            End If
        Next

        Me.GetMyDataAll_mat()
        Me.MyDataBind(dg1, dt, "id_mat")

        Call clear_vRev()

event_error:
        '// clear mem
        mat = Nothing
        sql = Nothing
    End Sub

    Private Sub ShowRevMsg(ByVal txt As String)
        lbRevStatus.Text = txt
        lbRevStatus.Visible = True
    End Sub
    Protected Sub btnAddRev_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddRev.Click
        Try
            lbRevStatus.Visible = False

            If Me.txtqtyrev.Text = "" Then
                Call ShowRevMsg("กรุณาระบุจำนวน" & "&nbsp;")
                Exit Sub
            End If
            If Me.txtdaterev.Text = "" Then
                Call ShowRevMsg("กรุณาระบุวันที่รับ" & "&nbsp;")
                Exit Sub
            End If
            If Me.txttimerev.Text = "" Then
                Call ShowRevMsg("กรุณาระบุเวลาที่รับ" & "&nbsp;")
                Exit Sub
            End If
            If Me.txtfrom.Text = "" Then
                Call ShowRevMsg("กรุณาระบุผู้ส่ง" & "&nbsp;")
                Exit Sub
            End If
            If Me.txtcoderev.Text = "" Then
                Call ShowRevMsg("กรุณาเลขที่ใบส่งของ" & "&nbsp;")
                Exit Sub
            End If

            With dgRev
                If .Items.Count > 0 Then
                    For i As Integer = .Items.Count - 1 To 0 Step -1
                        If (txtidmat.Text = .Items(i).Cells(0).Text) Then
                            Call ShowRevMsg("มีรายการอยู่แล้ว" & "&nbsp;")
                            Exit Sub
                        End If
                    Next
                End If
            End With

            Dim dr As DataRow = dtRev.NewRow()

            dr(0) = txtidmat.Text
            dr(1) = ddlmat.SelectedItem.Text
            dr(2) = txtcoderev.Text
            dr(3) = txtdaterev.Text & " " & txttimerev.Text
            dr(4) = ddlemprev.SelectedItem.Text
            dr(5) = txtqtyrev.Text
            dr(6) = txtfrom.Text
            dr(8) = ddlemprev.SelectedItem.Value.ToString

            dtRev.Rows.Add(dr)

            dgRev.DataSource = dtRev
            dgRev.DataBind()
        Catch
            ShowMsg(Err.Description)
        End Try
    End Sub

    Protected Sub btnDelRev_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            With dgRev
                If .Items.Count > 0 Then
                    For i As Integer = .Items.Count - 1 To 0 Step -1
                        Dim ck As CheckBox = CType(.Items(i).Cells(8).FindControl("ckbox"), CheckBox)
                        If ck.Checked = True Then
                            dtRev.Rows.RemoveAt(i)
                        End If
                    Next
                End If
                dgRev.DataSource = dtRev
                dgRev.DataBind()
            End With
        Catch
       
        End Try
    End Sub

    Protected Sub dgRev_DataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgRev.DataBinding
        If (dtRev.Rows.Count) <= 0 Then
            dgRev.Visible = False
        Else
            dgRev.Visible = True
        End If
    End Sub

    Protected Sub btnselall_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnselall.Click
        Call Check_all(dgRev, "ckbox", 8)
    End Sub
    Protected Sub btnunselall_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnunselall.Click
        Call Uncheck_all(dgRev, "ckbox", 8)
    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Me.txtdaterev.Text = Format(CDate(Calendar1.SelectedDate), "dd/MM/yyyy")
    End Sub



    Protected Sub dgvhisrev_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgvhisrev.EditCommand
        dgvhisrev.EditItemIndex = e.Item.ItemIndex 'user select row
    End Sub

    Protected Sub dgvhisrev_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dgvhisrev.PageIndexChanged
        dgvhisrev.CurrentPageIndex = e.NewPageIndex
        dgvhisrev.EditItemIndex = -1
        dgvhisrev.SelectedIndex = -1
        Me.MyDataBind(dgvhisrev, dthisrev, "id_rev")
    End Sub

    Protected Sub ddlchoice_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
        If ddlchoice.Text <> "------ทั้งหมด------" Then
            txtHisSearch.Enabled = True
            btnHisSearch.Enabled = True
        Else
            txtHisSearch.Enabled = False
            btnHisSearch.Enabled = False

            Dim mat As New Cmaterial
            dthisrev = mat.get_all_HisRev
            Call MyDataBind(dgvhisrev, dthisrev, "id_rev")
            Session.Remove("hisRev")
            Session("hisRev") = dthisrev
        End If
    End Sub

    Protected Sub btnHisSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHisSearch.Click
        Dim mat As New Cmaterial

        Select Case ddlchoice.Text
            Case "รหัสอุปกรณ์" : dthisrev = mat.get_filter_HisRev("id_mat", txtHisSearch.Text)
            Case "วันที่รับ" : dthisrev = mat.get_filter_HisRev("date_rev", txtHisSearch.Text)
            Case "บริษัทผู้ส่ง" : dthisrev = mat.get_filter_HisRev("from_rev", txtHisSearch.Text)
            Case "หมายเลขใบส่งของ" : dthisrev = mat.get_filter_HisRev("code_doc_rev", txtHisSearch.Text)
        End Select

        Call MyDataBind(dgvhisrev, dthisrev, "id_rev")
        Session.Remove("hisRev")
        Session("hisRev") = dthisrev

        mat = Nothing
    End Sub

    Protected Sub btnhisCheckall_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhisCheckall.Click
        Call Check_all(dgvhisrev, "ck_hisselect", 8)
    End Sub

    Protected Sub btnhisUncheclall_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnhisUncheclall.Click
        Call Uncheck_all(dgvhisrev, "ck_hisselect", 8)
    End Sub

    Protected Sub btnhisDel_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim mat As New Cmaterial
        Try
            With dgvhisrev
                If .Items.Count > 0 Then
                    For i As Integer = .Items.Count - 1 To 0 Step -1
                        Dim ck As CheckBox = CType(.Items(i).Cells(8).FindControl("ck_hisselect"), CheckBox)
                        Dim id As String = .Items(i).Cells(0).Text
                        mat.mat_id = .Items(i).Cells(1).Text
                        mat.mat_name = .Items(i).Cells(2).Text
                        mat.mat_qty = CType(.Items(i).Cells(3).Text, Integer)
                        mat.mat_id_emp = .Items(i).Cells(9).Text
                        mat.mat_date_rev = CDate(.Items(i).Cells(5).Text)
                        mat.mat_from = .Items(i).Cells(6).Text
                        mat.mat_code_rev = .Items(i).Cells(7).Text
                        If ck.Checked = True Then
                            If mat.delete_hisrev(id) = False Then
                                lblStatusHis.Text = "เกิดข้อผิดพลาดในการลบข้อมูล !!!"
                            Else
                                lblStatusHis.Text = ""
                            End If
                        End If
                    Next
                End If
                Call GetHisRevAll_mat()
            End With
            mat = Nothing
        Catch
            mat = Nothing
        End Try
    End Sub

    Private Sub Check_all(ByVal objDataGrid As DataGrid, ByVal ID As String, ByVal cellnumber As Integer)
        Try
            With objDataGrid
                For i As Integer = 0 To .Items.Count - 1
                    DirectCast(.Items(i).Cells(cellnumber).FindControl(ID), CheckBox).Checked = True
                Next
            End With
        Catch
            Dim strerr As String = Err.Description
        End Try
    End Sub
    Private Sub Uncheck_all(ByVal objDataGrid As DataGrid, ByVal ID As String, ByVal cellnumber As Integer)
        Try
            With objDataGrid
                For i As Integer = 0 To .Items.Count - 1
                    DirectCast(.Items(i).Cells(cellnumber).FindControl(ID), CheckBox).Checked = False
                Next
            End With
        Catch
            Dim strerr As String = Err.Description
        End Try
    End Sub

    Protected Sub MulV1_ActiveViewChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MulV1.ActiveViewChanged
        If MulV1.ActiveViewIndex = 0 Then
            Call GetMyDataAll_mat()
            Call MyDataBind(dg1, dt, "id_mat")
        End If
    End Sub
End Class