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,037

HOME > .NET Framework > Forum > สอบถามคำสั่ง Sql ในการดึงข้อมูลมาแสดงใน DataGridView มาลงบัญชี เดบิตเครดิต ด้วยครับ เขียนโปรเจ็กจบครับ (win app) VB.Net



 

สอบถามคำสั่ง Sql ในการดึงข้อมูลมาแสดงใน DataGridView มาลงบัญชี เดบิตเครดิต ด้วยครับ เขียนโปรเจ็กจบครับ (win app) VB.Net

 



Topic : 059209



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



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



ช่วยแนะนำการนำเอาดาต้ากิตวิวมาลงบัญชี เดบิตเครดิต ด้วยครับ
เขียนโปรเจ็กจบครับ



win app VB.Net

ผมเขียนโค้ดดังนี้
Code (VB.NET)
 Private Sub btnsell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsell.Click
        Dim strConn As String
        strConn = DBConnString.strConn

        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        Try
            ds.Clear()
            Dim sqlStr As String






          sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumDR],sum ([nettotal]) as [sumCR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"








            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "Mapping")
            DataGridView1.DataSource = ds.Tables("Mapping")

            Dim SumDR As Double = 0
            Dim SumCR As Double = 0
            For i = 0 To DataGridView1.Rows.Count - 1
                SumDR += CDbl(DataGridView1.Rows(i).Cells(7).Value)
                SumCR += CDbl(DataGridView1.Rows(i).Cells(6).Value)
            Next
            txtsumCR.Text = SumCR.ToString("#,##0.00")
            txtsumDR.Text = SumDR.ToString("#,##0.00")
            txtD.Text = CStr(CInt(txtsumDR.Text) - CInt(txtsumCR.Text))

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Failed!", MessageBoxButtons.OK)
        End Try
     
        Conn.Close()
    End Sub



ภาพที่ได้มา

คือเวลาลงบัญชีมานต้องเกิดค่าทั้งทางฝั่ง เดบิต และเครดิต ในที่นี้คือบัญชีขาย ที่ผมทำ พอขายของจะลงบัญชีเป็น
เดบิต ขาย
เครดิต เิงินสด

แต่ค่าตัวเลข มานขึ้นทั้ง 2 ฝั่งเลย ผม่ไม่ทราบคำสั่งที่ทำให้มันแยกกันอะครับ

สิ่งที่ได้


สิ่งที่ต้องการ

สิ่งที่ต้องการ



Tag : .NET, MySQL, Ms SQL Server 2008, Win (Windows App), VB.NET









ประวัติการแก้ไข
2011-04-26 11:47:22
2011-04-26 13:02:30
2011-04-26 13:27:47
2011-05-01 12:33:21
2011-05-01 12:34:06
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-04-26 11:43:53 By : optimut View : 4014 Reply : 13
 

 

No. 1



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



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


ลองทำการ Select สองครั้งดูยังครับ ผมแนะนำเฉยๆนะไม่แน่ใจว่าทำได้ป่าว






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-26 15:22:31 By : chopin
 


 

No. 2



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



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

ช่วยด้วยคับผมทำไม่เป็นจริงๆ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-29 07:54:49 By : optimut
 

 

No. 3



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


พอขายของได้ มันต้องลงบัญชีเป็น
เดบิต เงินสด
เครดิต ขาย
มิใช่เหรอ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-29 10:28:32 By : watcharop
 


 

No. 4



โพสกระทู้ ( 1,348 )
บทความ ( 1 )



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


ผมเห็น
บัญชีขาย 1 1 1 12
บัญชีเงินสด 1 1 1 19
ทำให้เข้าใจว่า ทั้ง 2 บัญชีอยู่ในหมวดเดียวกัน คือหมวดสินทรัพย์
ซึ่งความจริงแล้ว บัญชีขาย ไม่ได้อยู่ในหมวดสินทรัพย์นะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-29 10:35:45 By : watcharop
 


 

No. 5

Guest


credit-debit

ทดลองรันที่ Microsoft SQL Server Management Studio นะคะ
Code (C#)
USE [test] -- << Change to your database name
GO

/* ===== BEGIN CREATION SECTION ==== */

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Debit]') AND type in (N'U'))
DROP TABLE [dbo].[Debit]
GO

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[Debit](
	[id] [int] IDENTITY(1,1) NOT NULL,
	[active_date_time] [DateTime] NULL,
	[value] [Money] NULL,
	[opcode] [varchar](10) NULL,
	[account] [varchar](50) NULL
	)

