以下是引用dellkey在2023-8-30 14:44:30的发言:
才疏学浅
还望指点
这个是当前GRID1里面的AfterRowColChange
LPARAMETERS nColIndex
ThisForm.Text3.Value = 项目名称
= 项目名称
ThisForm.Text1.Value = STR(recno(),3)-"/ "-ALLTRIM(STR(RECCOUNT(),3))
thisform.refresh
本窗体显示没问题
卡在传递到另一窗体[em2
8]
1. 建立一个新form,假设form.name='FORM2'
2. form2.init里写下面语句
lpara Pfile
this.AddProperty('Pfile',pfile)
3. form2中安排一个grid控件
4. form2.activate里写下面语句
thisform.grid1.records = thisform.pfile
thisform.grid1.refresh
以上的关于form2的
下面是thisform.grid1.AfterRowColChange里写:
do form form2 with thisform.grid1.recordsource
执行一下试试