主题：请教：这段代码为何要点二次才能刷新

无论怎么，点两次才刷新是绝对没有道理的，不妨来个简单的示例试试？

请看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:简单示例.table

我有一个本办法：所有代码外套循环语句！

怎么套？

是在窗口中修改的话:

原: Dim drs As List(of DataRow) = DataTables(Vars("表名")).Select("工号 <> ''")   改为:
Dim drs As List(of DataRow) = DataTables("XC_帐套默认_Table1").Select("工号 <> ''")

原: DataTables(Vars("表名")).Save()     改为:
DataTables("XC_帐套默认_Table1").Save()        

For i As Integer = 0 To 1
    DataTables(Vars("表名")).Save()
    Tables("项目总表").Filter = "[表名] = '" & Vars("表名") & "'And [公式] <> ''"
    Dim drs As List(of DataRow) = DataTables(Vars("表名")).Select("工号 <> ''")
    Dim s2,s3 As String
    For i As Integer = 0 To Tables("项目总表").Count-1    '=这段是计算原来的AA表 AA表的数据并没有修改过!
       
        For Each dr As DataRow In drs     '=因为这个dr是AA表的
            s2=Tables("项目总表")(i,"列名")
            s3=Tables("项目总表")(i,"公式")
            dr(""& s2 &"")= Eval(s3,dr)        '=所以这个结果还是原来AA表的!~
        Next
    Next
    DataTables(Vars("表名")).Save()    '=又保存原来的数据
    Tables(Vars("表名")).DataTable.Load()    '=这段代码还是加载原来没有修改过的数据
   
    Tables("XC_帐套默认_Table1").Fill("Select * From {"& Vars("表名") &"}",False)   '=这里又fill回来了原来的数据
    If DataTables("XC_帐套默认_Table1").DataCols.Contains("日期") Then
        Tables("XC_帐套默认_Table1").Cols("日期").Visible = False
        Tables("XC_帐套默认_Table1").Cols("部门").Width = 120
    End If
   
    For Each dc As DataCol In DataTables(Vars("表名")).DataCols
        IF DataTables(Vars("表名")).DataCols(dc.Name).AllowEdit = False
            DataTables("XC_帐套默认_Table1").DataCols(dc.Name).AllowEdit = False
        End If
    Next
Next
MessageBox.Show("数据已刷新!", "提示")
Tables("项目总表").Filter = ""

没看您的文件，估计是逻辑有问题，上面的方法只是效率有些低！

估计您的DataTables(Vars("表名")).Save()此时的Vars("表名")等于XC_帐套默认_Table1导致的逻辑（循环逻辑）错误！

程版:  你这样循环100次,结果也是一样的~  呵呵.