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

汗

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