sqlSelect的行,不体现在你看到表格,操作的是后台的数据库,你必须充加载数据,才会看到的。
并且,你要save
Dim drs As List(of DataRow) = DataTables("表A").SQLSelect("[执行] = 1 ") '找出表内行的集合For n As Integer = 0 To drs.Count - 1 '遍历所有行 Dim aaa As Integer = drs(n)("基本收入") + drs(n)("外收入") drs(n)("实际数据") = aaa drs(n).SaveNext