Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

HOME > .NET Framework > Forum > [vb.net] ค่าจาก javascript ไม่ส่งมาค่ะ เป็นค่า 0 แทนแล้วเวลา ทำงาน มันมีส่วนที่เป็น ddl ที่ดึงมาจากดาต้าเบสทำให้เวลาเลือกค่าแต่ละครั้งมันกระพริบตลอดแล้วค้าใน javascriptจะหายไป



 

[vb.net] ค่าจาก javascript ไม่ส่งมาค่ะ เป็นค่า 0 แทนแล้วเวลา ทำงาน มันมีส่วนที่เป็น ddl ที่ดึงมาจากดาต้าเบสทำให้เวลาเลือกค่าแต่ละครั้งมันกระพริบตลอดแล้วค้าใน javascriptจะหายไป

 



Topic : 057921



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์




111

นี่คือโค้ดที่เป็นตรงดีไซน์ค่ะ
Code (VB.NET)
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Add_Repair.aspx.vb" Inherits="Project_CMS.Add_Repair" %>

<%@ Register assembly="AjaxControlToolkit" namespace="AjaxControlToolkit" tagprefix="asp" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
    <script type="text/javascript">
      function OpenPopup2() {
    window.open("TemplatePopup.aspx","List","scrollbars=no,resizable=no,width=500,height=400");
    return false
    }
            function aa(rows,id)
            {
            var tmp = id.split("_");
            var j  = 1;
            var sum = 0;
            var costsum = 0;
            var objname = "";
            if(tmp[2] == "TxtLabour")
            {
                objname = "TxtLab1";
            }
            else{
                objname = "TxtMat1";
            }
                for( i = 1 ; i <= rows ; i++)
                {
                    j = j + 1;
                    var mixname = tmp[0] + "_ctl0" + j + "_" +  tmp[2];
                    var labour = tmp[0] + "_ctl0" + j + "_TxtLabour";
                    var Mat = tmp[0] + "_ctl0" + j + "_TxtMaterial";
                    var cost = tmp[0] + "_ctl0" + j + "_TxtCost";
                    /*if (document.getElementById(mixname).value == "")
                    {
                        document.getElementById(mixname).value = 0;
                    }*/
                    sum = eval(sum) + eval(document.getElementById(mixname).value);   
                    document.getElementById(cost).value = eval(document.getElementById(labour).value) + eval(document.getElementById(Mat).value)               
                    costsum = eval(costsum) + eval(document.getElementById(cost).value); 
                }
                document.getElementById(objname).value = sum;
                document.getElementById("txttotal").value = costsum;
                document.getElementById("txtdmg").value = costsum;
            }
    </script>
    </head>
