目标独佔的表名是"进度"
已在"进度"表加上 "编辑者"列
4段代码如下:
1. 项目事件 AfterOpenProject
DataTables("进度").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("进度").Save()
Tables("进度").Cols.Remove("编辑者") '移除编辑者列,避免用户直接修改此列
2.表事件 StartEdit
If e.Row("编辑者") = User.Name Then '如果编辑者是当前用户
Return
End If
Dim cmd As New SQLCommand
Dim exp As String = "编辑者 Is Null And [_Identify] = " & e.Row("_Identify")
cmd.CommandText = "Update {进度} Set 编辑者 = '" & User.Name & "' Where " & exp
If cmd.ExecuteNonQuery = 1 Then
e.Row("编辑者") = User.Name
Else
cmd.CommandText = "Select 编辑者 From {进度} Where [_Identify] = " & e.Row("_Identify")
Dim nm As String = cmd.ExecuteScalar
If nm > "" Then
MessageBox.show(nm & "正在编辑此行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
MessageBox.show("此行可能已经被删除,无法编辑!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
e.Cancel = True '取消编辑
End If
3.DataRowAdding
e.DataRow("编辑者") = User.name
4.BeforeSaveDataRow
If e.DataRow.RowState = DataRowState.Added Then '如果是新增行
e.DataRow("编辑者") = Nothing
Else
Dim cmd As New SQLCommand
Dim exp As String = "[_Identify] = " & e.DataRow("_Identify")
cmd.CommandText = "Update {进度} Set 编辑者 = Null Where [_Identify] = " & e.DataRow("_Identify")
If cmd.ExecuteNonQuery = 1 Then
e.DataRow("编辑者") = Nothing
End If
End If
是在帮助里看到,依著步來做的,当中是把 帮助里的"员工"表名 改成"进度"
我是外部数据表的.
[此贴子已经被作者于2013-5-12 18:48:16编辑过]
加好友 
发短信
Post By：2013/5/2 4:18:00 [显示全部帖子]
此主题相关图片如下：bug1.jpg
