请教老师，下面代码写入PrepareEdit，也能实现下拉录入内容，

问题1，如果把光标放在项目名称的单元格上，进行删除行时，系统死机，或很长时间才能执行命令，光标放在其他单元格上都正常；是否我的代码写错位置了，还是？？？

问题2，实现的下拉宽度不够（因为有的项目名称字符较多），应该如何用代码设置

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "XXX"
cmd.CommandText = "SELECT DISTINCT 项目编号,项目属地,项目名称 F  rom {表A}"
dt = cmd.ExecuteReader()
\'生成目录树
Dim tb As New DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "项目属地|项目名称"
tb.SourceCols = "项目编号|项目名称"
tb.ReceiveCols = "项目编号|项目名称"
Tables("表A").Cols("项目编号").DropTree = tb.Build()

  end if

end if

1、代码写到afterOpenProject或者currentTableChanged或者其余事件，不能放在你这个事件；

2、下拉窗口的宽度无法调整，如果要调整，请参考 http://www.foxtable.com/webhelp/scr/2350.htm