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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助][原创]窗口表错误查询

共有4744人关注过本帖树形打印复制链接主题：[求助][原创]窗口表错误查询

Phoebe_fdk

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

加好友

发短信

等级：幼狐帖子：124 积分：1218 威望：0 精华：0 注册：2013/7/19 22:07:00

[求助][原创]窗口表错误查询 发帖心情

Post By：2014/1/20 17:13:00 [只看该作者]

在窗口中设置了一个表控件，normal类型，生成标题行后导入数据，这时根据规则设置了错误信息，如何办法对这些错误信息数量进行统计？另外，这种类型的表在窗口中没有事件属性，如何实现对错误信息更改后立即进行规则验证？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/20 17:15:00 [只看该作者]

这时根据规则设置了错误信息，如何办法对这些错误信息数量进行统计？

前提你先得让我们知道你是如何实现的.

你可以把normal类型改为SQLTABLE或者SQLQUERY

最好能发个例子上来

Phoebe

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

加好友

发短信

等级：婴狐帖子：15 积分：152 威望：0 精华：0 注册：2009/8/17 18:10:00

Post By：2014/1/20 18:27:00 [只看该作者]

错误信息的设置是通过SetError的方式，

For Each dr As DataRow in DataTables("订单").DataRows
if dr("折扣") = 0 then

dr.SetError("折扣 ","错误提示内容")

else

dr.SetError("折扣 ","")

其中，“订单”表为窗口Normal类型，也可以改为其它类型

现想通过判断窗口表中是否存在错误提示（统计错误提示数量）来实现下一步操作？

Phoebe_fdk

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

加好友

发短信

等级：幼狐帖子：124 积分：1218 威望：0 精华：0 注册：2013/7/19 22:07:00

Post By：2014/1/22 0:28:00 [只看该作者]

以下是引用Phoebe在2014-1-20 18:27:00的发言：
错误信息的设置是通过SetError的方式，

For Each dr As DataRow in DataTables("订单").DataRows
if dr("折扣") = 0 then

dr.SetError("折扣 ","错误提示内容")

else

dr.SetError("折扣 ","")

其中，“订单”表为窗口Normal类型，也可以改为其它类型

现想通过判断窗口表中是否存在错误提示（统计错误提示数量）来实现下一步操作？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/1/22 8:39:00 [只看该作者]

看了一下,没有全局的判断方法.那只能循环遍历来判断了.

Dim IsHaveErr As Boolean=False

For Each dr As DataRow In DataTables("表A").DataRows

For Each dc As DataCol In DataTables("表A").DataCols

If dr.GetError(dc.name) <> "" Then

IsHaveErr =True

Exit For

End If

MessageBox.show(IsHaveErr )

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/1/22 8:52:00 [只看该作者]

Dim i As Integer
For Each dr As DataRow In DataTables("订单").DataRows
    If dr("折扣") = 0 Then
        dr.SetError("折扣","错误提示内容")
        i + = 1
    Else
        dr.SetError("折扣","")
    End If
Next
Output.Show(i)

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

主题：[求助][原创]窗口表错误查询