以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ComboList 代码生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66588)
--  作者：blsu33
--  发布时间：2015/4/9 22:15:00
--  ComboList 代码生成

老师下列代码没有生成 ComboList 能帮忙看下 ，我哪里写的不对

 

Dim str As String = ""
For Each dt As DataTable In DataTables
    str &= dt.Name & "|"
Next
If e.IsFocusCell Then
    If e.Col.Name = "加载范围" Then
        Dim dr As DataRow
        dr("加载范围").ComboList = dr( str )
        MessageBox.Show(str)
    End If
End If

[此贴子已经被作者于2015/4/9 22:15:58编辑过]
--  作者：e-png
--  发布时间：2015/4/9 22:50:00
--  
Tables("表名").Cols("加载范围").Combolist = str.trim("|")