还是行不通
【外部数据表】的表属性的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
添加 Dim ls = vars("ls") 和添加 Dim ls as List(of String) = vars("ls") 都不对
添加第一个语句:提示编译错误,Variable 'ls' hides a variable in an enclosing block
添加第二个语句,在运行时提示没有定义‘ls’
(我附上了最后一次能正确运行的代码,以便老师就直接用上述代码修改)
[此贴子已经被作者于2015/10/9 21:05:41编辑过]