试过了,项目中就这两个事件有代码,其中AfterOpenProject中没多少代码:'主界面设置
basemainform.icon = Nothing
'设置界面风格
VisualStyle = VisualStyleEnum.Office2007Blue
'对非开发者隐藏表标题;
Forms("主界面").open()
MainTable = Tables("车辆基本信息")
If User.Type <> UserTypeEnum.Developer Then
TableCaptionVisible = False
Else
TableCaptionVisible = True
End If
'设置表的下拉窗口打开
Tables("缴费情况").Cols("车牌号码").DropForm = "车牌目录树" '客户表的县市列也采用我们设计的下拉窗口输入数据
Tables("车辆基本信息").Cols("车牌号码").DropForm = "车牌目录树" '客户表的县市列也采用我们设计的下拉窗口输入数据
Tables("车辆基本信息").Cols("住址_巷").DropForm = "增加巷"
Tables("车辆基本信息").Cols("住址_号").DropForm = "增加号"
Tables("车辆基本信息").Cols("住址_房").DropForm = "增加房"
'巷表的行排序
Dim dr As DataRow
dr = DataTables("巷").Find("","[_SortKey]")
If dr IsNot Nothing Then
'模拟第一行的支出发生变化, 刷新已加载行的余额.
DataTables("巷").DataCols("序号").RaiseDataColChanged(dr)
End If
'缴费情况表的行排序
Tables("缴费情况").Sort = "日期"
'车辆基本信息表的行排序
Tables("车辆基本信息").Sort = "住址_巷,住址_号,住址_房 DESC"
MainTableChanged中就一段代码:
Forms("主界面").Open()
Tables("车辆基本信息").Sort = "住址_巷,住址_号,住址_房 DESC"
[此贴子已经被作者于2021/1/18 16:08:32编辑过]