Foxtable(狐表)用户栏目专家坐堂 → GetComboListString 的运用


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

主题:GetComboListString 的运用

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


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
GetComboListString 的运用  发帖心情 Post By:2018/9/15 14:11:00 [只看该作者]

If e.IsFocusCell Then
    If e.Col.Name = "批号" Then
        e.Col.Combolist = DataTables("批号表").GetComboListString("批号", "[物料编号] =  '" & e.Row("物料编号") & "'")
    End If
End If

以上代码是在“出入库”之prepareedit里面用来显示“批号表”里面的“批号”的。现在我希望把“批号表”里面的“库存数量”也同时显示出来,方便看某个批号还有多少库存数量,代码该如何修改(希望将批号和库存数量用一个“-”把它们分割开来)?谢谢。

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/15 14:54:00 [只看该作者]

If e.IsFocusCell Then
    If e.Col.Name = "批号" Then
        e.Col.Combolist = DataTables("批号表").GetComboListString("批号+'-' + 库存数量", "[物料编号] =  '" & e.Row("物料编号") & "'")
    End If
End If

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


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2018/9/15 15:48:00 [只看该作者]

.NET Framework 版本:2.0.50727.8793
Foxtable 版本:2017.3.18.1
错误所在事件:表,出入库,PrepareEdit
详细错误信息:
调用的目标发生了异常。
无法找到列 批号 + '-' + 库存数量。

按照你给的代码,会出现上述警告。

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


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/15 16:04:00 [只看该作者]

e.Col.Combolist = DataTables("批号表").SqlGetComboListString("批号+'-' + 库存数量", "[物料编号] =  '" & e.Row("物料编号") & "'")

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


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2018/9/15 17:19:00 [只看该作者]

批号表里面的批号是20180901,库存数量是3360,我希望的结果是"20180901-3360"这个字符串,而实际的结果是20177541(即20180901-3360的计算结果),这不是我要求的结果。要如何修改代码?

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


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

方法一:批号表加入一列表达式列,把批号和库存数量合并起来,如公式 批号+'-' + 库存数量

 

然后,代码改成

 

If e.IsFocusCell Then
    If e.Col.Name = "批号" Then
        e.Col.Combolist = DataTables("批号表").GetComboListString("表达式列", "[物料编号] =  '" & e.Row("物料编号") & "'")
    End If
End If
 
方法二:如4楼那样写代码,代码肯定没问题的,如果有问题,实例发上来测试。

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


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2018/9/17 15:04:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:getcombolist的运用.zip


请看我们的测试结果。

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


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

实例发上来测试。不可能的。

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


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2018/9/17 15:58:00 [只看该作者]

我可以用QQ传吗?这里很难上传文件。

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


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

以下是引用edisontsui在2018/9/17 15:58:00的发言:
我可以用QQ传吗?这里很难上传文件。

 

单独做一个新的项目发上来测试,不要整个项目发上来啊。


 回到顶部
总数 52 1 2 3 4 5 6 下一页