Option Compare Database
Private Sub Command45_click()
共计.Value = Val(数值一.Value) + Val(数值二.Value) + Val(数值三.Value) + Val(数值四.Value) + Val(数值五.Value) + Val(数值六.Value) + Val(数值七.Value) + Val(数值八.Value) + Val(数值九.Value) + Val(数值十.Value)
End Sub
Private Sub Command29_click()
Text30.Value = 共计.Value
End Sub
Private Sub Command32_click()
Text33.Value = 共计.Value
End Sub
Private Sub Command35_click()
Text36.Value = 共计.Value
End Sub
Private Sub Command26_click()
Text27.Value = 共计.Value
End Sub
Private Sub Command42_click()
Text43.Value = (Text30.Value + Text33.Value + Text36.Value + Text27.Value)
End Sub