<body>
    <form id="form1" runat="server">
    <h2 style="text-align: center; color: #FFFFFF; background-color: #99CCFF; height: auto; width: auto;">การซ่อม</h2>
    <div>
        <table align="center" >
            <tr>
                <td>
                    <asp:Label ID="Label34" runat="server" Text="Template No." Width="92px"></asp:Label></td>
                <td>
                    <asp:TextBox ID="TxtTempno" runat="server" Width="100px"></asp:TextBox>
                    </td>
                <td colspan="2">
                    <asp:ImageButton ID="btnTmp" runat="server" 
                        ImageUrl="~/image/clipboard.png" Width="25px" />
                    </td>
                <td>
                    <asp:Button ID="Btnok0" runat="server" Text="ตกลง" /></td>
                <td>
                    <asp:Label ID="Label1" runat="server" Text="Date::"></asp:Label>
                </td>
                <td style="text-align: left">
                    <asp:TextBox ID="TxtDateToday" runat="server" ReadOnly="True" 
                        style="text-align: left"></asp:TextBox>
                </td>
              
            </tr>
            <tr>
               <td>
                    <asp:Label ID="Label4" runat="server" Text="Container No ::"></asp:Label>
                </td>
                <td colspan="4">
                    <asp:TextBox ID="Txtconid" runat="server" ReadOnly="True"></asp:TextBox>
                </td>
              
                <td>
                    <asp:Label ID="Label29" runat="server" Text="Rev::"></asp:Label>
                </td>
                <td>
                    <asp:TextBox ID="TxtRev" runat="server"></asp:TextBox>
                    </td>
              
            </tr>
            <tr>
                <td>
                    <asp:Label ID="Label2" runat="server" Text="EOR No::"></asp:Label>
                </td>
                <td colspan="4">
                    <asp:DropDownList ID="Ddlloc" runat="server">
                        <asp:ListItem>-กรุณาเลือก-</asp:ListItem>
                    </asp:DropDownList>
                </td>
                <td>
                    <asp:Label ID="Label5" runat="server" Text="Repair Type  ::"></asp:Label>
                </td>
                <td>
                    <asp:DropDownList ID="DdlReType" runat="server">
                        <asp:ListItem>-กรุณาเลือก-</asp:ListItem>
                    </asp:DropDownList>
                </td>
                            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label3" runat="server" Text="Ref::"></asp:Label>
                 </td>
                <td colspan="4">
                    <asp:TextBox ID="TxtRef" runat="server"></asp:TextBox>
                 </td>
                <td>
                    <asp:Label ID="Label6" runat="server" Text="TaRiff"></asp:Label>
                 </td>
                <td>
                    <asp:DropDownList ID="DdlTariff" runat="server">
                        <asp:ListItem>-กรุณาเลือก-</asp:ListItem>
                    </asp:DropDownList>
                 </td>
                              
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label7" runat="server" Text="Currency ::"></asp:Label>
                 </td>
                <td colspan="4">
                    <asp:DropDownList ID="DdlCurency" runat="server">
                        <asp:ListItem>-กรุณาเลือก-</asp:ListItem>
                    </asp:DropDownList>
                 </td>
                <td>
                    <asp:Label ID="Label9" runat="server" Text="ISO SIZE/TYPE" Width="148px"></asp:Label>
                 </td>
                <td>
                    <asp:DropDownList ID="DdlIsosize" runat="server">
                        <asp:ListItem>-กรุณาเลือก-</asp:ListItem>
                    </asp:DropDownList>
                 </td>
                               
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label8" runat="server" Text="DOM(mm/yyyy)" Width="120px"></asp:Label>
                 </td>
                <td colspan="4">
                    <asp:TextBox ID="TxtDom" runat="server"></asp:TextBox>
                 </td>
                <td>
                    &nbsp;</td>
                <td>
                    &nbsp;</td>
                
                
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label31" runat="server" Text="Orig Est."></asp:Label>
                 </td>
                <td colspan="2">
                    <asp:TextBox ID="TxtEst" runat="server"></asp:TextBox>
                 </td>
                <td colspan="2">
                    <asp:CalendarExtender ID="CalendarExtender4" runat="server" TargetControlID="TxtEst" Format="d/MM/yyyy"></asp:CalendarExtender>
                    <asp:ToolkitScriptManager ID="ToolkitScriptManager1" runat="server">
                    </asp:ToolkitScriptManager>
                </td>
                <td>
                    <asp:Label ID="Label15" runat="server" Text="Status::"></asp:Label>
                 </td>
                <td>
                    <asp:DropDownList ID="Ddlstatus" runat="server">
                        <asp:ListItem>กรุณาเลือกสถานะ</asp:ListItem>
                        <asp:ListItem>Approved</asp:ListItem>
                        <asp:ListItem>Pending</asp:ListItem>
                        <asp:ListItem>Verified</asp:ListItem>
                        <asp:ListItem>Dispute</asp:ListItem>
                        <asp:ListItem>Completed</asp:ListItem>
                    </asp:DropDownList>
                 </td>
                             
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label30" runat="server" Text="Lastest Est."></asp:Label>
                 </td>
                <td colspan="2">
                    <asp:TextBox ID="TxtLEst" runat="server"></asp:TextBox>
                    </td>
                <td colspan="2">
                    <asp:CalendarExtender ID="CalendarExtender3" runat="server" TargetControlID="TxtLEst" Format="d/MM/yyyy">
                    </asp:CalendarExtender>
                 </td>
                <td>
                    <asp:Label ID="Label12" runat="server" Text="Labour ::"></asp:Label>
                 </td>
                <td>
                    <asp:TextBox ID="TxtLab1" runat="server" ReadOnly="True"></asp:TextBox>
                 </td>
              
                
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label10" runat="server" Text="Gate In ::"></asp:Label>
                 </td>
                <td colspan="2">
                    <asp:TextBox ID="TxtGateIn" runat="server"></asp:TextBox>
                 </td>
                <td colspan="2">
                    <asp:CalendarExtender ID="CalendarExtender1" runat="server" Format="d/MM/yyyy" TargetControlID="TxtGateIn">
                    </asp:CalendarExtender>
                 </td>
                <td>
                    <asp:Label ID="Label13" runat="server" Text="Mat::"></asp:Label>
                 </td>
                <td>
                    <asp:TextBox ID="TxtMat1" runat="server" ReadOnly="True"></asp:TextBox>
                 </td>
              
                
            </tr>
             <tr>
                <td>
                    <asp:Label ID="Label11" runat="server" Text="Completion::"></asp:Label>
                 </td>
                <td colspan="2">
                    <asp:TextBox ID="TxtCompletion" runat="server">
                    </asp:TextBox>
                 </td>
                <td colspan="2">
                    <asp:CalendarExtender ID="CalendarExtender2" runat="server" Format="d/MM/yyyy" TargetControlID="TxtCompletion">
                    </asp:CalendarExtender>
                 </td>
                <td>
                    <asp:Label ID="Label14" runat="server" Text="ToTal::"></asp:Label>
                 </td>
                <td>
                    <asp:TextBox ID="Txttotal" runat="server" AutoPostBack="true " ReadOnly="True" ></asp:TextBox>
                 </td>
               
                
            </tr>
             <tr>
                <td>
                    &nbsp;</td>
                <td colspan="2">
                    &nbsp;</td>
                <td colspan="2">
                    &nbsp;</td>
                <td>
                    <asp:Label ID="Label33" runat="server" Text="DMG::"></asp:Label>
                </td>
                <td>
                    <asp:TextBox ID="Txtdmg" runat="server" ReadOnly="True"></asp:TextBox>
                </td>
                
                
            </tr>
             <tr>
                <td>
                    &nbsp;</td>
                <td colspan="2">
                    &nbsp;</td>
                <td style="text-align: center" colspan="2">
                    <asp:Label ID="Lmsg" runat="server" Font-Bold="True" ForeColor="Red" Text="Msg" 
                        Visible="False" style="text-align: center"></asp:Label>
                 </td>
                <td>
                    &nbsp;</td>
                <td>
                    &nbsp;</td>
                
                
            </tr>
             <tr>
                <td>
                    &nbsp;</td>
                <td colspan="2">
                    &nbsp;</td>
                <td colspan="2">
                    &nbsp;</td>
                <td>
                    <asp:Label ID="Label16" runat="server" Text="No."></asp:Label>
                   
                    <asp:TextBox ID="TxtReDe_id" runat="server" ReadOnly="True"></asp:TextBox></td>
                <td>
                   
                    &nbsp;</td>
            </tr>
             </table></div>
            <h3 style="text-align: center; color: #FFFFFF; background-color: #99CCFF; width: auto; height: auto;">รายละเอียดการซ่อม</h3>
       <div>
           <table style="width: 101%; height: 206px;">
               <tr>
                   <td colspan="3">
                      
       <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
           BorderStyle="Solid" CellPadding="3" GridLines="Horizontal" BackColor="White" 
                           BorderColor="#E7E7FF" BorderWidth="1px" Height="182px" HorizontalAlign="Center" 
                           Width="852px" DataKeyNames="Loc">
           <RowStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" />
           <Columns>
               <asp:TemplateField HeaderText="Location">
                   <EditItemTemplate>
                       <asp:TextBox ID="TextBox1" runat="server" Text='<%# Bind("Loc") %>'></asp:TextBox>
                   </EditItemTemplate>
                   <ItemTemplate>
                       <asp:Label ID="Label1" runat="server" Text='<%# Bind("Loc") %>'></asp:Label>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Component">
                   <ItemTemplate>
                       <asp:DropDownList ID="DdlCom" runat="server" AppendDataBoundItems="True" 
                           AutoPostBack="True" Width="90px">
                           <asp:ListItem> </asp:ListItem>
                       </asp:DropDownList>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="DMG">
                   <ItemTemplate>
                       <asp:DropDownList ID="DdlDmg" runat="server" AppendDataBoundItems="True" 
                           AutoPostBack="True" Width="90px">
                           <asp:ListItem></asp:ListItem>
                       </asp:DropDownList>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Repair">
                   <ItemTemplate>
                       <asp:DropDownList ID="DdlRepair" runat="server" AppendDataBoundItems="True" 
                           AutoPostBack="True" Width="90px">
                           <asp:ListItem></asp:ListItem>
                       </asp:DropDownList>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Type">
                   <ItemTemplate>
                       <asp:DropDownList ID="DDdlType" runat="server" Width="90px">
                           <asp:ListItem>กรุณาเลือก</asp:ListItem>
                           <asp:ListItem>DMG</asp:ListItem>
                           <asp:ListItem>W/T</asp:ListItem>
                           <asp:ListItem>I/R</asp:ListItem>
                           <asp:ListItem>CLE</asp:ListItem>
                           <asp:ListItem>UPG</asp:ListItem>
                       </asp:DropDownList>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="QTY">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtQty" runat="server" Width="50px"></asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="L">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtL" runat="server" Width="50px"></asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="W">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtW" runat="server" Width="50px"></asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Hour">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtHour" runat="server" Width="50px"></asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Lobour">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtLabour" runat="server" Width="60px" >0</asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Material">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtMaterial" runat="server" Width="60px">0</asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
               <asp:TemplateField HeaderText="Cost">
                   <ItemTemplate>
                       <asp:TextBox ID="TxtCost" runat="server" ReadOnly="True" Width="70px"></asp:TextBox>
                   </ItemTemplate>
               </asp:TemplateField>
           </Columns>
           <FooterStyle BackColor="#B5C7DE" ForeColor="#4A3C8C" />
           <PagerStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" HorizontalAlign="Right" />
           <SelectedRowStyle BackColor="#738A9C" Font-Bold="True" ForeColor="#F7F7F7" />
           <HeaderStyle BackColor="#4A3C8C" Font-Bold="True" ForeColor="#F7F7F7" />
           <AlternatingRowStyle BackColor="#F7F7F7" />
       </asp:GridView>
                   </td>
               </tr>
               <tr>
                   <td>
                       &nbsp;
                   </td>
                   <td>
                       &nbsp;
                   </td>
                   <td>
                       &nbsp;
                   </td>
               </tr>
               </table>
       <table align="center">
       <tr>
       <td>
       <asp:Button ID="btnAdd" runat="server" Text="เพิ่ม" /></td> 
       <td><asp:Button ID="btnCancle" runat="server" Text="ยกเลิก" /></td> 
       <td><asp:Button ID="btnaddpic" runat="server" Text="เพิ่มรูปภาพรอยแผลตู้" /></td> 
       <td style="text-align: center"><asp:Button ID="btnShow" runat="server" Text="แสดงข้อมูล" /> </td> 
      </tr>
 </table>
    </div>
    </form>
