主题：集合的行的数据写入问题，为什么写入不了？

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).Save
Next

 或者你自己测试这段代码

Dim drs As List(of DataRow) = DataTables("表A").SQLSelect("")  '找出表内行的集合
For n As Integer = 0 To drs.Count - 1 '遍历所有行
    drs(n)("第一列") = "aaaa"
    drs(n).Save
Next

DataTables("表A").LoadFilter = ""
DataTables("表A").Load