Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据填充器 出现异常


  共有3954人关注过本帖树形打印复制链接

主题：数据填充器 出现异常
美女呀，离线，留言给我吧！
zhangning
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		数据填充器 出现异常  发帖心情 Post By：2016/11/29 15:33:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理2016.zip

开发者   密码：qdkf
需要在“对账确认”表的“订单号”列导入 “发货单”中“订单号”内容，
参考帮助中的数据填充器写了编码，具体如下：
datacolchanged 
Dim f As New Filler
f.SourceTable = DataTables("发货单") '指定数据来源
f.SourceCols = "订单号" '指定数据来源列
f.DataTable = DataTables("对账确认") '指定数据接收表
f.DataCols = "订单号" '指定数据接收列
f.Append = True
f.Fill() '填充数据

但是不填充，请老师帮看看，错在哪里？
谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/29 15:37:00 [显示全部帖子]

想让“订单数量”或“已发货总数量”为空值时，“納品済”为不选中，
同样已发货总数量"或"对账总数量"为空值时，“对账完毕”为不选中，
但是，还是选中了，是以下代码，也烦请老师帮看看错在哪里？谢谢！



If e.DataCol.Name = "订单号"  Then
    Dim Filter As String = "[订单号] = '" & e.DataRow("订单号") & "'"
    e.DataRow("订单数量") = DataTables("订单").Compute("Sum(订单数量)", Filter)
    e.DataRow("已发货总数量") = DataTables("发货单").Compute("Sum(发货数量)", Filter)
    e.DataRow("对账总数量") = DataTables("对账单").Compute("Sum(对账数量)", Filter)
End If
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "订单数量","已发货总数量"
        If dr("订单数量") Is Nothing Or dr("已发货总数量") Is Nothing Then
            dr("納品済") = False
        Else
            If dr("订单数量") = dr("已发货总数量") Then
                dr("納品済") = True
            Else
                dr("納品済") = False
            End If
        End If
    Case  "已发货总数量","对账总数量"
        If dr("已发货总数量") Is Nothing Or dr("对账总数量") Is Nothing Then
            dr("对账完毕") = False
        Else
            If dr("已发货总数量") = dr("对账总数量") Then
                dr("对账完毕") = True
            Else
                dr("对账完毕") = False
            End If
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/29 15:55:00 [显示全部帖子]

如要在“对账确认”表中插入一行，狐表就会退出
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 11:27:00 [显示全部帖子]

感谢老师，解决了

 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 11:32:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理2017.zip
开发者   qdkf
想在“对账确认”表中根据订单号在“对账单”出现的顺序，相对应的“对账月”和“对账数量”自动放入

比如，第一次出现的，就放入第一次对账相应的列中，烦请老师帮谢谢代码，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 13:23:00 [显示全部帖子]

太给力了，完美解决，谢谢老师

 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 14:04:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理窗口.zip
开发者  qdkf
建立了对账窗口，新人不会写代码，能否麻烦老师帮写写，谢谢老师，麻烦了
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 14:48:00 [显示全部帖子]

老师：想在对账订单笔数：后边自动显示出满足检索条件的笔数，
在对账总金额处显示出满足检索条件的总金额，

不知道代码怎么写，麻烦老师帮帮忙，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/11/30 14:56:00 [显示全部帖子]

还有写检索条件时：
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "第一次对账_对账月 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "第一次对账_对账月 <= #" & .Value & "#"
    End If
End With

如何将第二次对账_对账月 第三次对账_对账月 第四次对账_对账月  写进条件里呢？
 回到顶部
美女呀，离线，留言给我吧！
zhangning
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：513 积分：3355 威望：0 精华：0 注册：2016/4/14 16:56:00 		  发帖心情 Post By：2016/12/1 10:18:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：截图2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图1.png
图片点击可在新窗口打开查看
在窗口中 编写代码，“对账订单笔数”处是要根据客户和对账月的筛选条件来统计，不论是不是同一订单号，
只要在第一次对账，第二次对账，第三次对账或第四次对账中出现一次，就算一笔，
将统计结果显示在“对账订单笔数”后面。

另外“对账总金额”处，需要根据客户和对账月的筛选条件来统计总金额，也需要将统计结果显示在“对账总金额”后面

现尝试在“统计”按钮写的代码是
Dim Total As Integer
Dim Amount As Double
With DataTables("对账确认")
    Total = .Compute("count(第一次对账_对账数量)")
    Amount = .Compute("Sum(第一次对账_对账金额)")
End With
Output.Show("对账订单笔数:" & Total)
Output.Show("对账总金额:" & Amount)

没有反应，也没有与检索条件挂钩， 之后就不会了，烦请老师帮写写代码呗，拜托了！
 回到顶部
总数 26 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 8 次数据查询