主题：[求助]动态添加的列表项目

通过:动态列表项目之二 http://help.foxtable.com/index.html?n=1459.htm 学习,我在 项目事件CurrentTableChanged中设置代码：

 

Dim dt As DataTable = DataTables("条目")
Dim dr As DataRow
For Each c As Col In CurrentTable.Cols
    dr = dt.Find("[表] = '" & CurrentTable.DataTable.Name & "' And [列] = '" & c.Name & "'")
    If dr IsNot Nothing Then
        c.ComboList = dr("列表项目")
    End If
Next

----- 这样,就可以获得动态的列表项目了----

 

但是,我希望,

一旦在表A的有动态列表项目的列"手工录入新的值",就保存在[条目]表中,追加到相应的位置,然后,在下一次选取时,就有了上一次所输入的值.

于是,我在[表A]的 AfterEdit 事件中:

 

Dim entered As String =CurrentTable.Value
    Dim dr As DataRow = DataTables("条目").Find("[表] = '" & e.Table.Name & "' And [列] = '" & e.Col.Name & "'")
    Dim s As String = dr("列表项目")

   If NOT s.Contains("'" & entered & "'") Then   ' 这判断似乎不期作用
      dr("列表项目")=dr("列表项目") & "|" & entered    
    End If

 

似乎这个 "不包含" 判别 根本不起作用啊!!!

 

______ 明白了 ...是 "'" 出问题了:   If NOT s.Contains(entered) Then 

If NOT s.Contains(entered ) Then