GO

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Credit]') AND type in (N'U'))
DROP TABLE [dbo].[Credit]
GO

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[Credit](
	[id] [int] IDENTITY(1,1) NOT NULL,
	[active_date_time] [DateTime] NULL,
	[value] [Money] NULL,
	[opcode] [varchar](10) NULL,
	[account] [varchar](50) NULL 
	)

GO

/* ===== END CREATION SECTION ==== */


/* ===== BEGIN INITIALIZED SECTION ==== */

INSERT INTO [Debit] ([active_date_time] ,[value] ,[opcode],[account] )
VALUES ( CAST('2011-02-11T14:05:00' AS DATETIME) ,1000 ,'cash' ,'12100'),
	   ( CAST('2011-02-24T09:30:00' AS DATETIME) ,7000 ,'cash' ,'12100'),
       ( CAST('2011-08-17T11:10:23' AS DATETIME) ,2100 ,'cash' ,'12100'); 
       
INSERT INTO [Credit] ([active_date_time] ,[value] ,[opcode],[account] )
VALUES ( CAST('2011-01-05T09:12:00' AS DATETIME) ,8000 ,'cash' ,'12100'),
       ( CAST('2011-01-08T15:11:00' AS DATETIME) ,1200 ,'cash' ,'12100'),
	   ( CAST('2011-02-10T14:20:00' AS DATETIME) ,2200 ,'cash' ,'12100'),
	   ( CAST('2011-02-25T13:59:00' AS DATETIME) ,3200 ,'cash' ,'12100'),
       ( CAST('2011-10-07T10:09:00' AS DATETIME) ,8200 ,'cash' ,'12100');       
       
/* ===== END INITIALIZED SECTION ==== */

SELECT [active_date_time] 
	,[value] AS [debit_value] ,NULL AS [credit_value]
	,[opcode] ,[account]
FROM [debit]
WHERE [account] = '12100'

UNION

SELECT [active_date_time] 
	,NULL AS [debit_value] ,[value] AS [credit_value]
	,[opcode] ,[account]
FROM [credit]
WHERE [account] = '12100'

ORDER BY [active_date_time] ;

/* ===== END ===== */

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Credit]') AND type in (N'U'))
DROP TABLE [dbo].[Credit]
GO


IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[Debit]') AND type in (N'U'))
DROP TABLE [dbo].[Debit]
GO


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-29 14:33:49 By : สาวเอ๋อ
 


 

No. 6



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



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

ขอบคุณครับ จะลองทำดู ไปปฏิบัติธรรมา มาเลยไม่ได้เข้ามาดู ขอให้บุญกุศล ที่ข้าพระเจ้าได้ทำได้ส่งผมให้ผู้ที่ช่วยข้าพระเจ้ามีความสุขความเจริญด้วยเทอญ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-29 22:38:43 By : optimut
 


 

No. 7

Guest


ไม่เป็นรัยค่ะ ทำบุญกรวดน้ำอยู่เกือบทุกวันอยู่แล้ว เก็บเอาไว้เถอะค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-04-30 12:02:32 By : สาวเอ๋อ
 


 

No. 8



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



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

แต่ที่ผมทำ ผมดึง ค่ารวมยอดมาจาก table ขาย รวมไว้ไนฟิล nettotal ดึงมา map กับผังบัญชี แล้วเอามาลง G V ทางฝัง DR และ CR

ไม่ได้มี tabal แยกเป็น DR CR อะคับ


Code (VB.NET)
sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
sqlStr += ",sum ([nettotal]) as [sumDR],sum ([nettotal]) as [sumCR]"
sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"



ประวัติการแก้ไข
2011-05-01 12:34:46
2011-05-01 12:35:31
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-01 12:31:49 By : optimut
 


 

No. 9

Guest


เขียนให้ดูเป็นตัวอย่างว่ามันทำได้ลักษณะไหนค่ะ
เพราะคุณเองก้อไม่ได้แจง table แจงกระบวนการคิดแนบมาเลย
ถ้าจะให้แกะคงไม่แกะมาตอบให้หรอกมังคะ เพราะออกแบบฐานข้อมูลมาคนละแนวคิด
ตัวอย่างทำให้ดูง่ายๆ เพื่อให้แนวทางน่ะค่ะให้ทำให้เลยคงไม่ใช่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-01 15:06:39 By : สาวเอ๋อ
 


 

