主题：保存外部数据的小问题

汗

vars("ls") = new List(of String)

-------------

Dim RowQty As Integer
RowQty = DataTables("个人基本信息").DataRows.Count  '当前表的总行数

Dim ls = vars("ls")
If Forms("提示").Opened Then    '事先必须建立【提示】窗体
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,开始保存......"  

    Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")  
     ls.add( "第" & e.DataRow("编号") & "条记录: " & e.DataRow("姓名") & "......." & Format( val(e.DataRow("编号"))/RowQty,"0.0%") & " ......保存完毕")
    If ls.count > 22 Then
        ls.RemoveAt(0)      '删除ls的第一个值
    End If
    Dim str As String = String.Join(vbcrlf, ls.ToArray)
    txt.Text = str
    Application.DoEvents()
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,向服务器保存数据完毕,准备关闭......"
End If

运行时，提示：未定义变量 ls ,不好意思，实在不知道怎么修改，请大红袍老师见谅，

上楼提到的 vars("ls") = new List(of String) 是放在 save之前的吗？

还是出现没有定义的信息，能否恳请大红袍老师帮我修改（附上所有的代码），另外还有一个问题是，若是所有表内记录没有改变，save便不执行，如果改变了部分记录，则save时则仅显示改变了的记录的姓名，如何能获得被改变或的记录条数呢？（若修改的记录数i=0,则不打开【提示】窗口了，若i>0,则在【提示】窗口里显示相关i的信息）
或是改变了

1、保存按钮的代码：

forms("提示").open
For Each dr As DataRow In DataTables("个人基本信息").DataRows
    dr.save
Next
2、表属性beforeSaveDataRow事件代码：

Dim RowQty As Integer
RowQty = DataTables("个人基本信息").DataRows.Count  '当前表的总行数

static ls As new List(of String)
If Forms("提示").Opened Then    '事先必须建立【提示】窗体
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,开始保存......"  
    Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")   
    ls.add( "第" & e.DataRow("编号") & "条记录: " & e.DataRow("姓名") & "......." & Format( val(e.DataRow("编号"))/RowQty,"0.0%") & " ......保存完毕")
    If ls.count > 22 Then
        ls.RemoveAt(0)      '删除ls的第一个值
    End If
    Dim str As String = String.Join(vbcrlf, ls.ToArray)
    txt.Text = str
    Application.DoEvents()
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,向服务器保存数据完毕,准备关闭......"
End If

vars("ls") = new List(of String)

forms("提示").open
vars("count") = 0
For Each dr As DataRow In DataTables("个人基本信息").DataRows
    If dr.RowState <> DataRowState.Unchanged Then
        vars("count") += 1
    End If
Next
For Each dr As DataRow In DataTables("个人基本信息").DataRows
    If dr.RowState <> DataRowState.Unchanged Then
        dr.save
    End If
Next

Dim RowQty As Integer = vars("count")

Dim ls = vars("ls")
If Forms("提示").Opened Then    '事先必须建立【提示】窗体
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,开始保存......"  

    Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")  
     ls.add( "第" & e.DataRow("编号") & "条记录: " & e.DataRow("姓名") & "......." & Format( val(e.DataRow("编号"))/RowQty,"0.0%") & " ......保存完毕")
    If ls.count > 22 Then
        ls.RemoveAt(0)      '删除ls的第一个值
    End If
    Dim str As String = String.Join(vbcrlf, ls.ToArray)
    txt.Text = str
    Application.DoEvents()
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,向服务器保存数据完毕,准备关闭......"
End If

1、你用的什么版本的foxtable，请更新最新版。

2、要不你就这样写