</body>
</html>


ตัวสีแดงค่ะ คือjavascript
อันนี้code behide
Code (VB.NET)
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.UI.WebControls
Partial Public Class Add_Repair
    Inherits System.Web.UI.Page
    Dim connstr As String = "server=(local);database=db_CMS;uid=AdminCMS;password=qaz123"
    Dim Conn As New SqlConnection(connstr)
    Dim Sql As String
    Dim Cmd, cmd1, cmd2 As SqlCommand
    Dim ad As SqlDataAdapter
    Dim Ds As New DataSet
    Dim Dview As DataView
    Dim drow As DataRowView
    Dim dro As DataRow
    Dim Service As New Service1

    Private Sub Gen_ReDe_ID()
        Dim d_adap As New SqlDataAdapter("SELECT  ReDe_Id FROM Tl_RepairDetail", Conn)
        Dim d_set As New DataSet
        Dim d_table As New DataTable
        Dim d_row As DataRow
        Dim Cut_String As String 'ตัวแปรเก็บค่าการตัดสตริงเพื่อ Gen ID

        d_adap.Fill(d_set, "ReDe_Id")
        d_table = d_set.Tables("ReDe_Id")

        If d_set.Tables("ReDe_Id").Rows.Count = 0 Then 'เช็คว่ามีIDใน database ไหมถ้าไม่ Gen Auto ให้เป็น 001
            TxtReDe_id.Text = "ReDe0001"
        Else
            For Each d_row In d_table.Rows
                Cut_String = Mid(d_row.Item("ReDe_Id"), 5, 8) + 1 'ตัวสตริงจาก Datarow ที่คิวรี่ออกมาได้
                If Cut_String.Length = 1 Then 'เช็คว่าขนาดความยาวตัวอักษรมีกี่หลัก
                    TxtReDe_id.Text = "ReDe000" + Cut_String
                ElseIf Cut_String.Length = 2 Then
                    TxtReDe_id.Text = "ReDe00" + Cut_String
                ElseIf Cut_String.Length = 3 Then
                    TxtReDe_id.Text = "ReDe0" + Cut_String
                ElseIf Cut_String.Length = 4 Then
                    TxtReDe_id.Text = "ReDe" + Cut_String
                End If
            Next
            'ElseIf d_set.Tables("ReDe_Id").Rows.Count >= 1000 Then
            '    Dim sqldel As String = "Delete from Tl_RepairDetail where ReDe_id='ReDe0001-ReDe1000'"
            '    TxtReDe_id.Text = "ReDe0001"
        End If
    End Sub
    Private Sub readddlloc()
        Dim MyDa As New SqlDataAdapter("Select Loc_id From Tl_Location", Conn)
        MyDa.Fill(Ds, "Tl_Location")
        Dview = Ds.Tables("Tl_Location").DefaultView
        Dview.Sort = "Loc_id"
        Dim DRowView As DataRowView
        For Each DRowView In Dview
            Ddlloc.Items.Add(DRowView.Item("Loc_id"))
        Next
        Conn.Close()
    End Sub
    Private Sub readddlretype()
        Dim MyDa As New SqlDataAdapter("Select  RepairType From Tl_Repairtype", Conn)
        MyDa.Fill(Ds, "Tl_Repairtype")
        Dview = Ds.Tables("Tl_Repairtype").DefaultView
        Dview.Sort = "RepairType"
        Dim DRowView As DataRowView
        For Each DRowView In Dview
            DdlReType.Items.Add(DRowView.Item("RepairType"))
        Next
        Conn.Close()
    End Sub
    Private Sub readddltariff()
        Dim MyDa As New SqlDataAdapter("Select  Tariff From Tl_Tariff", Conn)
        MyDa.Fill(Ds, "Tl_Tariff")
        Dview = Ds.Tables("Tl_Tariff").DefaultView
        Dview.Sort = "Tariff"
        Dim DRowView As DataRowView
        For Each DRowView In Dview
            DdlTariff.Items.Add(DRowView.Item("Tariff"))
        Next
        Conn.Close()
    End Sub
    Private Sub readddlCurrency()
        Dim MyDa As New SqlDataAdapter("Select  Currency_id From Tl_Currency", Conn)
        MyDa.Fill(Ds, "Tl_Currency")
        Dview = Ds.Tables("Tl_Currency").DefaultView
        Dview.Sort = "Currency_id"
        Dim DRowView As DataRowView
        For Each DRowView In Dview
            DdlCurency.Items.Add(DRowView.Item("Currency_id"))
        Next
        Conn.Close()
    End Sub
    Private Sub readddlisosize()
        Dim MyDa As New SqlDataAdapter("Select Isosize From Tl_isosize", Conn)
        MyDa.Fill(Ds, "Tl_isosize")
        Dview = Ds.Tables("Tl_isosize").DefaultView
        Dview.Sort = "Isosize"
        Dim DRowView As DataRowView
        For Each DRowView In Dview
            DdlIsosize.Items.Add(DRowView.Item("Isosize"))
        Next
        Conn.Close()
    End Sub
    Sub Showdata()
        Sql = "SELECT DISTINCT   Tl_TemplateDetail.Temp_id, Tl_TemplateDetail.T1 + '' + Tl_TemplateDetail.T2 + '' + Tl_TemplateDetail.T3 + '' + Tl_TemplateDetail.T4 AS Loc,Tl_Template.Con_id as Con_id"
        Sql = Sql & "  FROM         Tl_TemplateDetail INNER JOIN   Tl_Template ON Tl_TemplateDetail.Temp_id = Tl_Template.Temp_id where Tl_TemplateDetail.Temp_id ='" + Trim(TxtTempno.Text) + "' order by Tl_TemplateDetail.Temp_id "
        'Sql = "SELECT distinct Temp_id,T1+''+T2+''+T3+''+T4 As Loc , FROM Tl_TemplateDetail where Temp_id ='" + Trim(TxtTempno.Text) + "' order by Temp_id"
        '//กำหนด Sqlสำหรับอ่านข้อมูล
        Dim myda As New DataSet
        ad = New SqlDataAdapter(Sql, Conn) '///ประมวลผลคำสั่งอ่านข้อมูล
        myda.Clear()
        ad.Fill(myda, "TempDe") '///นำข้อมูลที่อ่านข้อมูลได้ไปให้กับDsแบบดาต้าเซต
        GridView1.Visible = True
        GridView1.DataSource = myda.Tables("TempDe")
        GridView1.DataBind()
        Dim rw As GridViewRow
        For Each rw In GridView1.Rows
            Dim txt As TextBox = rw.FindControl("TxtLabour")
            txt.Attributes.Add("OnKeyUp", "aa('" & myda.Tables("TempDe").Rows.Count & "',this.id)")
            Dim txt1 As TextBox = rw.FindControl("TxtMaterial")
            txt1.Attributes.Add("OnKeyup", "aa('" & myda.Tables("TempDe").Rows.Count & "',this.id)")
        Next
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        btnAdd.Attributes.Add("OnClick", "javascript:if(confirm('คุณต้องการเพิ่มข้อมูลนี้ หรือไม่?')==false)return false;")
        btnCancle.Attributes.Add("OnClick", "javascript:if(confirm('คุณต้องการออกลบข้อมูลนี้ในฟอร์ม หรือไม่?')==false)return false;")
        Gen_ReDe_ID()
        If Page.IsPostBack <> True Then
            readddlloc()
            readddlretype()
            readddltariff()
            readddlCurrency()
            readddlisosize()
            TxtDateToday.Text = Now.ToShortDateString()
            btnTmp.Attributes.Add("onclick", "javascript:return OpenPopup2()")
            Dim val As String = Request.QueryString("val")
            TxtTempno.Text = val
        End If
    End Sub

    Private Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        If e.Row.RowType = UI.WebControls.ListItemType.Item Or e.Row.RowType = UI.WebControls.ListItemType.AlternatingItem Then
            Dim DDlCom As DropDownList
            DDlCom = e.Row.FindControl("DdlCom")
            Dim Myda1 As New SqlDataAdapter("Select Code From Tl_ComponentCode order by code", Conn)
            Dim ds1 As New DataSet
            ds1.Clear()
            Myda1.Fill(ds1, "datacom")
            If ds1.Tables("datacom").Rows.Count > 0 Then
                With DDlCom
                    .DataSource = ds1.Tables("datacom")
                    .DataTextField = "Code"
                    .DataValueField = "Code"
                    .DataBind()
                End With
            End If
            Dim DdlDmg As DropDownList
            DdlDmg = e.Row.FindControl("DdlDmg")

            Dim Myda2 As New SqlDataAdapter("Select Code_Da From Tl_DamageCode order by Code_Da", Conn)
            Dim ds2 As New DataSet
            Myda2.Fill(ds2, "dataDMG")
            If ds2.Tables("dataDMG").Rows.Count > 0 Then
                With DdlDmg
                    .DataSource = ds2.Tables("dataDMG")
                    .DataTextField = "Code_Da"
                    .DataValueField = "Code_Da"
                    .DataBind()
                End With
            End If

            Dim DdlRepair As DropDownList
            DdlRepair = e.Row.FindControl("DdlRepair")
            Dim Myda3 As New SqlDataAdapter("Select Code_Repair From Tl_RepairCode order by Code_Repair", Conn)
            Dim ds3 As New DataSet
            Myda3.Fill(ds3, "dataRep")
            If ds3.Tables("dataRep").Rows.Count > 0 Then
                With DdlRepair
                    .DataSource = ds3.Tables("dataRep")
                    .DataTextField = "Code_Repair"
                    .DataValueField = "Code_Repair"
                    .DataBind()
                End With
            End If
            'Dim txt As TextBox = e.Row.FindControl("TxtLabour")
            'txt.Attributes.Add("OnKeyUp", "aa('" & GridView1.Rows.Count & "',this.id)")
            'Dim txt1 As TextBox = e.Row.FindControl("TxtMaterial")
            'txt1.Attributes.Add("OnKeyup", "aa('" & GridView1.Rows.Count & "',this.id)")
        End If
       
    End Sub

    Private Sub Btnok0_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnok0.Click
        Showdata()
        Dim sql1 As String
        sql1 = "SELECT   Tl_Template.Con_id   FROM     Tl_TemplateDetail INNER JOIN   Tl_Template ON Tl_TemplateDetail.Temp_id = Tl_Template.Temp_id where Tl_TemplateDetail.Temp_id ='" + Trim(TxtTempno.Text) + "'"
        Dim mycommand As New SqlCommand(sql1, Conn)
        Conn.Open()
        Dim mydatareader As SqlDataReader = mycommand.ExecuteReader()
       Txtconid.Text=""
        Dim found As Boolean = False
        While mydatareader.Read()
            found = True
            Txtconid.Text = mydatareader.Item("Con_id")
           
        End While
        Conn.Close()
    End Sub

    Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim sqlRepairdetail, sqlrepair As String
        Dim RestoreSQL As String
        Dim DDlCom, DdlDmg, DdlRepair, ddlType As DropDownList
        Dim Qty, L, W, Hour, Labour, Material, Cost As TextBox
        Dim checkid As CheckBox
        Dim location As String
        Dim mydatagriditem As GridViewRow
        For Each mydatagriditem In GridView1.Rows

            checkid = mydatagriditem.FindControl("Checkid")
            DDlCom = mydatagriditem.FindControl("DdlCom")
            DdlDmg = mydatagriditem.FindControl("DdlDmg")
            DdlRepair = mydatagriditem.FindControl("DdlRepair")
            ddlType = mydatagriditem.FindControl("DDdlType")

            If DDlCom.SelectedIndex = True And DdlDmg.SelectedIndex = True And DdlRepair.SelectedIndex = True And ddlType.SelectedIndex = True Then
                Qty = mydatagriditem.FindControl("TxtQty")
                L = mydatagriditem.FindControl("TxtL")
                W = mydatagriditem.FindControl("TxtW")
                Hour = mydatagriditem.FindControl("TxtHour")
                Labour = mydatagriditem.FindControl("TxtLabour")
                Material = mydatagriditem.FindControl("TxtMaterial")
                Cost = mydatagriditem.FindControl("TxtCost")
                location = CType(mydatagriditem.FindControl("Label1"), Label).Text
                sqlRepairdetail = "Insert Into Tl_RepairDetail(ReDe_id,Repair_id,Temp_id,Location,Component,Dmg,Repair,Type,Qty,L,W,Hour_M,Labour,Material,Cost,Re_Flag)Values ("
                sqlRepairdetail = sqlRepairdetail & "'" & Request.Form("TxtReDe_id") & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Request.Form("TxtRef") & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Request.Form("TxtTempno") & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & location & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & DDlCom.SelectedValue & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & DdlDmg.SelectedValue & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & DdlRepair.SelectedValue & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & ddlType.SelectedValue & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Qty.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & L.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & W.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Hour.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Labour.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Material.Text & "'" & ","
                sqlRepairdetail = sqlRepairdetail & "'" & Cost.Text & "','-')"
                'Response.Write(sqlRepairdetail)
                'Response.End()
                cmd1 = New SqlCommand(sqlRepairdetail, Conn)
                Conn.Open() : cmd1.ExecuteNonQuery() : Conn.Close()
            End If
        Next
        If Len(Trim(TxtRef.Text)) <= 0 Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>ข้อมูลเลขที่การซ่อมไม่ได้ใส่</center>"
            Exit Sub
        End If
        If Len(Trim(Txtconid.Text)) <= 0 Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>ข้อมูลรหัสตู้คอนเทนเนอร์ไม่ได้ใส่</center>"
            Exit Sub
        End If
        If Len(Trim(TxtDom.Text)) <= 0 Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>ข้อมูลวันและปีไม่ได้ใส่</center>"
            Exit Sub
        End If
        If DdlCurency.SelectedValue = "-กรุณาเลือก-" Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>กรุณาเลือก Currencyให้เรียบร้อย</center>"
            Exit Sub
        End If
        If DdlIsosize.SelectedValue = "-กรุณาเลือก-" Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>กรุณาเลือก ISO Size ให้เรียบร้อย</center>"
            Exit Sub
        End If
        If Ddlloc.SelectedValue = "-กรุณาเลือก-" Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>กรุณาเลือก EOR No.ให้เรียบร้อย</center>"
            Exit Sub
        End If
        If DdlTariff.SelectedValue = "-กรุณาเลือก-" Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>กรุณาเลือก Tariff ให้เรียบร้อย</center>"
            Exit Sub
        End If
        If DdlReType.SelectedValue = "-กรุณาเลือก-" Then
            Lmsg.Visible = True
            Lmsg.Text = "<center>กรุณาเลือกประเภทการซ่อมให้เรียบร้อย</center>"
            Exit Sub
        End If

        If (TxtRef.Text = "") Or (Txtconid.Text = "") Or (TxtDom.Text = "") Then 'Or (TxtLab1.Text = "") Or (TxtMat1.Text = "") Or (Txttotal.Text = "") 
            Lmsg.Visible = True
            Lmsg.Text = "<Center>เพิ่มข้อมูลไม่ได้เนื่องจากใส่ข้อมูลไม่ครบ</Center> "
            Exit Sub
        Else
            Lmsg.Visible = True
            Lmsg.Text = "<Center>เพิ่มข้อมูลสู่ระบบเรียบร้อยแล้ว </Center> "

        End If

        'Conn.Close()
        sqlrepair = "Insert Into Tl_Repair (Repair_id,Con_id,Loc_id,Rev,Repair_type,Tariff,Currency_id,Isosize,Dom,Orig_Est,Lastest_Est,Gate_in,Completion,DMG,Labou,Mat,Total,Repair_Date,status) Values (" '//เตรียม SQL
        sqlrepair = sqlrepair & "'" & TxtRef.Text & "'" & ","             '//เตรียม SQL
        sqlrepair = sqlrepair & "'" & Txtconid.Text & "'" & "," '//เตรียม SQL
        sqlrepair = sqlrepair & "'" & Ddlloc.SelectedValue & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtRev.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & DdlReType.SelectedValue & "'" & ","
        sqlrepair = sqlrepair & "'" & DdlTariff.SelectedValue & "'" & ","
        sqlrepair = sqlrepair & "'" & DdlCurency.SelectedValue & "'" & ","
        sqlrepair = sqlrepair & "'" & DdlIsosize.SelectedValue & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtDom.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtEst.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtLEst.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtGateIn.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtCompletion.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & Txtdmg.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtLab1.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtMat1.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & Txttotal.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & TxtDateToday.Text & "'" & ","
        sqlrepair = sqlrepair & "'" & Ddlstatus.SelectedValue & "'" & ")"
        'Response.Write(sqlrepair)
        'Response.End()
        cmd2 = New SqlCommand(sqlrepair, Conn)  '//ประมวลผลคำสั่งใน SQL
        Conn.Open() : cmd2.ExecuteNonQuery() : Conn.Close() '//นำข้อมูลที่ประมวลผลแล้วไปลงตารางข้อมูลในฐานข้อมูล

        RestoreSQL = "Delete From Tl_Repair Where Repair_id=" & "'" & Request.Form("TxtRef") & "'"
        Service.AddLogFile("Add Repair", "-", "-")
        Session.Contents("Repair_id") = TxtRef.Text
        Session.Contents("ReDe_id") = TxtReDe_id.Text
        Session.Contents("Con_id") = Txtconid.Text
        Response.Write("<script language=javascript>window.open('Report_Repair.aspx', '_blank')</script>")

    End Sub

   
