以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于Eval应用问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18491)

--  作者:ywlin521
--  发布时间:2012/4/15 9:47:00
--  关于Eval应用问题

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

表A的DrawCell代码

e.Text = Eval(e.Row(e.Col.Name),e.Row)

 

第一行第一列的内容是1+5

第一行第七列=Eval([第一列])

第一行第八列=Eval([第七列])

结果第一行的第八列=空值

我的设计目标是等于第一列的值,不要用DataColChanged,因为是临时生成的表,如果用表达式列的话,第一行第一列的内容是1+5,表是临时生成的,应该怎么修改设计呢?


--  作者:狐狸爸爸
--  发布时间:2012/4/16 8:16:00
--  
Select Case e.Col.Name
    Case "第七列"
        If e.Row.IsNull("第一列") Then
            e.text = ""
        Else
            e.Text = Eval(e.Row("第一列"))
        End If
    Case "第八列"
        If e.Row.IsNull("第一列") Then
            e.text = ""
        Else
            Dim t As String = Eval(e.Row("第一列"))
            e.text = eval(t)
        End If
End Select

--  作者:ywlin521
--  发布时间:2012/4/16 16:28:00
--  

现在是这样,临时表是根据数据表生成的,都是以gz开头,如

gz表1,第七列=第一列+第二列,第八列=第七列+第三列

gz表2,第五列=第一列+第二列*第三列,第六列=第五列+第四列

。。。

并且列名又是不同(不要用表达式列实现,表达式列里面的函数和功能满足不了),应该怎么设计呢?