Dim r As Row = Tables("S理赔单查询_Table1").current
r("状态") = “完成”
datTables("S理赔单查询_Table1").save()
r.Remove()