表单设计有点问题，寻求帮助！ - 编程论坛

#2

sdta2021-07-27 17:25

问题1：运行表单后不存在楼主据说问题，TEXT8可以显示打开的表文件。
问题2：表单不能及时刷新，必须关闭表单才能再次打开表文件
表单COMMAND1.CLICK中代码
_dbf=GETFILE('dbf')
IF !USED(_dbf)
thisform.text8.Value=_dbf
thisform.init &&增加这行代码
thisform.Refresh()
ENDIF
表单INIT事件代码
fieldCount = aField(aFieldList)

thisform.list1.Clear
thisform.list1.Requery

for i = 1 to fieldCount
thisform.List1.addItem(aFieldList(i,1))
endFor
问题3：运行表单后，表单不能维持原状（原来大小），造成的原因：WINDOWSTATE = 2 造成的。

#3

王咸美2021-07-27 18:13

@sdta 非常感谢指点！！！问题3已解决，文本框（text8）与编辑框（list1）不能同步更新。一运行表单即显示打开表文件对话框，打开“表文件按钮”不起作用，不知为何？

[此贴子已经被作者于2021-7-27 19:02编辑过]

#4

sdta2021-07-27 18:54

以下是引用王咸美在2021-7-27 18:13:46的发言：

@sdta 非常感谢指点！！！问题3已解决，文本框（text8）与编辑框（list1）不能同步更新。

只有本站会员才能查看附件，请登录

#5

王咸美2021-07-27 19:11

@sdta 非常感谢！！！文件下载后打不开。可否换ZIP压缩格式发给我？再次感谢！！！

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2021-7-27 19:12编辑过]

#6

sdta2021-07-27 19:33

以下是引用王咸美在2021-7-27 19:11:19的发言：

@sdta 非常感谢！！！文件下载后打不开。可否换ZIP压缩格式发给我？再次感谢！！！

你的解压文件版本太低了，我的是WINRAR.EXE 5.90 32位

#7

王咸美2021-07-27 20:35

@sdta 万分感谢！！！表单运行基本可以了。美中不足的是选择一次表文件，就要关闭一次表单。能否表单打开后，表文件可以自由选择，然后选择字段打印，无需每次关闭表单再打开。

#8

sdta2021-07-27 21:13

以下是引用王咸美在2021-7-27 20:35:34的发言：

@sdta 万分感谢！！！表单运行基本可以了。美中不足的是选择一次表文件，就要关闭一次表单。能否表单打开后，表文件可以自由选择，然后选择字段打印，无需每次关闭表单再打开。

COMMAND1.CLICK
CLOSE DATABASES
thisform.text8.Value=GETFILE('dbf')
cDbf = thisform.text8.Value
SELECT * FROM (JUSTSTEM(cDbf)) INTO CURSOR TEMP
fieldCount = aField(aFieldList)
thisform.list1.Clear
for i = 1 to fieldCount
thisform.List1.addItem(aFieldList(i,1))
endFor
thisform.Refresh()

#9

王咸美2021-07-28 07:44

@sdta 谢谢！谢谢！还有最后一个问题：在打印报表(.frx)时，我想用打印标题(thisform.txtCaption.value)代替打印的报表标题（我的动态报表），不知如何修改代码，望赐教！！！

SET path to f:\temp9
tydycx10('Myreport','我的动态报表')
REPORT FORM Myreporteg

#10

sdta2021-07-28 09:02

以下是引用王咸美在2021-7-28 07:44:00的发言：

@sdta 谢谢！谢谢！还有最后一个问题：在打印报表(.frx)时，我想用打印标题(thisform.txtCaption.value)代替打印的报表标题（我的动态报表），不知如何修改代码，望赐教！！！

SET path to f:\temp9
tydycx10('Myreport','我的动态报表')
REPORT FORM Myreporteg

全局变量

#11

王咸美2021-07-28 09:13

@sdta 代码怎么改呢？恳请赐教！

#12

sdta2021-07-28 09:29

PUBLIC DTBT
DTBT = thisform.txtCaption.value

#13

wengjl2021-07-28 09:49

三年的时间，王老师的进步很大啊！恭喜恭喜

#14

王咸美2021-07-28 09:52

@sdta 非常感谢！！！问题完美解决。

#15

王咸美2021-07-28 10:03

@wengjl 谢谢谬赞。进步不大。

#16

gs25367856782021-07-29 09:29

看过王咸美作品，你是想操作VF报表，不简单。