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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条件判断

共有7538人关注过本帖树形打印复制链接主题：[求助]条件判断

ntqhj

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

加好友

发短信

等级：一尾狐帖子：455 积分：2827 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2023/4/29 10:59:00 [只看该作者]

29楼的代码不行。要求是，符合条件的列才执行清空（如：针对合同号筛选后再清空），应该如何写这个代码？

有点蓝

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

加好友

发短信

等级：超级版主帖子：109347 积分：556379 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/29 11:43:00 [只看该作者]

Select

以集合的形式，返回所有符合指定条件的行。

语法：

Select(Filter)
Select(Filter,Sort)

Filter: 条件表达式，请参考表达式的运算符和函数和条件表达式。
Sort: 可选参数，指定排序方式

我们经常需要对符合某一条件的记录，统一进行处理，此时Select方法就派上用场了。

示例一

例如，对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.12，代码为：

Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")
For Each dr As Datarow In drs
dr("折扣") = 0.12
Next

ntqhj

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

加好友

发短信

等级：一尾狐帖子：455 积分：2827 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2023/5/7 15:57:00 [只看该作者]

Dim drs As List(Of DataRow)

drs = DataTables("接单明细表").Select("[内部合同号] = 'aaa' ")

For Each dr As DataRow In drs

dr("收入账户") = Nothing

dr("收款日期") = Nothing

[内部合同号] = 'aaa' ，这里的值aaa我将其固定了，可以实现功能，合同号有很多，如何按选定的合同号设置这个变量值？（这段代码做在窗口按钮上）

[此贴子已经被作者于2023/5/7 15:58:15编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：109347 积分：556379 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/5/7 20:51:00 [只看该作者]

drs = DataTables("接单明细表").Select("[内部合同号] = '" & tables("xxx表").current("xxl列") & "' ")

ntqhj

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

加好友

发短信

等级：一尾狐帖子：455 积分：2827 威望：0 精华：0 注册：2018/1/15 13:54:00

Post By：2023/5/16 14:07:00 [只看该作者]

示例代码。这里的第一条代码描述的是'如果内容发生变动的是产品列，想再加入一列日期列一并判断（如果发生变化的是产品列或日期列），代码应该如何修改？

If e.DataCol.Name = "产品名称" Then '如果内容发生变动的是产品列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是产品列的内容为空
        e.DataRow("单价") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[产品名称] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If