《表单学习笔记第五集》由会员分享，可在线阅读，更多相关《表单学习笔记第五集（9页珍藏版）》请在金锄头文库上搜索。
1、表单学习笔记,第五集,,北京金和软件股份有限公司 地址：北京市海淀区上地东路1号盈创动力大厦A座4层 Add: 4F, Creative Power A, No.1 Shangdi East Road, Haidian District, Beijing 100085 电话Tel：010-58858686 传真Fax：010-58945666 网址：http:/,2011年9月,那么现在我们来一起整理整理联动的功能吧！,为了方便客户输入信息，我们常常做出这样的效果：输入一项信息另一项信息自动获取或者选择一项信息，跟这条信息相关的其他信息都自动获取。,框联动,多张表联动,内容目录,combobo
2、x下拉框联动 Grid表内下拉框联动 多张表联动 选择后自动填充,下拉框联动,function fillcombobox() / 根据店名联动区域 / combobox联动 combobox2.options.length=0; var sql=“select distinct dianming from YK_YY_DMXXGL where 1=1 “; if(combobox1.value!=“请选择“) sql+=“ and quyu = “+combobox1.value+“; SqlCombo(combobox2,sql); var sql2=“select areacode fro
3、m YK_YY_QYXXGL where areaname= “+ combobox1.value+“ text6.value=SqlToField(sql2); ,Grid表内联动,function liandong() grid1.onCellChange = function() /grid单元格改变触发事件 if(event.newTD.cellIndex =2) var curRow = event.newTD.parentNode.rowIndex ; /焦点所在的当前行 var curRowValue1 = grid1.tab.rows(curRow).cells(1).inne
4、rText ; /得到焦点在第1列当前行的值 if(IsSpace(curRowValue1) = false) grid1.tab.childNodes(0).childNodes(2).cz =“select guige from caigoucong where name=“+curRowValue1+“否 否2 event.showlist = true “; if(event.newTD.cellIndex =3) /三级联动 var curRow = event.newTD.parentNode.rowIndex ; /焦点所在的当前行 var curRowValue1 = gri
5、d1.tab.rows(curRow).cells(1).innerText ;/得到焦点在第1列当前行的值 var curRowValue2 = grid1.tab.rows(curRow).cells(2).innerText ;/得到焦点在第2列当前行的值 if(IsSpace(curRowValue1) = false ,多张表联动,函数功能：联动时数据取自多张表 function liandong()/grid表中联动 grid1.onCellChange = function() if(event.newTD.cellIndex =2) var curRow = event.new
6、TD.parentNode.rowIndex ;/焦点所在的当前行 var curRowValue = grid1.tab.rows(curRow).cells(1).innerText ;/得到焦点在第一列当前行的值 if(curRowValue = “产品“) grid1.tab.children0.children2.cz = “编号select bianhao from HT_chanpinkuchanpinlei否否2event.showlist=true“; if(curRowValue = “设备“) grid1.tab.children0.children2.cz = “编号s
7、elect bianhao from HT_chanpinkushebeilei否否2event.showlist=true“; if(curRowValue = “宣传品“) grid1.tab.children0.children2.cz = “编号select bianhao from HT_chanpinkuxuanchuanpinlei否否2event.showlist=true“; ,多张表联动,if(event.newTD.cellIndex =3) var curRow = event.newTD.parentNode.rowIndex ;/焦点所在的当前行 var curRo
8、wValue1 = grid1.tab.rows(curRow).cells(1).innerText ;/得到焦点在第一列当前行的值 var curRowValue2= grid1.tab.rows(curRow).cells(2).innerText ;/得到焦点在第二列当前行的值 alert(curRow+“ “+curRowValue1+“ “+curRowValue2); var sql = “; if(curRowValue1 = “产品“) sql=“select chanpinmingcheng from HT_chanpinkuchanpinlei where bianhao
9、=“+curRowValue2+“;alert(sql); if(curRowValue1 = “设备“) sql=“select chanpinmingcheng from HT_chanpinkushebeilei where bianhao=“+curRowValue2+“;alert(sql); if(curRowValue1 = “宣传品“) sql=“select chanpinmingcheng from HT_chanpinkuxuanchuanpinlei where bianhao=“+curRowValue2+“;alert(sql); var mingcheng=Sql
10、ToField(sql); dataset2.Fields.Fieldchanpmch.Value=mingcheng; dataset2.Update(不检查); DsToGrid(grid1,否); ,联动自动填充,函数功能：如果在数据中有唯一属性，在录入时只需录入该属性，则本条属性相关的其它信息自动填充 function autoDisplay() gridchanpin.onCellChange = function()/grid单元格改变触发事件 if(event.newTD.cellIndex =3)/点击第三列时触发 var curRow = event.newTD.parent
11、Node.rowIndex ;/焦点所在的当前行 var curRowValue = gridchanpin.tab.rows(curRow).cells(2).innerText ; /得到焦点在第一列当前行的值 var sql1=“select bianhao from HT_chanpinkuchanpinlei where tiaoxingma=”+curRowValue+“”; var sql2=“select chanpinmingcheng from HT_chanpinkuchanpinlei where tiaoxingma=“+curRowValue+“; var sql3
12、=“select chanpinguige from HT_chanpinkuchanpinlei where tiaoxingma=“+curRowValue+“; var sql4=“select baozhuangguige from HT_chanpinkuchanpinlei where tiaoxingma=“+curRowValue+“; var sql5=“select xiankucunshuliang from HT_chanpinkuchanpinlei where tiaoxingma=“+curRowValue+“; var bianhao=SqlToField(sq
13、l1);/SqlToField(SQL)：执行SQL并取出值，如果有多条则只取第一条 var chanpinmingcheng=SqlToField(sql2); var chanpinguige=SqlToField(sql3); var baozhuangguige=SqlToField(sql4); var xiankucunshuliang=SqlToField(sql5); dataset2.Fields.Fieldbianhao.Value=bianhao;/数据集字段赋值 dataset2.Fields.Fieldchanpinmingcheng.Value=chanpinmin
14、gcheng; dataset2.Fields.Fieldchanpinguige.Value=chanpinguige; dataset2.Fields.Fieldbaozhuangguige.Value=baozhuangguige; dataset2.Fields.Fieldxiankucunshuliang.Value=xiankucunshuliang; dataset2.Update(不检查); /更新数据集 DsToGrid(gridchanpin,是); /DsToGrid(gridid,是/否)将数据集更新至grid，是：更新整个grid，否：只更新本条数据 ,群众的力量是伟大的 欢迎大家补充和分享,THANKS,