No. 10



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



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

Code (VB.NET)
 Try
            ds.Clear()
            Dim sqlStr As String
            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumDR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(12)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "sell")
            dtSell = ds.Tables("sell")
            DataGridView1.DataSource = ds.Tables("Mapping")


            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumCR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(19)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "Cash")
            dtCash = ds.Tables("Cash")
            DataGridView1.DataSource = ds.Tables("Mapping")


            Dim dt As New Data.DataTable("GL")
            dt.Columns.Add("AccNoType1_ID", GetType(System.String))
            dt.Columns.Add("AccNoType2_ID", GetType(System.String))
            dt.Columns.Add("AccNoType3_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_Name", GetType(System.String))

            'Dim i As String
            For i As Int16 = 0 To ds.table("Sale").rows.count(-1)
              dtSell    = ds.table("Sale").rows(i).("nettotal").tostring
              dtCash    = ds.table("Cash").rows(i).("nettotal").tostring
            Next


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-02 12:06:37 By : optimut
 


 

No. 11



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



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

Code (VB.NET)
 Dim dtSale, dtCash As New DataTable

        Dim strConn As String
        strConn = DBConnString.strConn

        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        Try
            ds.Clear()
            Dim sqlStr As String
            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumDR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(12)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "sell")
            dtSale = ds.Tables("sell")



            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumCR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(19)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "Cash")
            dtCash = ds.Tables("Cash")



            Dim dt As New Data.DataTable("Mapping")
            dt.Columns.Add("AccNoType1_ID", GetType(System.String))
            dt.Columns.Add("AccNoType2_ID", GetType(System.String))
            dt.Columns.Add("AccNoType3_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_Name", GetType(System.String))

            'Dim i As String
            For i As Int16 = 0 To ds.table("nettotal").rows.count(-1)
                dtSale = ds.table("Sale").rows(i)("nettotal").tostring
                dtCash = ds.table("Cash").rows("nettotal").tostring

            Next

            DataGridView1.DataSource = ds.Tables("Mapping")


            Dim SumDR As Double = 0
            Dim SumCR As Double = 0
            For i = 0 To DataGridView1.Rows.Count - 1
                SumDR += CDbl(DataGridView1.Rows(i).Cells(7).Value)
                SumCR += CDbl(DataGridView1.Rows(i).Cells(6).Value)
            Next
            txtsumCR.Text = SumCR.ToString("#,##0.00")
            txtsumDR.Text = SumDR.ToString("#,##0.00")
            txtD.Text = CStr(CInt(txtsumDR.Text) - CInt(txtsumCR.Text))





        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Failed!", MessageBoxButtons.OK)
        End Try
     
        Conn.Close()
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-02 12:44:35 By : optimut
 


 

No. 12



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



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

Code (VB.NET)
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing.Drawing2D
Imports System.Globalization

