如何实现简单表格计算功能?

[wzy0001]

要求有一简单表格,表格比如有A,B,C,D,E,F,G这几列,要求在某一对话框内输入A,B,C,D后,在第一行的E,F,G能出现相应的计算结果,而计算公式是固定的,比如E=A+B,F=A*B,G=A+B+C+D.然后下次进入后在录入A,B,C,D各项数后,第二行的E,F,G又有结果了.请问,用什么方法可实现,是不是要用数据库的方法啊?我一点方向都没有,请高手指点一下,给点方向,我好自己去学!!!

[wqdz]

在窗体中创建一个按钮、一个表格（用到vsflexgrid控件、在论坛中找得到），然后将以下代码粘贴到代码窗中即可。

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
VSFlexGrid1.TextMatrix(0, 0) = "A"
VSFlexGrid1.TextMatrix(0, 1) = "B"
VSFlexGrid1.TextMatrix(0, 2) = "C"
VSFlexGrid1.TextMatrix(0, 3) = "D"
VSFlexGrid1.TextMatrix(0, 4) = "E"
VSFlexGrid1.TextMatrix(0, 5) = "F"
End Sub

Private Sub VSFlexGrid1_AfterRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long)
For i = 1 To VSFlexGrid1.Rows - 1
a = Val(VSFlexGrid1.TextMatrix(i, 0))
b = Val(VSFlexGrid1.TextMatrix(i, 1))
c = Val(VSFlexGrid1.TextMatrix(i, 2))
VSFlexGrid1.TextMatrix(i, 3) = a + b
VSFlexGrid1.TextMatrix(i, 4) = a * b
VSFlexGrid1.TextMatrix(i, 5) = a + b + c
Next i
For i = 1 To VSFlexGrid1.Rows - 1
For j = 0 To VSFlexGrid1.Cols - 1
If Val(VSFlexGrid1.TextMatrix(i, j)) = 0 Then VSFlexGrid1.TextMatrix(i, j) = ""
Next j
Next i

End Sub