level 1
***********************************************grid控件的增加移出
WITH Thisform.pageframe1.page6.grid1.Columns(2)
.Newobject("combo1","combobox") &&增加控件
.combo1.Visible=.T. &&使其显示
.combo1.Width=.Text1.width
.combo1.Height=.Text1.Height
.CurrentControl="combo1" &&绑定控件
.RemoveObject('Text1') &&移除text1 控件
.combo1.Name='combo1' &&text2更名TEXT1
ENDWITH
WITH Thisform.pageframe1.page6.grid1.Columns(2).combo1
.ColumnCount=1 &&指定显示列数
.RowSourceType=6 &&指定combo1的取值模式 6-字段 0-手动添加
*.rowsource='cmasygl.内容,代码' &&指定combo1的取值字段
.BoundColumn=2 &&指定取值的列
.FirstElement=1 &&&&指定显示的列
.rowsource='bm.门店名称,门店编码'
.Columnwidths='72,0'
.borderstyle=0
endwith
2017年01月11日 13点01分