回 帖 发 新 帖 刷新版面

主题:[原创]国庆献礼,源码公开!祝各位论坛朋友节日愉快!

回复列表 (共30个回复)

沙发

好东西,值得我好好学习学习。

板凳

jinlonggao 老师的无私奉献精神是我的学习榜样!
    中国青年一代要是有这一半的精神,那恐怕我们现在用的,就是自己的操作系统,和编程环境了。

3 楼

支持jinlonggao老师

4 楼


jinlonggao老师,请问您的邮箱地址怎么写?

5 楼

jinlonggao老师的东东,值的收藏,一旦变现,嘿嘿^..^..

6 楼

高老师辛苦了。来得迟了,祝教师国庆快乐!

7 楼

四、五、六楼的朋友,谢谢关注本贴,已经给四、五楼朋友发过去了,请查收。
六楼的王老师,我也给您发一份,请指教!

8 楼

尊敬的高老师,电子邮件收到了,感谢您!
    但我运行表单时,在“打开数据表”时,出现“命令中含有不能识别的短语或关健字”,请您方便时指教!
    祝您国庆快乐!
                 MYWW
                        2007.10.2.

9 楼

你打开的数据表是不是在一个含有空格的文件夹(目录)内保存着?
这个问题我在后来的源码里已经改过了,发给你的是先前做好的,没有来得及更新,实在不好意思,好在有问题更便于学习和研究.
今天较忙,来不及细纠,我将手头的表单中"打开数据表"按钮的代码贴在下面,你看看是否与你的表单中相同?是否在use ...一句中有差异?
public paths
tab_name='数据表'
tab_name=getfile('dbf','数据表')
if empt(tab_name)
  retu
endif
tabn=strt(lower(subs(tab_name,rat('\',tab_name)+1)),'.dbf','')
tabn=iif(isdigit(tabn),'D'+tabn,tabn)
if !used(tabn)
  sele 0
  use(tab_name) alia &tabn
else
  sele(tabn)  
endif
thisform.caption = '当前操作的数据表:'+dbf()
thisform.grid1.columncount = -1
thisform.grid1.init
thisform.refresh

10 楼

偶是新人,不知能否有幸得到jinlonggao老师的东东

我来回复

您尚未登录,请登录后再回复。点此登录或注册