001.***ส่วน Lable of ListView จะได้รู้ว่ามี Column อะไรบ้าง
002.***เขียนตั้งแต่ตอนต้นของ Code อยู่แล้ว
003.Private Sub lblvDetail()
004. With Me.lsvData
005. .Columns.Add("Seq.", 35, HorizontalAlignment.Center)
006. .Columns.Add("Item Code", 130, HorizontalAlignment.Left)
007. .Columns.Add("Item Description", 300, HorizontalAlignment.Left)
008. .Columns.Add("Comment Description", 850, HorizontalAlignment.Left)
009. .Columns.Add("Cust Id.", 100, HorizontalAlignment.Left)
010. .Columns.Add("Cust Name", 100, HorizontalAlignment.Left)
011. .Columns.Add("Cust Province", 100, HorizontalAlignment.Left)
012. .Columns.Add("Cust Region", 100, HorizontalAlignment.Left)
013. .Columns.Add("Cust Channel", 100, HorizontalAlignment.Left)
014. .Columns.Add("Cust Sale", 100, HorizontalAlignment.Left)
015. .Columns.Add("Date Contact", 100, HorizontalAlignment.Left)
016. .Columns.Add("Contact Name", 100, HorizontalAlignment.Left)
017. .Columns.Add("Contact Position", 100, HorizontalAlignment.Left)
018. .Columns.Add("Comment Type", 100, HorizontalAlignment.Left)
019. .View = View.Details
020. .GridLines = True
021. .FullRowSelect = True
022. .MultiSelect = False
023. .Scrollable = True
024. End With
025. End Sub
026.******************************************************************************
027.
028.Dim CnCrm As New SqlConnection(ConLUFVAN)
029.Dim nTr As SqlTransaction
030.Dim sBCustomer As New StringBuilder
031.If MessageBox.Show(QuestionSave, SystemName, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
032.
033. DateWork = Date.Now.ToString("yyyy-MM-dd hh:mm:ss")
034.
035. CnCrm.Open()
036. nTr = CnCrm.BeginTransaction
037. Try
038. Dim DocNo As String = RunNo2("CUSTOMERCOMMENT") & SystemType & sUserId
039.
040. sBCustomer.Remove(0, sBCustomer.Length)
041. sBCustomer.Append("INSERT INTO [Tsn.CustomerComment](docno,docseq,docdate,")
042.
043. sBCustomer.Append("customercode,customername,customerregion,customerchannel,customerprovince,customersale,customercontact,")
044.
045. sBCustomer.Append("contactdate,commenttype,productcode,productname,commentdesc,")
046.
047. sBCustomer.Append("docstatus,datework,userwork,customercontactposition) ")
048. sBCustomer.Append("VALUES (@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9,@p10,@p11,")
049. sBCustomer.Append("@p12,@p13,@p14,@p15,@p16,@p17,@p18,@p19)")
050. Dim Str As String = sBCustomer.ToString
051. Dim cmd As New SqlCommand(Str, CnCrm, nTr)
052.
053. cmd.Transaction = nTr
054. cmd.Parameters.Clear()
055. cmd.Parameters.Add("@p1", SqlDbType.VarChar)
056. cmd.Parameters.Add("@p2", SqlDbType.Int)
057. cmd.Parameters.Add("@p3", SqlDbType.Date)
058. cmd.Parameters.Add("@p4", SqlDbType.VarChar)
059. cmd.Parameters.Add("@p5", SqlDbType.VarChar)
060. cmd.Parameters.Add("@p6", SqlDbType.VarChar)
061. cmd.Parameters.Add("@p7", SqlDbType.VarChar)
062. cmd.Parameters.Add("@p8", SqlDbType.VarChar)
063. cmd.Parameters.Add("@p9", SqlDbType.VarChar)
064. cmd.Parameters.Add("@p10", SqlDbType.VarChar)
065. cmd.Parameters.Add("@p11", SqlDbType.Date)
066. cmd.Parameters.Add("@p12", SqlDbType.VarChar)
067. cmd.Parameters.Add("@p13", SqlDbType.VarChar)
068. cmd.Parameters.Add("@p14", SqlDbType.VarChar)
069. cmd.Parameters.Add("@p15", SqlDbType.VarChar)
070. cmd.Parameters.Add("@p16", SqlDbType.VarChar)
071. cmd.Parameters.Add("@p17", SqlDbType.DateTime)
072. cmd.Parameters.Add("@p18", SqlDbType.VarChar)
073. cmd.Parameters.Add("@p19", SqlDbType.VarChar)
074.
075. With lsvData
076. For i As Integer = 0 To .Items.Count - 1
077. Dim DocSeq As Integer = CInt(.Items(i).SubItems(0).Text)
078. Dim ProdCode As String = .Items(i).SubItems(1).Text
079. Dim ProdName As String = .Items(i).SubItems(2).Text
080. Dim CustomerComment As String = .Items(i).SubItems(3).Text
081. Dim CustomerCode As String = .Items(i).SubItems(4).Text
082. Dim CustomerName As String = .Items(i).SubItems(5).Text
083. Dim CustomerProvince As String = .Items(i).SubItems(6).Text
084. Dim CustomerRegion As String = .Items(i).SubItems(7).Text
085. Dim CustomerChannel As String = .Items(i).SubItems(8).Text
086. Dim CustomerSale As String = .Items(i).SubItems(9).Text
087. Dim ContactDate As String = .Items(i).SubItems(10).Text
088. Dim CustomerContact As String = .Items(i).SubItems(11).Text
089. Dim CustomerContactPosition As String = .Items(i).SubItems(12).Text
090. Dim CommentType As String = .Items(i).SubItems(13).Text
091.
092. cmd.Parameters("@p1").Value = DocNo
093. cmd.Parameters("@p2").Value = DocSeq
094. cmd.Parameters("@p3").Value = Date.Now.ToString("yyyy-MM-dd")
095. cmd.Parameters("@p4").Value = CustomerCode
096. cmd.Parameters("@p5").Value = CustomerName
097. cmd.Parameters("@p6").Value = CustomerRegion
098. cmd.Parameters("@p7").Value = CustomerChannel
099. cmd.Parameters("@p8").Value = CustomerProvince
100. cmd.Parameters("@p9").Value = CustomerSale
101. cmd.Parameters("@p10").Value = CustomerContact
102. cmd.Parameters("@p11").Value = ContactDate
103. cmd.Parameters("@p12").Value = CommentType
104. cmd.Parameters("@p13").Value = ProdCode
105. cmd.Parameters("@p14").Value = ProdName
106. cmd.Parameters("@p15").Value = CustomerComment
107. cmd.Parameters("@p16").Value = "0"
108. cmd.Parameters("@p17").Value = DateWork
109. cmd.Parameters("@p18").Value = sUserFull
110. cmd.Parameters("@p19").Value = CustomerContactPosition
111.
112. cmd.ExecuteNonQuery()
113. Next
114. End With
115.
116. nTr.Commit()
117. CnCrm.Close()
118. cmd.Dispose()
119. sBCustomer = Nothing
120.
121. MessageBox.Show(SaveSuccess, SystemName, MessageBoxButtons.OK, MessageBoxIcon.Information)
122. Catch ex As Exception
123. nTr.Rollback()
124. MessageBox.Show(SaveDontSuccess & ex.Message, SystemName, MessageBoxButtons.OK, MessageBoxIcon.Information)
125. End Try
126. End If
