Foxtable(狐表) → 用户栏目 → 专家坐堂 → 将多个值组合成字符串赋值


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

主题：将多个值组合成字符串赋值
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/20 14:55:00 [显示全部帖子]

比如

 

If Forms("下采购订单").opened
    For Each dr2 As DataRow In DataTables("采购明细表").Select("[采购单号] = '" & Tables("下采购订单_table1").current("采购单号")  & "'")
        For Each dr As DataRow In DataTables("采购需求").Select(" [_Identify] = '" & dr2("行ID")  & "'")
            dr.Locked = False '解锁行
            dr2("审核") = True
            Dim drs = DataTables("采购明细表").Select("[行ID] = '" & dr2("行ID")  & "' and [审核] = 'true'")
            Dim ids As String = ""
            Dim dls As Double = 0
            For Each cdr As DataRow In drs
                ids &= cdr("采购单号") & ","
                dls += cdr("订料数")
            Next
           
            dr("订料数")=dls
            dr("采购单号") = ids.trim(",")
            dr.Locked = True '锁定行
            dr2.Locked = True
            dr.save()
        Next
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/21 17:15:00 [显示全部帖子]

改成这样

 

Dim drs = DataTables("物检入库明细表").Select("[行ID] = '" & val(dra1("行ID"))  & "' and [审核] = 'true'")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/21 17:33:00 [显示全部帖子]

以下是引用yetle在2018/11/21 17:29:00的发言：
还是一样啊，同样的代码放在另外一个窗口对采购订单的和采购需求，没有问题

 

那就修改这个代码

 

For Each dra1 As DataRow In DataTables("物检入库明细表").Select("[进仓单号] = '" & val(Tables("物检入库_table1").current("进仓单号"))  & "'")
    For Each dra As DataRow In DataTables("采购需求").Select("[_Identify] = '" & val(dra1("行ID"))  & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/21 17:50:00 [显示全部帖子]

1、贴出你最后写好的代码；

 

2、加上systemready试试；

 

http://www.foxtable.com/webhelp/scr/2218.htm

 

3、不会做实例发上来测试。肯定是你其余的代码有问题导致的
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 9:02:00 [显示全部帖子]

那试试加上systemready

 

SystemReady = false

 

'本来代码

 

SystemReady = true
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 9:35:00 [显示全部帖子]

以下是引用yetle在2018/11/22 9:27:00的发言：
没有起什么作用，提示照样弹出来了

 

不可能。具体实例发上来测试。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/22 10:02:00 [显示全部帖子]

以下是引用yetle在2018/11/22 9:59:00的发言：
能否远程连到我电脑看看，做一个实例估计不会，这段代码不止一个地方有用过

 

先加入msgbox定位出错位置。

 

http://www.foxtable.com/webhelp/scr/1485.htm

 

弹出对应的合成的条件，看看有什么异常。

 

如果自己确实无法调试，联系客服QQ800014337远程看一下
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询