Dim fdr As Datarow = DataTables("表A").Find("", "扣率 desc")
fdr("销售金额") -= 1
fdr = DataTables("表A").Find("", "扣率")
fdr("销售金额") += 1
http://www.foxtable.com/help/topics/0396.htm