|
发表于 2009-2-26 13:07:34
|
显示全部楼层
来自: 中国辽宁营口
以Access为例,在用户窗体放置一个adodc控件,在过程中写入如下代码- Const 百分比 = 0.40 T; W j d% \, K$ M, `
- With UserForm1.Adodc1
" x" H3 r* F, U - .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
1 L6 N" [* E" W, m b/ z& z - .RecordSource = "表1"+ z$ O3 ~' D2 Y! J
- .Refresh7 t: C; f7 o% N" V8 N
- With .Recordset
7 @' l: S1 K0 c2 n - Do Until .EOF
. E+ C5 i' o6 d - .Fields("税收") = .Fields("工资") * 百分比
) H" O& r" Z$ M* k% G" n$ g - .MoveNext
1 e0 t; n, ]0 E- f9 G" r5 H8 c( z - Loop
$ p. y4 s5 a( W - End With
: g d+ @. Z( E- s$ J3 p - End With
复制代码 |
评分
-
查看全部评分
|