Public Class frmGeneralLedger
    Dim Conn As SqlConnection
    Dim com As SqlCommand
    Dim tr As SqlTransaction
    Dim ds As DataSet = New DataSet
    Dim cmd As SqlCommand = New SqlCommand
    Dim da As SqlDataAdapter
    Dim tmpMSG As String = ""
    Dim sqlPV As SqlDataAdapter
    Dim sb As New StringBuilder
    Dim dtfInfo As DateTimeFormatInfo



    Private Sub frmLedger_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dtfInfo = DateTimeFormatInfo.InvariantInfo
    End Sub

    Private Sub btnProduct_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProduct.Click
        Dim strConn As String
        strConn = DBConnString.strConn

        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        Try
            ds.Clear()
            Dim sqlStr As String
            sqlStr = "Select pt.[AccNoType1_ID], pt.[AccNoType2_ID], pt.[AccNoType3_ID], pt.[AccNoType4_ID],[AccNoType4_Name]"
            sqlStr += ",sum([DiscountPrice]) as [DiscountPrice]"
            sqlStr += "FROM [SellDetail]sd left join [Product] pd on sd.[ProductID] = pd.[ProductID]"
            sqlStr += "left join [ProductType] pt on pt.[ProductTypeID] = pd.[ProductTypeID]"
            sqlStr += "left join [Sells] s on sd.[sellID] = s.[sellID]"
            sqlStr += "left join [AccNoType4] a4 on pt.[AccNoType4_ID]=a4.[AccNoType4_ID]"
            sqlStr += " Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "' And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "Group by pt.[AccNoType1_ID],pt.[AccNoType2_ID],pt.[AccNoType3_ID],pt.[AccNoType4_ID],[AccNoType4_Name]"
            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "SellDetail")
            DataGridView1.DataSource = ds.Tables("SellDetail")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Failed!", MessageBoxButtons.OK)
        End Try
        Conn.Close()
    End Sub
 

    Private Sub btnsell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsell.Click


        Dim dtSale, dtCash As New DataTable

        Dim strConn As String
        strConn = DBConnString.strConn

        Conn = New SqlConnection()
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With
        Try
            ds.Clear()
            Dim sqlStr As String
            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumDR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(12)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "sell")
            dtSale = ds.Tables("sell")



            sqlStr = "Select mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name] "
            sqlStr += ",sum ([nettotal]) as [sumCR]"
            sqlStr += "FROM [Mapping] mp left join [AccNoType4] a4 on mp.[AccNoType4_ID] = a4.[AccNoType4_ID]"
            sqlStr += "left join [Sells] s on s.[Mapping_ID] = mp.[Mapping_ID]"
            sqlStr += "Where SellDate Between '" & DateTimePicker1.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And '" & DateTimePicker2.Value.ToString("d", dtfInfo) & "'"
            sqlStr += "And  mp.[AccNoType4_ID]=(19)"
            sqlStr += "Group by mp.[AccNoType1_ID],mp.[AccNoType2_ID],mp.[AccNoType3_ID],mp.[AccNoType4_ID],[AccNoType4_Name]"

            da = New SqlDataAdapter(sqlStr, Conn)
            da.Fill(ds, "Cash")
            dtCash = ds.Tables("Cash")

            Dim dt As New Data.DataTable("show")
            dt.Columns.Add("AccNoType1_ID", GetType(System.String))
            dt.Columns.Add("AccNoType2_ID", GetType(System.String))
            dt.Columns.Add("AccNoType3_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_ID", GetType(System.String))
            dt.Columns.Add("AccNoType4_Name", GetType(System.String))
            dt.Columns.Add("sumCR", GetType(System.String))
            dt.Columns.Add("sumDR", GetType(System.String))

            For i As Int16 = 0 To ds.table("Sale").rows.count(-1)
                dtSale = ds.table("Sale").rows(i)("nettotal").tostring
                dtCash = ds.table("Cash").rows("nettotal").tostring

            Next

            DataGridView1.DataSource = dt

            Dim SumDR As Double = 0
            Dim SumCR As Double = 0
            For i = 0 To DataGridView1.Rows.Count - 1
                SumDR += CDbl(DataGridView1.Rows(i).Cells(7).Value)
                SumCR += CDbl(DataGridView1.Rows(i).Cells(6).Value)
            Next
            txtsumCR.Text = SumCR.ToString("#,##0.00")
            txtsumDR.Text = SumDR.ToString("#,##0.00")
            txtD.Text = CStr(CInt(txtsumDR.Text) - CInt(txtsumCR.Text))





        Catch ex As Exception
            MessageBox.Show(ex.Message, "Connection Failed!", MessageBoxButtons.OK)
        End Try
     
        Conn.Close()
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-05-02 13:00:45 By : optimut
 


 

No. 13

Guest


เลือกรูปภาพใส่โปรแกรม VB2010

คือหนูต้องการเขียนโปรแกรม VB2010 แล้วอยากให้มีรูปภาพโชว์ขึ้นมาด้วย แบบตัวอย่างนี้นะค่ะ
แต่หนูไม่รู้จะเขียนโค้ดยังงัย มีโค้ดให้หนูดูเป็นตัวอย่างได้ไหมค่ะ ขอบคุณล่วงหน้าค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-06-20 09:46:12 By : รสรินทร์ ปุริธรรมเม
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : สอบถามคำสั่ง Sql ในการดึงข้อมูลมาแสดงใน DataGridView มาลงบัญชี เดบิตเครดิต ด้วยครับ เขียนโปรเจ็กจบครับ (win app) VB.Net
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 05
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 อัตราราคา คลิกที่นี่