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

1、直接用sql语句删除和新增。类似

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52855&skin=0

2、如果用你原来的方法，就在beforeSaveDataRow事件写代码显示即可；如果用1的方法，直接循环每一行时，就显示出来。

去编写beforeSaveDataRow事件，在里面弹出当前行的姓名即可。

不是这样写，就两行代码。保存之前，把提示窗口打开，save之后，把提示窗口关闭。

If Forms("提示").Opened Then

    Forms("提示").Controls("Label1").Text = e.DataRow("姓名")

    Application.DoEvents()

End If

你还是用循环每一行，然后每一行单独save才行，不然，foxtable是一起保存，也控制不了提示。如

For Each dr As DataRow In DataTables("表A").DataRows
    dr.save
Next

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

static ls As new List(of String)
If Forms("提示").Opened Then
    Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")
   
    ls.add(e.DataRow("_Identify"))
    If ls.count > 5 Then
        ls.RemoveAt(0)
    End If
    Dim str As String = String.Join(vbcrlf, ls.ToArray)
   
    txt.Text = str
    Application.DoEvents()
End If

要vars变量。

save之前，vars("ls") = new List(of String)

beforeSaveDataRow事件代码，把 ls 改成 vars("ls")

If Forms("提示").Opened Then

    Dim ls = vars("ls") 
    Forms("提示").Controls("Label1").Text = "共" & RowQty & "条记录,下面开始保存......"
    Dim txt As Winform.TextBox = Forms("提示").Controls("TextBox1")
    ls.add( "完成" & RowQty & "--" & e.DataRow("编号") & ": " & e.DataRow("姓名") & "......保存完毕")
    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()
End If

不 可 能 报错，报什么错

汗

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