主题：增加数据表行数据的问题

For Each dr As DataRow In DataTables("会计科目").Select("[科目编码] = '"& lst.Table.Current("会计科目编码") &"'")
    dr("一级科目") = lst.Table.Current("功能类科目名称")
    dr("二级科目")= lst.Table.Current("支出性质分类_一级科目")
    dr("三级科目")= lst.Table.Current("支出性质分类_二级科目")
    dr("四级科目")= lst.Table.Current("经济分类_一级科目")
    dr("五级科目") = lst.Table.Current("经济分类_二级科目")
    dr("六级科目")= lst.Table.Current("经济分类_三级科目")
Next

改成

DataTables("会计科目").LoadFilter = ""

DataTables("会计科目").Load

For Each dr As DataRow In DataTables("会计科目").Select("[科目编码] = '"& lst.Table.Current("会计科目编码") &"'")
    dr("一级科目") = lst.Table.Current("功能类科目名称")
    dr("二级科目")= lst.Table.Current("支出性质分类_一级科目")
    dr("三级科目")= lst.Table.Current("支出性质分类_二级科目")
    dr("四级科目")= lst.Table.Current("经济分类_一级科目")
    dr("五级科目") = lst.Table.Current("经济分类_二级科目")
    dr("六级科目")= lst.Table.Current("经济分类_三级科目")
Next

多一行空行和上面的代码无关

或者是，先试试

DataTables("会计科目").LoadFilter = ""

DataTables("会计科目").Load(False)