以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  麻烦检查一下这段代码有没有错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70960)
--  作者：qingwuzu
--  发布时间：2015/7/2 10:57:00
--  麻烦检查一下这段代码有没有错
想要计算 表 qykmx 里qykje 列的  统计来源是 skdjb 里面  bcyk列 的最后一次数据 qykmx 表的khmc列是没有重复的


If Tables("skdjb").count > 0 Then
    If e.DataCol.Name = "khmc" Then
        Dim a As DataRow = e.DataRow
        Dim b As String = e.OldValue
        Dim dr As DataRow = DataTables("skdjb").Find("khmc = \'" & b & "\'","zzrq desc")
        If e.NewValue = dr("khmc") Then
            e.DataRow("qykje") = dr("bcyk")
        End If
    End If
End If
--  作者：大红袍
--  发布时间：2015/7/2 11:04:00
--  

 报错？

 

If Tables("skdjb").count > 0 Then
    If e.DataCol.Name = "khmc" Then
        Dim a As DataRow = e.DataRow
        Dim b As String = e.OldValue
        Dim dr As DataRow = DataTables("skdjb").Find("khmc = \'" & b & "\'","zzrq desc")
        If dr IsNot Nothing Then
            If e.NewValue = dr("khmc") Then
                e.DataRow("qykje") = dr("bcyk")
            End If
        End If
    End If
End If
--  作者：qingwuzu
--  发布时间：2015/7/2 11:38:00
--  
.NET Framework 版本：2.0.50727.6400
Foxtable 版本：2014.11.11.1
错误所在事件：表，qykmx， DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

[此贴子已经被作者于2015/7/2 11:40:53编辑过]
--  作者：大红袍
--  发布时间：2015/7/2 11:41:00
--  
 2楼还报错？
--  作者：qingwuzu
--  发布时间：2015/7/2 11:42:00
--  
好了,谢谢