Foxtable(狐表)用户栏目专家坐堂 → 集合赋值给单元格


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

主题:集合赋值给单元格

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
集合赋值给单元格  发帖心情 Post By:2017/9/24 0:17:00 [只看该作者]

表[提前准备] 中列[刀具名称] 变化,在表[刀具库位]中找到所有相同 刀具名称的刀具编号和对应库位 
赋值于 表[提前准备] 中的  刀具编号 库位。

以下代码只能列出一个数据,而不是全集合。

If e.DataCol.name = "刀具名称" Then
    If e.newvalue IsNot Nothing Then
        Dim lst1 As New List(of String)
        Dim lst2 As New List(of String)
        lst1 = DataTables("刀具库位").GetValues("刀具编号","[刀具名称]='"& e.DataRow("刀具名称") & "'")
        e.DataRow.Lines("刀具编号") = lst1
        lst2 = DataTables("刀具库位").GetValues("库位","[刀具名称]='"& e.DataRow("刀具名称") & "'")
        e.DataRow.Lines("库位") = lst2
        
    End If
End If

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


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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/24 0:22:00 [只看该作者]

刀具编号 和库位 可以与刀具库位里的一一对应吗?
A01 CW1234(1)
A02 CW1234(2)

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/24 16:14:00 [只看该作者]

自己顶一下

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/9/24 19:32:00 [只看该作者]

原来是已要显示了,
只是单元格宽度只能显示一行 文字。

可否让行高依内容自动调整?

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


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

以下是引用恒隆君在2017/9/24 19:32:00的发言:
原来是已要显示了,
只是单元格宽度只能显示一行 文字。

可否让行高依内容自动调整?

 

参考

 

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

 

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

 


 回到顶部