End Class


รบกวนด้วยนะค่ะ ส่วน ทูลคิดที่เป็นอัพเดต พาเนลที่เครื่องใช้การไม่ได้ทำให้ เวลาเลือกข้อมุลมันกระพริบตลอดเวลา
หรือถ้ายังไง รบกวนขอวิธี รับค่าจาก javascriptด้วยค่ะ ตอนแรกเข้าใจว่า สามารถ เก็บค่าลงดาต้าเบสได้ตามปกติ แต่พอ เก็บจิงๆ ในดา้ต้าเบสเป็น 0 คะ รบกวนด้วยนะค่ะ เป็นโปรเจคปีสี่ เหลือหน้าสุดท้ายแล้วค่ะที่เกิดปัญหา



Tag : .NET, MySQL, JavaScript, Web (ASP.NET)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-03-28 10:38:15 By : jaoa View : 1737 Reply : 1
 

 

No. 1



โพสกระทู้ ( 28 )
บทความ ( 0 )



สถานะออฟไลน์


ไม่มีคนตอบเลย T__T คือ มันใช้งานได้แต่เวลาบันทึก เป็น'' ค่าว่างอ่ะค่ะ ในช่อง txtcost ในกริดแล้วก็txttotalจากตารางด้านบน






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-29 12:47:06 By : jaoa
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : [vb.net] ค่าจาก javascript ไม่ส่งมาค่ะ เป็นค่า 0 แทนแล้วเวลา ทำงาน มันมีส่วนที่เป็น ddl ที่ดึงมาจากดาต้าเบสทำให้เวลาเลือกค่าแต่ละครั้งมันกระพริบตลอดแล้วค้าใน javascriptจะหายไป
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่