[求助]项目归类 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:蓝峰管理.table

老师你好，"通讯录"表"信息归类"列进行自动归类，归类时间为关闭通讯录表的时间

怎么个自动归类法?没看懂

通过"信息归类"列把家人、客户、供应商、朋友等等行内容分类开。就是说家人的行排在一起，客户的行排在一起等等。最好是第二次打开表的时候看到效果。

只需要设置 tables("表名").sort="信息归类"

即可

老师，应该写在那个代码事件里。

写在你希望实现这个效果的地方

如果希望打开项目就实现,就放到ALteropenPROJECT事件

也可以写到某个按钮的Click事件,点击就实现

老师好，找不到ALteropen事件

回复7楼，项目属性->事件->afteropenproject

下载信息 [文件大小：下载次数： ]
点击浏览该文件:蓝峰管理.table

老师又要烦你们了我的通讯录表的第二个下拉连目录树节点运行出现错误"企业信息_区县市"列不显示内容。

代码这样写

If e.Node.Nodes.Count = 0 Then

Dim ps() As String = e.Node.FullPath.Split("\")

Dim tr As Row = Tables("通讯录").Current

Dim dr As DataRow

If e.node.Level = 3 Then

dr = DataTables("行政区域").Find("个人信息_省辖市 = '" & ps(0) & "' And 个人信息_地级市 = '" & ps(1) & "' And 个人信息_区县市 = '" & ps(2) & "'And 个人信息_街道社区 = '" & ps(3) & "'")

Else

dr = DataTables("行政区域").Find("个人信息_省辖市 = '" & ps(0) & "' And 个人信息_地级市 = '" & ps(1) & "' And 个人信息_区县市 = '" & ps(2) & "'")

End If

If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入通讯录表的当前行.

tr("个人信息_省辖市") = dr("个人信息_省辖市")

tr("个人信息_地级市") = dr("个人信息_地级市")

tr("个人信息_区县市") = dr("个人信息_区县市")

tr("个人信息_街道社区") = dr("个人信息_街道社区")

tr("个人信息_区号") = dr("个人信息_区号")

tr("个人信息_邮编") = dr("个人信息_邮编")

e.Form.DropDownBox.Value = tr("个人信息_街道社区") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

End If

e.Form.DropDownBox.CloseDropdown()

End If

[此贴子已经被作者于2014-2-27 22:56:59编辑过]

主题：[求助]项目归类