主题：对用户编辑修改动作的记录跟踪

对楼主和c版的代码增加加一个  if.....end if  。 不然("操作记录") 列中每行因为【& Chr(13) & Chr(10) &】都有个‘小空行’（当然，就希望如此的话，就别加了～  呵呵 ）
Dim dr As DataRow = e.DataRow
if e.DataCol.Name <> "操作记录" Then
    If dr.RowState <> DataRowState.Added '如果不是新增加的行
        If dr("操作记录") = "" then      
            dr("操作记录") = date.Now & "  【" & User.Name & "】将 〖" & e.DataCol.Name & "〗中的 <" & dr(e.DataCol.Name) & "> 修改成了 <" & e.NewValue & ">"
        else
            dr("操作记录") = dr("操作记录") & Chr(13) & Chr(10) & date.Now & "  【" & User.Name & "】将 〖" & e.DataCol.Name & "〗中的 <" & dr(e.DataCol.Name) & "> 修改成了 <" & e.NewValue & ">"
        End If
    End If
End If

另外，操作记录 列是不是用一个 操作记录 表来替代更好（还可定期清理掉）。～ 这也有利于恢复到修改前的状况，且第一次保存前根本不需要记录的～ ······对不？

请教 : 下面代码（原想放在datacolchanged里，但项目崩溃了）应该放在那个事件中，或代码要怎么改？
If e.DataCol.Name = "字母列" Then    
    Dim s1 As String = currenttable(CurrentTable.Position,"字母列")   
    currenttable(CurrentTable.Position,"字母列") = s1.ToUpper()      ‘小写字母转成大写～
End If

ok！  谢谢啊～ 

－尾巴太多了，谁都可以拽一拽的，也说明不足也会多啊，所以拼命地长尾巴～     呵呵！
－我是从零学起，跟着你、版主、还有论坛里许多好手、狐友们一点点地学，断断续续都快一年了，你看【幼、童狐】都可以开始做软件了，说明你给地‘职称’不准确啊！～ 
－我还不能编程，有不少概念还是糊涂的，反应慢啊，连你地更新速度都赶不上呢，现在学到的都是零零散散的东西，慢慢积累吧～ 直到我也能编个小程序什么的就好了（准备你推出商业或开发板后）。