表单设计存在下列问题：1、文本框中显示不了打开的表文件名称
                      2、表单不能及时刷新，必须关闭表单才能再次打开表文件
                      3、运行表单后，表单不能维持原状（原来大小）
请高手不吝赐教，万分感谢！！！

问题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 造成的。

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

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

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

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

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

@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()

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

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

全局变量