Foxtable(狐表)用户栏目专家坐堂 → [求助]求一个简单的自动填表实例


  共有13809人关注过本帖树形打印复制链接

主题:[求助]求一个简单的自动填表实例

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/23 10:41:00 [显示全部帖子]

这样不报错:

 

Select Case e.DataCol.Name
    case "部门编码","部门名称"
        Dim dr As DataRow
        dim bm as string = currenttable.current("部门编码")
        Dim ls() as String
        ls = bm.split("-")
        If bm <> "" Then
            If ls.Length<=1 Then
                currenttable.current("部门全称") = currenttable.current("部门名称")
            Elseif ls.Length<=2 Then
                dr = DataTables("部门表").Find("部门编码 = '" & ls(0) & "'")
                if dr IsNot Nothing Then
                    currenttable.current("部门全称") = dr("部门名称") & "-" & currenttable.current("部门名称")
                End If
            ElseIf ls.Length<=3 Then
                dr = DataTables("部门表").Find("部门编码 = '" & ls(0) & "-" & ls(1) & "'")
                if dr IsNot Nothing Then
                    currenttable.current("部门全称") = dr("部门全称") & "-" & currenttable.current("部门名称")
                End If
            End if
        End If
End Select

[此贴子已经被作者于2010-5-23 10:46:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/24 8:32:00 [显示全部帖子]

楼主记得使用Datacolchanged事件的时候,一定要判断列名。

 

一定要判断列名!

不少人,特别是初学编程的人,没有在DataColChanged事件中判断列名的习惯,例如为了在订单表计算金额,往往只是在DataColChanged简单地写入代码:

Dim dr As DataRow = e.DataRow
dr(
"金额") = dr("数量") * dr("单价") * (1 - dr("折扣"))

这样可能会带来严重的后果,首先会导致重复的计算,因为数量、单价或折扣发生变化后,触发DataColChanged事件,计算得出新的金额,而金额列内容的变化,会再次触发DataColChanged事件,使得金额被重新计算一次;实际上其他不相关列,例如日期、客户、产品等列内容发生变化后,同样会触发DataColChanged事件,导致金额列被重新计算。

显然这样的代码,效率实在是太低,而且在机缘巧合的情况下,很可能会出现死循环,导致程序崩溃。

所以我们一定要养成良好的习惯,在编写DataColChanged事件代码时,判断发生变化列的名称,只有相关列发生变化时,才进行特定的重算工作。

例如:

Dim dr As DataRow = e.DataRow
Select
Case e.DataCol.Name
   
Case "数量","单价","折扣"
        dr(
"金额") = dr("数量") * dr("单价") * (1 - dr("折扣"))
End
Select

这节的内容不仅仅针对DataColChanged,实际上对于任何表事件都有效,例如DataColChaning、PrepareEdit、ValidateEdit、AfterEdit等等。


 回到顶部