Foxtable(狐表)用户栏目专家坐堂 → [求助]求大侠们帮忙写个代码,万分感激


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

主题:[求助]求大侠们帮忙写个代码,万分感激

帅哥哟,离线,有人找我吗?
yupoco
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:85 积分:630 威望:0 精华:0 注册:2012/12/4 18:52:00
[求助]求大侠们帮忙写个代码,万分感激  发帖心情 Post By:2012/12/29 18:33:00 [显示全部帖子]

有表A和表B两个表,表A是用来统计表B的数据
两表中都有日期列和商品编号,这两列作为分组列
当表B中新增行,填入日期和商品编号后,
如果表A中没有相同的行,就自动增加一行,并且将表B中的日期和商品编号自动填入
如果表A中有相同的行,就不执行
哪位大侠帮帮忙,我用数组和字典想了半天,还是搞不出来

 回到顶部
帅哥哟,离线,有人找我吗?
yupoco
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:85 积分:630 威望:0 精华:0 注册:2012/12/4 18:52:00
  发帖心情 Post By:2012/12/29 19:07:00 [显示全部帖子]

我是要进行分组统计,你这方法应该不行的!不过还是谢谢你

 回到顶部
帅哥哟,离线,有人找我吗?
yupoco
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:85 积分:630 威望:0 精华:0 注册:2012/12/4 18:52:00
  发帖心情 Post By:2012/12/29 22:40:00 [显示全部帖子]

狐爸,你的这个是对的,但是我的代码时间转换错误,find 语句里面的StrFind 参数,好像是字符型  
 
Select Case e.DataCol.name
    Case "日期","商品编号"
        Dim dr As DataRow = DataTables("每日清单").Find("日期 = #" & e.DataRow("日期") & "# " And "商品编号 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("库存").AddNew()
            dr("日期") = e.DataRow("日期")
            dr("商品编号") = e.DataRow("商品编号")
        End If
End Select

错误提示:
详细错误信息:
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.InvalidCastException: 从字符串“日期 = #2012/12/27# ”到类型“Long”的转换无效。 ---> System.FormatException: 输入字符串的格式不正确。


 回到顶部
帅哥哟,离线,有人找我吗?
yupoco
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:85 积分:630 威望:0 精华:0 注册:2012/12/4 18:52:00
  发帖心情 Post By:2012/12/29 22:40:00 [显示全部帖子]

这个应该怎么解决呢

 回到顶部