主题:[原创]国庆献礼,源码公开!祝各位论坛朋友节日愉快!
jinlonggao
[专家分:17130] 发布于 2007-09-30 09:24:00
撤
最后更新于:2010-01-19 18:13:00
回复列表 (共30个回复)
沙发
winabcd [专家分:3790] 发布于 2007-09-30 10:01:00
好东西,值得我好好学习学习。
板凳
cbl518 [专家分:57140] 发布于 2007-09-30 10:48:00
jinlonggao 老师的无私奉献精神是我的学习榜样!
中国青年一代要是有这一半的精神,那恐怕我们现在用的,就是自己的操作系统,和编程环境了。
3 楼
whatfor [专家分:30] 发布于 2007-09-30 10:51:00
支持jinlonggao老师
4 楼
myww [专家分:1190] 发布于 2007-09-30 14:03:00
jinlonggao老师,请问您的邮箱地址怎么写?
5 楼
yjr3032570 [专家分:3360] 发布于 2007-09-30 14:46:00
jinlonggao老师的东东,值的收藏,一旦变现,嘿嘿^..^..
6 楼
kewang [专家分:190] 发布于 2007-10-01 22:15:00
高老师辛苦了。来得迟了,祝教师国庆快乐!
7 楼
jinlonggao [专家分:17130] 发布于 2007-10-02 12:40:00
四、五、六楼的朋友,谢谢关注本贴,已经给四、五楼朋友发过去了,请查收。
六楼的王老师,我也给您发一份,请指教!
8 楼
myww [专家分:1190] 发布于 2007-10-02 18:13:00
尊敬的高老师,电子邮件收到了,感谢您!
但我运行表单时,在“打开数据表”时,出现“命令中含有不能识别的短语或关健字”,请您方便时指教!
祝您国庆快乐!
MYWW
2007.10.2.
9 楼
jinlonggao [专家分:17130] 发布于 2007-10-06 14:21:00
你打开的数据表是不是在一个含有空格的文件夹(目录)内保存着?
这个问题我在后来的源码里已经改过了,发给你的是先前做好的,没有来得及更新,实在不好意思,好在有问题更便于学习和研究.
今天较忙,来不及细纠,我将手头的表单中"打开数据表"按钮的代码贴在下面,你看看是否与你的表单中相同?是否在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 楼
seel [专家分:250] 发布于 2007-10-07 01:11:00
偶是新人,不知能否有幸得到jinlonggao老师的东东
我来回复