数据处理
lygcw9602
这个作者很懒,什么都没留下…
展开
-
列记录转换为行记录
clear allcreate cursor t3 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3))create cursor t1 (学号 c(4),姓名 c(8),数学 n(3),语文 n(3))insert into t1 values ("1001","张三",102,120)insert into t1 values ("1002","李四",119,108)原创 2015-01-31 18:19:07 · 512 阅读 · 0 评论 -
行记录转换为列记录
clear clear allcreate cursor t2 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3))insert into t2 values ("1001","张三","数学",102)insert into t2 values ("1001","张三","语文",120)insert into t2 values ("1002","李四","数学",1原创 2015-01-31 18:21:19 · 520 阅读 · 0 评论 -
VFP 连号查询
ClearClear AllCREATE CURSOR test (数字 N(5,0))INSERT INTO test values(7)INSERT INTO test values(88)INSERT INTO test values(9)INSERT INTO test values(8)INSERT INTO test values(103)INSERT INTO tes原创 2015-02-18 02:28:47 · 753 阅读 · 0 评论 -
VFP 断号查询
CREATE CURSOR test (数字 N(5,0))INSERT INTO test values(7)INSERT INTO test values(88)INSERT INTO test values(9)INSERT INTO test values(8)INSERT INTO test values(103)INSERT INTO test values(12)INS原创 2015-02-18 02:27:43 · 634 阅读 · 0 评论 -
判断一个数是否是质数的方法
CLEARlncnt=0lnnum=123456789098765if (lnnum>=4 and (inlist(mod(lnnum,6),0,2,3,4))) or mod(lnnum,5)=0 return messagebox("["+transform(lnnum)+"]不是质数")endifmessagebox("12345")for lnI=2 to lnnum原创 2015-02-12 20:50:54 · 611 阅读 · 0 评论