主题：有关“列表项目”和“数据字典”的问题

说明：“股piao名称”、“数据字典”列的列表项目，来自代码表自动产生。
问题:
      1、“股piao名称”列的下拉菜单中的代码不能显示6位（如深发展代码是：000001，目前只能显示为：1），且不象“数据字典”有规律的排序；“数据字典”列的下拉菜单中的代码不能显示6位（如深发展代码是：000001，目前只能显示为：1），但是有规律的排序（这样好）。
      2、点击下拉菜单栏，反应速度不一样（尤其在硬件配置较低的电脑中“数据字典”感觉显示较慢，硬件配置高的电脑，无此感觉）。
希望：
      1、“股piao名称”列的下拉菜单中的代码能显示6位，如深发展代码显示为：000001 ，且能有规律的排序。
      2、希望能有象易表中“列代码”功能，且能根据数据表自动产生，即在“股piao名称”栏输入深发展的代码：000001，但显示的是:深发展A .
      请贺老师斟酌！
           

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:列表项目.table

第二个问题，象你这么做似乎不太规范，为何不在股piao代码列输入代码，股piao名称列显示对应的股piao名称呢？

比如在表A的表属性，datacolchanged事件中设置代码：

 

If e.DataCol.Name = "股piao代码" And e.Datarow.IsNull("股piao代码")  = False Then

    Dim dt As DataTable = DataTables("上海代码表")

    Dim dr As DataRow = dt.Find("[股piao代码] = '" & e.datarow("股piao代码") & "'")

    e.datarow("股piao名称") = dr("股piao名称")

End If