|
发表于 2009-2-26 13:07:34
|
显示全部楼层
来自: 中国辽宁营口
以Access为例,在用户窗体放置一个adodc控件,在过程中写入如下代码- Const 百分比 = 0.4
- d6 s& v6 t3 s# Z$ x - With UserForm1.Adodc11 Y6 s" R' ?0 F# d
- .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db1.mdb;Persist Security Info=False"
4 T) Z% R8 c- [9 _ j! l5 A- r( W - .RecordSource = "表1". B* i/ T( Q) E/ E
- .Refresh
2 |9 _, |% Z: i# J - With .Recordset
+ O1 s6 G% L' i1 i - Do Until .EOF
9 z& Z+ z, c: \( L - .Fields("税收") = .Fields("工资") * 百分比
* C1 U9 z& k3 x( A% M - .MoveNext
/ c% @. @1 [5 k* F - Loop, F+ J o9 {# ~0 s0 U, ^ o) i& J
- End With
( U/ X" Q, @$ @8 T+ Z: U3 ]. | - End With
复制代码 |
评分
-
查看全部评分
|