|
发表于 2009-2-26 13:07:34
|
显示全部楼层
来自: 中国辽宁营口
以Access为例,在用户窗体放置一个adodc控件,在过程中写入如下代码- Const 百分比 = 0.47 ?+ D& x1 Z" U
- With UserForm1.Adodc1% a. w& F9 n+ L5 K" v' g
- .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
' y9 J1 e4 C+ K1 c9 Q% N8 s+ a# e# p - .RecordSource = "表1"' l6 |! L7 M' Q
- .Refresh
4 [3 ~- a) a; ]5 R1 { - With .Recordset% `2 ?) [ G6 Y, N- ~0 v6 D2 E8 X
- Do Until .EOF2 Z- I7 ^& F; K0 ~* B1 d+ x, T, L
- .Fields("税收") = .Fields("工资") * 百分比
# t2 i4 y4 H, L; i6 k - .MoveNext, l" a; `' M% e; V. z
- Loop1 ^5 ~! S5 ~2 q5 \6 j
- End With
( \! T; X/ x9 i' S; V2 ~ - End With
复制代码 |
评分
-
查看全部评分
|