以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请问这个自动填充的问题代码怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122024)
--  作者：初心不改再说未来
--  发布时间：2018/7/17 15:36:00
--  请问这个自动填充的问题代码怎么写？
表A列有：名称（列内包含北京、上海、广州等名称）、简介（列内包含北京等城市的简介） 两列数据
表b列有：出发城市（下拉列表属性，数据表来自表A）、到达城市（下拉列表属性，数据表来自表A）、综述。这3列。

现在需要在表B中点击出发城市后，将表a对应的出发城市的简介添加到表B的综述列中，当选择到达城市后，再继续将表B对应的城市简介继续添加到表B的综述列中（同一个单元格里）


请问该怎么实现呢
--  作者：y2287958
--  发布时间：2018/7/17 16:15:00
--  
http://www.foxtable.com/webhelp/scr/1453.htm
--  作者：初心不改再说未来
--  发布时间：2018/7/17 16:30:00
--  
跨表更新我看了，我这个是从其他表取值过来，不一样。。。。。而且我还不是取1个值，是取出来2个或者3个，填充到表B的综述列的同一个单元格里面。。。。
--  作者：初心不改再说未来
--  发布时间：2018/7/17 16:45:00
--  
Select Case e.DataCol.name
    Case "出发地", "途径地", "到达地"
        Dim str As String = ""
        For Each s As String In "出发地,途径地,到达地".split(",")
            Dim dr As DataRow
            
            dr = DataTables("城市表").Find("[城市名称] = \'" & s & "\'")
            If dr IsNot Nothing Then
                str &= s & ":" & dr("城市介绍") & vbcrlf
            End If
            
        Next
        e.DataRow("综述") = str
End Select



这个代码哪里有问题？从下拉列表框里选择完城市后，综述列没有添加进入任何内容
--  作者：初心不改再说未来
--  发布时间：2018/7/17 17:08:00
--  
顶顶~
--  作者：xym0606
--  发布时间：2018/7/17 17:47:00
--  
s只是“出发地”,“途径地”,“到达地”数组的三个值，又不是北京、上海、广州等名称，城市名称的dr是找不到的，e.DataRow("综述") = str自然是空值
--  作者：xym0606
--  发布时间：2018/7/17 17:51:00
--  
遍历用得多此一举，dr = DataTables("城市表").Find("[城市名称] = \'" & e.DataRow("城市名称") & "\'")
--  作者：初心不改再说未来
--  发布时间：2018/7/17 17:55:00
--  
是的，但是上面不是已经取出来这三个列中的备选数值了吗......
--  作者：有点甜
--  发布时间：2018/7/17 19:04:00
--  
以下是引用初心不改再说未来在2018/7/17 16:45:00的发言：
Select Case e.DataCol.name
    Case "出发地", "途径地", "到达地"
        Dim str As String = ""
        For Each s As String In "出发地,途径地,到达地".split(",")
            Dim dr As DataRow
            
            dr = DataTables("城市表").Find("[城市名称] = \'" & s & "\'")
            If dr IsNot Nothing Then
                str &= s & ":" & dr("城市介绍") & vbcrlf
            End If
            
        Next
        e.DataRow("综述") = str
End Select



这个代码哪里有问题？从下拉列表框里选择完城市后，综述列没有添加进入任何内容

 

1、加入msgbox，能否弹出值？

 

2、你修改了各个列的值了吗？上传实例测试。