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


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

主题：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里面用来显示“批号表”里面的“批号”的。现在我希望把“批号表”里面的“库存数量”也同时显示出来，方便看某个批号还有多少库存数量，代码该如何修改（希望将批号和库存数量用一个“-”把它们分割开来）？谢谢。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
详细错误信息：
调用的目标发生了异常。
无法找到列 批号 + '-' + 库存数量。

按照你给的代码，会出现上述警告。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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的计算结果），这不是我要求的结果。要如何修改代码？

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


请看我们的测试结果。
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2018/9/18 17:21:00 [显示全部帖子]

我用最新的商业版测试到没有问题，可以显示成20180901-3360的格式。但是我现在使用的开发版则出现错误的结果。那是不是我的开发版版本落后了？

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2018/9/18 17:25:00 [显示全部帖子]

现在才发现，商业版测试结果也是不对。

 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2018/9/18 17:31:00 [显示全部帖子]

商业版的business目录之下，我要上传哪个文件给你才行？

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


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2018/9/18 17:41:00 [显示全部帖子]

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


这个项目给你测试，行吗？
 回到顶部
帅哥哟，离线，有人找我吗？
edisontsui
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1551 积分：10061 威望：0 精华：0 注册：2014/12/18 16:12:00 		  发帖心情 Post By：2018/9/18 17:48:00 [显示全部帖子]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "select DISTINCT 批号 & '-' & 库存数量 as 批号 from 批号表"
dt = cmd.ExecuteReader()
e.Col.Combolist = dt.GetComboListString("批号")

上述代码还要加上 "[物料编号] =  '" & e.Row("物料编号") & "'") 这个功能，怎么加上去？
 回到顶部
总数 30 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.05469 秒, 7 次数据查询