입력 방법에 관한 프로그램

[심심해]

이프로그램은 견적서를 만들려고 하는 프로그램입니다.
공급가액 = 규격 * 수량 * 단가
부가세액 = 공급가액 / 10
합계금액 = 공급가액 + 부가세액
참고로 Form1은 입력하는 창이고욤 Form2는 grid 창입니다.

그런데 Form2.grd1.TextMatrix(i, 5) = Val(txt2.Text * txt3.Text * txt4.Text) '공급가액
이 부분에서 형식이 일치하지 않는다는 에러가 발생합니다.
그리고 한번 입력하면 첫 행부터 마지막 행까지 똑같이 반복되어 나오거든요
한 행 입력하고 나면 다음행도 입력할 수 있게 힌트좀 주세요..
횐님들 좀 부탁드릴게욤

Private Sub Form_Load()
Dim i As Integer
Dim 규격 As Double
Dim 수량 As Double
Dim 단가 As Double
Dim 공급가액 As Double
Dim 부가세액 As Double
Dim 청구금액 As Double


규격 = Val(txt1.Text)
수량 = Val(txt2.Text)
단가 = Val(cbo2.Text)
공급가액 = 규격 * 수량 * 단가


With cbo2
.AddItem "하역비(LUMPSUM)"
.AddItem "하역비"
.AddItem "톤수미달"
.AddItem "창보상일용"
.AddItem "겸창보상일용"
.AddItem "NO HOOK"
.AddItem "PALLET"
.AddItem "선별보상일용"
.AddItem "이적및난작업"
.AddItem "혹한보상일용"
.AddItem "컨테이너적입보상일용"
.AddItem "컨테이너적출보상일용"
.AddItem "야간보상일용"
.AddItem "공휴일(국경일)보상일용"
.AddItem "청소일용"
.AddItem "우천보상일용"
End With

End Sub

Private Sub cmd1_Click()
Form1.Hide
Form2.Show

For i = 1 To 15
Form2.grd1.TextMatrix(i, 0) = Val(txt1.Text) '번호
Form2.grd1.TextMatrix(i, 1) = cbo2.Text '항목
Form2.grd1.TextMatrix(i, 2) = Val(txt2.Text) '규격
Form2.grd1.TextMatrix(i, 3) = Val(txt3.Text) '수량
Form2.grd1.TextMatrix(i, 4) = Val(txt4.Text) '단가
Form2.grd1.TextMatrix(i, 5) = Val(txt2.Text * txt3.Text * txt4.Text) '공급가액
Form2.grd1.TextMatrix(i, 6) = Val((txt2.Text) * (txt3.Text) * (txt4.Text) / 10) '부가세액
Form2.grd1.TextMatrix(i, 7) = Val((txt2.Text) * (txt3.Text) * (txt4.Text)) + ((txt2.Text) * (txt3.Text) * (txt4.Text) / 10) '합계금액
Next i
txt1.Text = ""
cbo2.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""

End Sub
많이 허접합니다. 회원여러분들의 한 수 부탁드릴게욤

[VB도사]

일단 지금 상태로는 입력값을 어떤값이 주어지는 지 알수 없어 테스트를 못해보겠습니다. 단 형식이 일치하지 않는다는 메세지를 봐하니 숫자끼리의 곱인데 문자가 포함되지 않았나 생각드는 군요. 자세한 걸 원하시면 소스 전체를 올려주셔야 어디서 어떤 경우에 오류가 발생했는지를 알 수 있습니다. 그럼이만

[심심해]

가르켜 주셔서 감사함다. 형식이 일치하지 않는다는 것은 제가 해결햇고욤. 제일 중요한것은 form1에서입력형태를 for ~ next문을 써서 햇는데도 첫번째를 입력하며 1번 부터 15번까지 똑같이 입력이 됩니다. form2에서 grid형태를 취하고 form1에서 text형식으로 입력하려고 하거든요 그런데 위에 보신것처럼 입력형태

[심심해]

가 첫번째것을 입력하고 나면 다음 줄에는 다른것이 입력되어서 grid에서 첫행과 둘째행이 달라야 하는데 첫행 입력하고 나면 15번째 행까지 똑같이 내용이 grid에 입력이 됩니다. 그것이 똑같이 반복되지 않도록 하는 방법을 갈켜주시면 고맙겟습니다. 지금 3주째 고민중임다. 머리가 나쁜지, 잘안되네욤..

[VB도사]

똑같이 반복된다는게 어뜻보기엔 cbo2.text의 값이 동일하다는 말인것 같습니다. 맞나요? 만약에 이거라면 cbo2.list(i)로 바꿔 보세요. cbo2,text는 그냥 텍스트일 뿐이고 list(i)는 등록된 List의 i값에 따라 변경됩니다. 도움이 되시길 바랍니다.

[심심해]

신경써주셔서 감사하구요 근데 제가 반복된다는 것은 2번쩨 cbo2.text만 반복되는 것이 아니고 예를 들어 1, 하역비, 1, 250, 20000 을 이렇게 입력하면요 첫번째 행만 입력되어야하는데 전체 내용이 첫행부터 마지막행까지 똑같이 1, 하역비, 1, 250, 20000 이렇게 나타나거든욤

[심심해]

이것을 어떻게하면 반복이 안될 수 있는지 방법좀 부탁드려옴, 자꾸 불편하게 해드려서 미안해욤

[VB도사]

그런 반복이라면 당연히 15번 반복되죠. 왜냐면 Form2.grd1에 프린팅하기전 for문을 보면 1부터 15까지 반복하도록 되어 있잖아요. 그러니까 15번 똑같은 값을 찍는겁니다. 왜 for i =1 to 15가 있는진 모르지만 반복을 제거하려면 이것부터 수정해야 할것 같습니다.

[VB도사]

여담으로 값을 입력할 때 마다 계산해서 그리드에 프린팅하고 싶다면 따로 폼을 만들지 말고 하나의 폼에 입력항목과 그리드를 만들고 버튼 클릭이 발생할때 그리드에 값을 계산해서 프린팅하면 좋겠네요.. ㅋㅋ. 정진하세요