djhooman
پنج شنبه 25 اسفند 1390, 01:22 صبح
سلام
همونطور که میدونید طبق قانون مالیات بر ارزش افزوده ، هر سال 1 درصد به نرخ مالیات بر ارزش افزوده ، اضافه می شود .
سال 89 = 3%
سال 90 = 4%
سال 91 = 5%
و .......
من توی برنامم مجبور شدم تو دیتابیسم یع قسمت بذارم توش درصد مالیات ارزش افزوده وارد بشه ...
یعنی یه فرم دارم ، فیلد ارزش افزوده رو از دیتاست کشیدم و وارد فرم کردم .
حالا میخوام مقدار ارزش افزوده ای که تو فرم هام اتوماتیک محاسبه میشه ، با توجه به آخرین تغییر روی فیلد ارزش افزودم مححاسبه بشه ...
یعنی اگه یه رکورد با مبلغ 1000 ریال وارد شد الان که 4 % هستش ارزش افزودش رو 1040 ریال محاسبه کنه و اگر مقدار ارزش افزوده رو به مثلا 5% تغییر دادیم مبلغ به 1050 تغییر کنه ...
من این کد و استفاده کردم اما نشد ...
Dim tanzimateasli As New TanzimateAsli
Me.ArzeshAfzoodeLabel1.Text = (Me.MablaghTextBox.Text) * (tanzimateasli.ArzeshAfzoodeTextBox.Text) / 100
اررور زیر رو میده : Conversion from string "" to type 'Double' is not valid
در ضمن ، DataType ام از جنس nVarchar هستش ...
از کد زیر هم استفاده کردم و دوباره اررور بالا رو داد ...
Me.ArzeshAfzodeLabel1.Text = CType(Val(Me.MablaghTextbox.Text) * (Me.tanzimateasli.arzeshafzoodetextbox.text), Integer)
همونطور که میدونید طبق قانون مالیات بر ارزش افزوده ، هر سال 1 درصد به نرخ مالیات بر ارزش افزوده ، اضافه می شود .
سال 89 = 3%
سال 90 = 4%
سال 91 = 5%
و .......
من توی برنامم مجبور شدم تو دیتابیسم یع قسمت بذارم توش درصد مالیات ارزش افزوده وارد بشه ...
یعنی یه فرم دارم ، فیلد ارزش افزوده رو از دیتاست کشیدم و وارد فرم کردم .
حالا میخوام مقدار ارزش افزوده ای که تو فرم هام اتوماتیک محاسبه میشه ، با توجه به آخرین تغییر روی فیلد ارزش افزودم مححاسبه بشه ...
یعنی اگه یه رکورد با مبلغ 1000 ریال وارد شد الان که 4 % هستش ارزش افزودش رو 1040 ریال محاسبه کنه و اگر مقدار ارزش افزوده رو به مثلا 5% تغییر دادیم مبلغ به 1050 تغییر کنه ...
من این کد و استفاده کردم اما نشد ...
Dim tanzimateasli As New TanzimateAsli
Me.ArzeshAfzoodeLabel1.Text = (Me.MablaghTextBox.Text) * (tanzimateasli.ArzeshAfzoodeTextBox.Text) / 100
اررور زیر رو میده : Conversion from string "" to type 'Double' is not valid
در ضمن ، DataType ام از جنس nVarchar هستش ...
از کد زیر هم استفاده کردم و دوباره اررور بالا رو داد ...
Me.ArzeshAfzodeLabel1.Text = CType(Val(Me.MablaghTextbox.Text) * (Me.tanzimateasli.arzeshafzoodetextbox.text), Integer)