 |
| |
สอบถามวิธีเปลี่ยนข้อมูลจาก Database ก่อน Bind เข้า Gridview |
| |
 |
|
|
 |
 |
|
ทุกอย่างดึงข้อมูลมาจาก ERP ค่ะ แต่ในช่อง Status จะเปลี่ยนค่าจาก Database
1 = Yes
2 = No
ค่ะ
ไม่ทราบว่าต้องทำอย่างไรคะ
ขอบคุณล่วงหน้ามากค่ะ 
นี่คือโค๊ดตอน Bind grid นะคะ
Code (VB.NET)
Sub ea1()
Dim conea As New SqlConnection(ConfigurationManager.ConnectionStrings("LN").ConnectionString)
Dim cmdea As New SqlCommand("Select ttdsls401601.t_item, ttdsls401601.t_corn, ttcibd001601.t_item AS easa, ttdsls401601.t_orno , ttdsls401601.t_pono , ttcibd001601.t_dsca,ttdsls401601.t_qoor , ttccom100601_1.t_nama, twhwmd400601.t_sinv FROM ttccom100601 AS ttccom100601_1 INNER JOIN ttdsls401601 INNER JOIN ttcibd001601 ON ttdsls401601.t_item=ttcibd001601.t_item ON ttccom100601_1.t_bpid = ttdsls401601.t_ofbp INNER JOIN twhwmd400601 ON ttdsls401601.t_item = twhwmd400601.t_item WHERE ttdsls401601.t_orno like '%" & Me.TextBox25.Text & "%' and ttdsls401601.t_pono =" & Me.TextBox23.Text & " and t_sqnb ='0'", conea)
cmdea.CommandType = CommandType.Text
Dim da As New SqlDataAdapter(cmdea)
Dim ds As New DataSet
Dim dr As DataRow
da.Fill(ds, "erp")
Me.GridView2.DataSource = ds.Tables("erp")
Me.GridView2.DataBind()
conea.Close()
Code HTML ค่ะ
Code
<asp:GridView ID="GridView2" runat="server" AllowPaging="True"
AutoGenerateColumns="False" CellPadding="4" DataKeyNames="t_item"
Font-Names="Tahoma" Font-Size="X-Small" ForeColor="#333333" GridLines="None"
PageSize="6"
style="z-index: -2; left: 380px; top: 325px; position: absolute; height: 106px; width: 585px"
Visible="False">
<AlternatingRowStyle BackColor="White" ForeColor="#284775" />
<Columns>
<asp:BoundField DataField="t_orno" HeaderText="OrderNo" />
<asp:BoundField DataField="t_pono" HeaderText="Po_No" />
<asp:BoundField DataField="t_dsca" HeaderText="Order_Des" />
<asp:BoundField DataField="t_item" HeaderText="Part" />
<asp:BoundField DataField="t_qoor" HeaderText="Qty" />
<asp:BoundField DataField="t_corn" HeaderText="CO" />
<asp:BoundField DataField="t_nama" HeaderText="Customer" />
<asp:BoundField DataField="t_item" HeaderText="Item" />
<asp:BoundField DataField="t_sinv" HeaderText="Status">
<HeaderStyle Font-Bold="True" />
</asp:BoundField>
<asp:CommandField HeaderText="Select" ShowSelectButton="True" />
</Columns>
<EditRowStyle BackColor="#999999" />
<FooterStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" />
<HeaderStyle BackColor="#5D7B9D" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#284775" ForeColor="White" HorizontalAlign="Center" />
<RowStyle BackColor="#F7F6F3" ForeColor="#333333" />
<SelectedRowStyle BackColor="#E2DED6" Font-Bold="True" ForeColor="#333333" />
<SortedAscendingCellStyle BackColor="#E9E7E2" />
<SortedAscendingHeaderStyle BackColor="#506C8C" />
<SortedDescendingCellStyle BackColor="#FFFDF8" />
<SortedDescendingHeaderStyle BackColor="#6F8DAE" />
</asp:GridView>
Tag : .NET, Web (ASP.NET), VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2012-11-07 17:30:29 |
By :
Berrykitty |
View :
1272 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Select case twhwmd400601.t_sinv
when '1' then 'Yes'
when '2' then 'No'
end
as Status
...
|
| |
|
|
| |
| Date :
2012-11-07 22:18:29 |
By :
inquist |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
1. เพิ่่มคอลั่ม StatusDesc
2. วนเช็คข้อมูล Status แล้ว ใส่ข้อมูลใน StatusDesc เป็น Yes/No โดยใช้ For Each
.ASPX
ให้เพิ่ม
Code (VB.NET)
<asp:BoundField DataField="StatusDesc" HeaderText="Status">
<HeaderStyle Font-Bold="True" />
</asp:BoundField>
แทน
<asp:BoundField DataField="t_sinv" HeaderText="Status">
<HeaderStyle Font-Bold="True" />
</asp:BoundField>
.VB
Code (VB.NET)
Sub ea1()
Dim conea As New SqlConnection(ConfigurationManager.ConnectionStrings("LN").ConnectionString)
Dim cmdea As New SqlCommand("Select ttdsls401601.t_item, ttdsls401601.t_corn, ttcibd001601.t_item AS easa, ttdsls401601.t_orno , ttdsls401601.t_pono , ttcibd001601.t_dsca,ttdsls401601.t_qoor , ttccom100601_1.t_nama, twhwmd400601.t_sinv FROM ttccom100601 AS ttccom100601_1 INNER JOIN ttdsls401601 INNER JOIN ttcibd001601 ON ttdsls401601.t_item=ttcibd001601.t_item ON ttccom100601_1.t_bpid = ttdsls401601.t_ofbp INNER JOIN twhwmd400601 ON ttdsls401601.t_item = twhwmd400601.t_item WHERE ttdsls401601.t_orno like '%" & Me.TextBox25.Text & "%' and ttdsls401601.t_pono =" & Me.TextBox23.Text & " and t_sqnb ='0'", conea)
cmdea.CommandType = CommandType.Text
Dim da As New SqlDataAdapter(cmdea)
Dim ds As New DataSet
Dim dt As New DataTable
dt = ds.Tables("erp")
dt.Columns.Add("StatusDesc", GetType(String))
Dim dr As DataRow
For Each dr In dt.Rows
If dr("Status").ToString() = "1" Then
dr("StatusDesc") = "Yes"
ElseIf dr("Status").ToString() = "0" Then
dr("StatusDesc") = "No"
End If
Next dr
da.Fill(ds, "erp")
Me.GridView2.DataSource = dt
Me.GridView2.DataBind()
conea.Close()
|
| |
|
|
| |
| Date :
2012-11-07 22:18:39 |
By :
Tamakochang |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณ คุณ Tammie มากนะคะ
ให้เพิ่ม
Code (VB.NET)
<asp:BoundField DataField="StatusDesc" HeaderText="Status">
<HeaderStyle Font-Bold="True" />
</asp:BoundField>
แทน
<asp:BoundField DataField="t_sinv" HeaderText="Status">
<HeaderStyle Font-Bold="True" />
</asp:BoundField>
.VB
แต่ว่าพอใส่แล้วมัน error อะค่ะ เนื่องจาก t_sinv คือฟิว ใน Database ของ ERP ถ้าลบออก Query ข้อมูลไม่มาเลยจ้า
ขอรบกวนช่วยบอกวิธีอีกทีน้า
ชอลคุณมากๆอีกครั้งจ้า
|
| |
|
|
| |
| Date :
2012-11-08 17:22:11 |
By :
Berrykitty |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
