求助超版，关于表达式列生成数据问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助超版，关于表达式列生成数据问题

想要村干部基本信息表中的表达式列“排序”，自动填充本表“工作单位”列选定数据在另一“工作单位”表中对应的“单位编号”和本表的“职务排序”，并按照生成的六位数字排序，该怎么办

如下图

此主题相关图片如下：图1.jpg

此主题相关图片如下：图2.jpg

在村干部基本信息表中的“排序”列，自动填入:工作单位表中“高良涧街道砚台村”列对应的1008，和自己表中“职务排序”列对应的01，即100801。且让村干部基本信息表按照“排序类”从小到大排序。不知道表达式列“排序”的表达式该如何写？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:村干部信息.zip

多谢了

同时还想实现，村干部基本信息表中的“职务排序”列录入提醒，如果一行录入数据，提醒必须要录入“职务排序”

[此贴子已经被作者于2019/7/31 18:23:10编辑过]

For Each dr As DataRow In DataTables("村干部基本信息").Select("工作单位_镇街 is not null and 工作单位_村居社区 is not null")
    Dim fdr As DataRow = DataTables("工作单位").Find("所属镇街 = '" & dr("工作单位_镇街") & "' and 全称 = '" & dr("工作单位_村居社区") & "'")
    If fdr IsNot Nothing
        dr("排序") = fdr("单位编号") & dr("职务排序")
    End If
Next
Tables("村干部基本信息").Sort = "排序"

谢谢大神，这个写入项目事件 afteropenproject 后，空行会排在最前面，可以让空行排最后吗？

另外，请教如何在录入的时候提醒录入“职务排序”，即，如果录入职务，没有录入职务排序，就弹框提醒

[此贴子已经被作者于2019/7/31 18:54:13编辑过]

麻烦y2287958老师给予指导啊，多谢多谢

可以在保存的时候做提示：http://www.foxtable.com/webhelp/topics/0628.htm，或者自己做一个保存按钮，判断必填项是否已经填写。

至于排序，没有办法控制空行

主题：求助超版，关于表达式列生成数据问题