[求助]数据引用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据引用问题

共有4325人关注过本帖树形打印复制链接主题：[求助]数据引用问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/18 9:31:00 [显示全部帖子]

如果是数值类型，是不能存放和现实字符 / 的，只能也留空，如

If DataTables("检测信息表").DataRows(0)("平整度设计值") = Nothing The

DataTables("平整度").ReplaceFor("设计值_平整度", Nothing)

Else

DataTables("平整度").ReplaceFor("设计值_平整度", DataTables("检测信息表").DataRows(0)("平整度设计值"))

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/18 9:32:00 [显示全部帖子]

如果想数值类型，也显示 / 的话，需要drawcell处理，如

http://www.foxtable.com/webhelp/scr/2262.htm

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/18 18:06:00 [显示全部帖子]

If e.DataCol.name = "设计值_平整度" OrElse e.DataCol.name = "注释" Then
    If e.DataRow("设计值_平整度") = Nothing Then
        e.DataRow("单段判定_平整度") = "/"
    Else
        If e.DataRow("注释").length >= 1 Then
            e.DataRow("单段判定_平整度") = e.DataRow("注释")
        Else
            If e.DataRow("平整度") > e.DataRow("设计值_平整度") Then
                e.DataRow("单段判定_平整度") = "不合格"
            Else
                e.DataRow("单段判定_平整度") = "合格"
            End If
        End If
    End If
End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/19 20:34:00 [显示全部帖子]

这句代码删除

DataTables("平整度").ReplaceFor("设计值_平整度", DataTables("检测信息表").DataRows(0)("平整度设计值") )

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/19 21:07:00 [显示全部帖子]

先删除后测试速度。如果确定是这句代码影响的，就删除。

换一种方式，在【检测信息表】表的datacolchanged事件写这句代码。

下一主题 >> << 上一主题

主题：[求助]数据引用问题