还是出现没有定义的信息,能否恳请大红袍老师帮我修改(附上所有的代码),另外还有一个问题是,若是所有表内记录没有改变,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
[此贴子已经被作者于2015/10/10 22:23:29编辑过]