Dim ......,变数A, ....
RS.Open "SELECT TOP 1 ...............,[栏位A]
.....
变数A = RS (6)
.....
先宣告变数

变数A = FuntionA (某变数, 某变数, 某变数, 变数A)
这变数由这Funtion计算

Conn.Execute "UPDATE TOP (1) [资料表] SET ....... [栏位A]=" & minimum(变数A,999999999) & " ....
写入这栏位

Function FuntionA (变数1, 变数2, 变数3, 变数4)
.....
.....(计算很长 先略过)
End Function

原先程式已离职了公司解散.... 是委外厂商的 ~惨~
我现在的栏位A会变成0 某些 并非全部 这是我找到可能异常的地方
我有将资料库直接KEY数值 最后还是归0 更确定经过计算变0
后面接手实在不清楚原先写程式的意思
不晓得这样资讯够不够帮我研判问题所在??

^^. 看不太懂 有详细资讯吗？