Foxtable(狐表)用户栏目专家坐堂 → 数据合并显示


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

主题:数据合并显示

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


加好友 发短信
等级:婴狐 帖子:7 积分:126 威望:0 精华:0 注册:2016/2/1 10:59:00
数据合并显示  发帖心情 Post By:2019/5/13 11:06:00 [只看该作者]

问题描述:本人有两个表,表一(基础数据)和表二(订单)。两个表内有共同的列“系统编号”。目前,已实现在表二中的系统编号列输入系统编号,对应的基础数据自动从表一中提取。但表一中规格为三列“规格1”“规格2”“规格3”,但在表二中,规格合并为一列,即将表一中的三个规格数据用“*”连接,填入表二中规格这一列当中,表示形式为:“规格1”*“规格2”*“规格3”,如何实现?本人现在写的代码是:
If e.DataCol.Name = "L0" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow 
    dr = DataTables("GCYW_CJDD").Find("GCYW_CJDD_L0 = '" & e.DataRow("L0") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("L38")= dr("GCYW_CJDD_L12")
        e.DataRow("L4")= dr("GCYW_CJDD_L11")
        e.DataRow("L5")= dr("GCYW_CJDD_L6"&"*"&"GCYW_CJDD_L7"&"*"&"GCYW_CJDD_L8")
        e.DataRow("L6")= dr("GCYW_CJDD_L9")
    End If
End If
加横线的一行就是问题所在,请各位大神指点!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/13 11:15:00 [只看该作者]

 

e.DataRow("L5")= dr("GCYW_CJDD_L6") & "*" & dr("GCYW_CJDD_L7") & "*" & dr("GCYW_CJDD_L8")

 


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


加好友 发短信
等级:婴狐 帖子:7 积分:126 威望:0 精华:0 注册:2016/2/1 10:59:00
数据合并显示  发帖心情 Post By:2019/5/13 13:10:00 [只看该作者]

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2018.8.19.1
错误所在事件:
详细错误信息:
无法在 System.Single 和 System.String 上执行“*”操作。
 按照你的代码更改,提示这个,然后就崩溃了

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


加好友 发短信
等级:婴狐 帖子:7 积分:126 威望:0 精华:0 注册:2016/2/1 10:59:00
  发帖心情 Post By:2019/5/13 13:11:00 [只看该作者]

.NET Framework 版本:2.0.50727.8800
Foxtable 版本:2018.8.19.1
错误所在事件:
详细错误信息:
无法在 System.Single 和 System.String 上执行“*”操作。
崩溃了

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/5/13 14:44:00 [只看该作者]

 

请贴出完整代码,或者上传具体出错实例。

 

 


 回到顶部