主题：另一种动态列表项目

If e.Col.Name = "第二列" Then
    Select Case e.Row("第一列")
        Case "值1"
            e.Col.ComboList = "项目1|项目2"
        Case "值2"
            e.Col.ComboList = "项目3|项目4"
    End Select
End If

代码的原理很简单，首先判断编辑的是否是第二列，如果是的，则根据第一列的值来设置不同的列表项目。

代码很简单，但是维护起来却不太方便了，因为如果要增加新的列表项目或者有新的要求，我们就必须重新修改代码，对于已经交付使用的系统，这可能是一个可怕的工作，可怕之处不在于修改代码，而在于逐个终端去更新程序。

所以最好的方式给最终的用户提供自行修改列表项目的功能，实现的步骤是:

1、新建一个表(假定表名为项目)，包括两列，分别是“值”和“列表项目”，用于输入每个值及其对应的列表项目：

此主题相关图片如下：1009.gif

2、然后在数据录入表的PreparEdit事件中设置如下代码：

If e.Col.Name = "第二列" Then
    Dim dr As Datarow
    dr = DataTables("项目").Find("值 = '" & e.Row("第一列") & "'")
    If dr IsNot Nothing '一定要判断是否存在对应的行
        e.Col.ComboList = dr("列表项目")
    End If
End If

代码的原理同样很简单，如果输入的是第二列的内容，那么就在项目表查找值等于输入行第一列内容的行，如果找到的话，将列表项目设为该行列表项目列的内容。

我们可以扩展一下上述知识的应用，假定某些列的列表项目不是动态的，但是随着应用的深入，这些列的列表项目可能会需要调整，虽然通过列属性设置窗口，可以方便地修改列表项目。但是对于一个已经交付使用的系统来说，让最终用户可以随意设置列属性是有危险的，有没有安全一些的做法呢？有，通用的做法是：

1、新建一个表(假定表名为项目)，包括三列，分别是表、列、列表项目，用于输入某表某列的列表项目:

此主题相关图片如下：1010.gif


 

2、然后在相关表的PrepareEdit事件中加入如下代码：

Dim dr As Datarow
dr = DataTables("项目").Find("[表] = '" & e.Table.Name & "' And [列] = '" & e.Col.Name & "'")
If dr IsNot Nothing '一定要判断是否存在对应的行
    e.Col.ComboList = dr("列表项目")
End If

这样在编辑任何一例之前，都会根据表名和列名，在项目表检查是否存在对应的行，如果找到，将列表项目设为该行列表项目列的内容。

上面的代码简单实用，但是需要逐个表设置PrepareEdit事件代码，而且每次编辑单元格之前都去项目表检索一次，不管是编程效率，还是运行效率，都是比较低的。
我们可以删除PrepareEdit事件中的代码，而是在项目事件AfterOpenProject中加如下面的代码：

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

这样我们只需在一处设置代码，同样对所有表有效，但是也有一个副作用，就是当你修改项目表的列表项目内容时，必须重新打开项目才会生效。
不过列表项目时不需要经常修改的，所以这不是一个大问题，如果你很在意的话，可以删除AfterOpenProject事件中的代码，改为在项目事件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

这样修改项目表中的列表项目后，无需重新打开项目即可生效，同时编程效率和运行效率也比较高。

一个小技巧：

我们一直用符号“|”来分隔列表项目，其实是可以用换行符分开的，这样我们可以更方便地录入列表项目，例如下图将列表项目列改为备注型，每行录入一个。