主题：关于列属性的列表项目

5楼的例子，试用版也可以打开，请去官方网站下载最新版打开。

如果要求激活，就应该是差不多到期了。需要购买商业版。

开发版的加密狗，可以打开商业版的项目的，你去下载商业版foxtable安装吧。

http://www.foxtable.com/update/how.htm

可以，商业版可以打开.table项目，开发版可以打开.Foxdb项目。

你可以安装一个商业版的foxtable，你可以使用商业版的！！！

 看看是不是这里有问题？

Dim r As DataRow = DataTables("利润单").Find("订单编号 ='" & e.Row("订单编号") & "'")  '准备修改当前表时,如果利润单的订单编号满足下面要求,那么锁定当前行(当两个表不是关联表时锁定的解决办法)
If r IsNot Nothing Then
    If r("订单状态") = "3-业务审核" OrElse r("订单状态")  = "4-订单完成" Then
        e.cancel = True
    End If
End If

If e.IsFocusCell
    If e.Col.Name = "收入科目"
        'Dim cmd As New SQLCommand
        'cmd.CommandText = "SELECT 第一列,Count(第一列) as 记录数 From {表A} Group By 第一列"
        'e.Col.Combolist = cmd.ExecuteReader.GetComboListString("第一列", "","记录数 Desc")
       
        Dim g As New GroupTableBuilder("统计表1", DataTables("银行流水"))
        g.Groups.AddDef("收入科目")
        g.Totals.AddDef("收入科目", AggregateEnum.Count, "记录数")
        g.Filter = "[收入科目] not is null"
        Dim dt As DataTable = g.Build(True)
        Tables("银行流水").Cols("收入科目").Combolist = dt.GetComboListString("收入科目", "","记录数 Desc")
    End If
End If