先看看:
http://www.foxtable.com/webhelp/topics/1522.htm
Select Case e.DataCol.Name
Case "合同编号","含税金额"
Dim dr As DataRowdr = DataTables("外包合同").Find("[合同编号] = '" & e.DataRow("合同编号") & "'")
if dr isnot nothing andalso dr("审定金额") <> 0 then
e.datarow("进度") = e.datarow("含税金额") / dr("审定金额") ens if
End Select