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


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

主题:GetComboListString 的运用

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


加好友 发短信
等级:六尾狐 帖子:1460 积分:9471 威望: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


加好友 发短信
等级:六尾狐 帖子:1460 积分:9471 威望: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


加好友 发短信
等级:六尾狐 帖子:1460 积分:9471 威望: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


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

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


请看我们的测试结果。

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


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

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

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


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

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

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


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

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

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


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

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

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


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

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


这个项目给你测试,行吗?

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


加好友 发短信
等级:六尾狐 帖子:1460 积分:9471 威望: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.Con
nectionName = "region"
cmd.CommandText = 
"select DISTINCT 批号 & '-' & 库存数量 as 批号 from 批号表"
dt = cmd.ExecuteReader()
e.Col.Combolist = dt.GetComboListString("批号")

上述代码还要加上 "[物料编号] =  '" & e.Row("物料编号") & "'") 这个功能,怎么加上去?

 回到顶部
总数 30 1 2 3 下一页