以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判定条件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=32072)
--  作者：caiyt0
--  发布时间：2013/4/25 11:27:00
--  判定条件
 

dim f As New Filler
f.SourceTable = DataTables("订单") \'指定数据来源
f.SourceCols = "产品,客户" \'指定数据来源列
f.DataTable = DataTables("统计") \'指定数据接收表
f.DataCols = "产品,客户" \'指定数据接收列
f.Fill() \'填充数据

 

我要加入一个判定条件，逻辑列“审核”为Trun的才能进行导入，语句该怎么写

[此贴子已经被作者于2013-4-25 11:31:23编辑过]
--  作者：XYT
--  发布时间：2013/4/25 11:35:00
--  

If e.Col.name = "审核" Then
    For Each dr As DataRow In e.Row.DataRow.GetChildRows("订单明细")
        If dr("审核") = True Then
            

 

            Exit For
        End If
    Next
End If
--  作者：caiyt0
--  发布时间：2013/4/25 11:50:00
--  
以下是引用XYT在2013-4-25 11:35:00的发言：

If e.Col.name = "审核" Then
    For Each dr As DataRow In e.Row.DataRow.GetChildRows("订单明细")
        If dr("审核") = True Then
            

 

            Exit For
        End If
    Next
End If

我输了却显示下面内容，这是什么情况

 


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
--  作者：XYT
--  发布时间：2013/4/25 11:53:00
--  
你是在哪里输的，不一定要一样的，要根据你的需求
--  作者：caiyt0
--  发布时间：2013/4/25 13:39:00
--  
以下是引用XYT在2013-4-25 11:53:00的发言：
你是在哪里输的，不一定要一样的，要根据你的需求

在按钮的CLICK里面输的
--  作者：狐狸爸爸
--  发布时间：2013/4/25 13:46:00
--  

按钮的Click事件，可能不能e.Col
e.Col表示触发事件行，和按钮没有关系。

这样就行了：



dim f As New Filler
f.SourceTable = DataTables("订单") \'指定数据来源
f.SourceCols = "产品,客户" \'指定数据来源列
f.DataTable = DataTables("统计") \'指定数据接收表
f.DataCols = "产品,客户" \'指定数据接收列
f.Filter = "逻辑列 = True"
f.Fill() \'填充数据