请问这个自动填充的问题代码怎么写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用初心不改再说未来在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、你修改了各个列的值了吗？上传实例测试。

主题：请问这个自动填充的问题代码怎么写？