none
想请教有关 count 的问题 RRS feed

  • 问题

  • 我篇写了有关将product add 进 shopping scart的program。我在user 加product 进cart时出现 count 一直无法+1 的存放数据以下是我的代码。想请各位大大指点指点。

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim A As Double
            Dim B As Double
            Dim C As Double

            A = CDbl(TextBox1.Text)
            B = CDbl(TextBox2.Text)
            C = CDbl(TextBox3.Text)

            CART()

            'Count Part'
            Dim Deduct_A_QTY As String = TextBox1.Text
            Dim Deduct_C_Price As String = TextBox2.Text
            Dim DEDUCT As Integer = 1

            Try
                If TextBox1.Text = "0" Then
                    MessageBox.Show("OUT OF STOCK")
                    Exit Sub
                End If
                For A = 0 To CInt(A) 'total qty'
                Next A

            Catch ex As Exception

            End Try

            TextBox1.Text = CStr(CDbl(Deduct_A_QTY) - DEDUCT)
            TextBox3.Text = CStr(C - B)

        End Sub
        'DIRECT SAVE TO DATABASE '
        Private Sub CART()
            Dim A As Integer 'A 值呈现在 Textbox1.Text
            Dim B As Double

            A = CInt(TextBox1.Text) 'QTY
            B = CDbl(TextBox2.Text) 'SINGEL PRICE

            Dim A1 As Integer = 0 ' qty product 
            'Count Part'
            Dim ADD_T_QTY As String = TextBox4.Text
            Dim ADD_T_Price As String = TextBox5.Text

            TextBox5.Text = CStr(0)
            ADD_T_QTY = CStr(Int(0))

            Dim Counter As Integer
            Dim Sum As Double

            Try
                If TextBox1.Text = "0" Then
                    '   MessageBox.Show("OUT OF STOCK")
                    Exit Sub
                Else
                    Counter = Counter + 1
                    Sum = CDbl(ADD_T_QTY)

                    For i = 1 To Counter

                        TextBox4.Text = CStr(Counter + Sum)
                        TextBox5.Text = CStr(CDbl(ADD_T_Price) + B)
                    Next i

                End If


            Catch ex As Exception

            End Try
        End Sub

    此外我想请教一些问题

    我有三个data table 分别是product,cart, payment

    如果user将product add 进cart 后并且存放在名为cart 的 data table后。

    在经过1分钟后如果user没有将cart 的database add 进 payment data table 的话。存放在cart data table  的所有数据将会自动加回进product table 的话。

    想问除了这方法还有什么更好的方法吗?

    谢谢



    2021年2月5日 5:57

全部回复

  • Hi christing,

    似乎你没有将 counter定义为全局变量,

    试试:

        Private Counter As Integer
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       '....

    >> 在经过1分钟后如果user没有将cart 的database add 进 payment data table 的话。存放在cart data table  的所有数据将会自动加回进product table 的话。

    如果要设置方法在固定时间后执行,可以用:

    Task.Delay(TimeSpan.FromMinutes(1)).ContinueWith(Function(t) yourMethod)

    希望对你有帮助。

    Best Regards,

    Xingyu Zhao



    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    2021年2月5日 7:28
    版主