大白求解惑!
我弄了个表单 为什么 把左下角的下拉列表选成其其他日期的时候就变成图2 的样子了呢? 我的过程是这样:
1.新建“浏览表单”,双击打开“浏览表单”
2.在表单中添加一个“页框-pageframe1”,将“pageframe1”的page1和page2的caption分别改为“松花江水质指标周报”
和“松花江各监测点水质指标变化”
将form1的windowsstate选为2-最大化
3在“pageframe1”上点击右键,选择“编辑”在“松花江水质指标周报”上添加表格“grid1”、“grid2”、组合框“combo1”命令按钮组“commandgroup1”
4.在“commandgroup1”上点击右键,选择“生成器”,将按键数目改为3,标题分别改为“增加”、“删除”“退出” ,点击“布局”将按钮布局改为“水平”
5.在浏览表单上点击右键,选择“数据环境”,将所有的表添加进去,并将每一个表的“exclusive”属性改为“t-真”
6.在“浏览表单”上双击打开代码窗口,对象选:form1,过程选:init在窗口中输入代码
thisform.pageframe1.top=3
thisform.pageframe1.left=3
thisform.pageframe1.width=1018
thisform.pageframe1.height=650
thisform.pageframe1.page1.grid1.top=5
thisform.pageframe1.page1.grid1.left=15
thisform.pageframe1.page1.grid1.width=300
thisform.pageframe1.page1.grid1.height=400
thisform.pageframe1.page1.grid2.top=5
thisform.pageframe1.page1.grid2.left=300
thisform.pageframe1.page1.grid2.width=650
thisform.pageframe1.page1.grid2.height=400
thisform.pageframe1.
thisform.pageframe1.
thisform.pageframe1.
thisform.pageframe1.
thisform.pageframe1.page1.label1.top=440
thisform.pageframe1.page1.label1.left=300
7.将grid1的recordsource选为“序列号”recordsourcetype选为“1-别名”,将grid2的recordsourcetype选为“1-别名”
8.新建一个表“周次”含一列"名称" 输入”数据环境“中对应的各表的标题
将combo1的属性style改为2-下拉列表框,rowsource选为周次,rowsourcetype选为2-别名,controlsource选为周次.名称
在combo1的click代码窗口输入
thisform.pageframe1.page1.grid2.recordsource=this.value
thisform.pageframe1.page1.grid2.refresh
9.在command1的click代码窗口输入
thisform.pageframe1.page1.grid2.setfocus
this.parent.tag = str(recno())
append blank
thisform.refresh
10.在command2的click代码窗口输入
thisform.pageframe1.page1.grid2.setfocus
if messagebox("是否确认删除当前记录",32+4+256,"删除记录")=6
this.tag=thisform.pageframe1.page1.grid2.recordsource
delete
pack
skip-1
thisform.pageframe1.page1.grid2.refresh
thisform.pageframe1.page1.grid2.recordsource=this.tag
thisform.refresh
endif
11.在command3的click代码窗口输入
thisform.release
close all