TC官方合作论坛

 找回密码
 立即注册
查看: 2209|回复: 22
打印 上一主题 下一主题

[功能] 第一次写表格写的不太好请大家多多提意见

[复制链接]
跳转到指定楼层
楼主
发表于 2012-9-20 21:55:20 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
进来一定要回复哦意见越多兮兮越高兴

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

沙发
 楼主| 发表于 2012-9-20 22:05:48 | 只看该作者
大家支持下里面有源代码用最新版本的可以看到
回复 支持 反对

使用道具 举报

板凳
发表于 2012-9-20 22:08:45 | 只看该作者
破处
第一回复.
回复 支持 反对

使用道具 举报

地板
发表于 2012-9-20 22:08:46 | 只看该作者

得研究下,看看是干嘛用的
回复 支持 反对

使用道具 举报

5#
发表于 2012-9-20 22:09:06 | 只看该作者
  漂亮 啊,execl表格的功能啊
回复 支持 反对

使用道具 举报

6#
发表于 2012-9-20 22:21:40 | 只看该作者
什么情况
回复 支持 反对

使用道具 举报

7#
 楼主| 发表于 2012-9-20 22:25:14 | 只看该作者
空间 表格测试
//定义默认空间

功能 逻辑型 开始_点击()
//这里添加你要执行的代码

表格.设置内容("表格0",1,0,"同学A")
表格.设置内容("表格0",2,0,"同学B")
表格.设置内容("表格0",3,0,"同学C")
表格.设置内容("表格0",4,0,"同学D")
表格.设置内容("表格0",5,0,"同学E")
表格.设置内容("表格0",6,0,"同学F")
表格.设置内容("表格0",7,0,"同学G")
表格.设置内容("表格0",8,0,"同学H")
表格.设置内容("表格0",9,0,"同学I")
返回 真
//函数返回语句
功能结束

功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()

返回 真
//函数返回语句
功能结束
功能 逻辑型 按钮1_点击()
    字符型 a
    字符型 b
    字符型 c
    字符型 d
    整型 求和
    a=表格.获得内容("表格0",1,1)
    b=表格.获得内容("表格0",1,2)
    c=表格.获得内容("表格0",1,3)
    d=表格.获得内容("表格0",1,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",1,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",1,5,"")
    如果结束
        
    a=表格.获得内容("表格0",2,1)
    b=表格.获得内容("表格0",2,2)
    c=表格.获得内容("表格0",2,3)
    d=表格.获得内容("表格0",2,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",2,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",2,5,"")
    如果结束   
    a=表格.获得内容("表格0",3,1)
    b=表格.获得内容("表格0",3,2)
    c=表格.获得内容("表格0",3,3)
    d=表格.获得内容("表格0",3,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",3,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",3,5,"")
    如果结束
    a=表格.获得内容("表格0",4,1)
    b=表格.获得内容("表格0",4,2)
    c=表格.获得内容("表格0",4,3)
    d=表格.获得内容("表格0",4,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",4,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",4,5,"")
    如果结束   
    a=表格.获得内容("表格0",5,1)
    b=表格.获得内容("表格0",5,2)
    c=表格.获得内容("表格0",5,3)
    d=表格.获得内容("表格0",5,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",5,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",5,5,"")
    如果结束   
    a=表格.获得内容("表格0",6,1)
    b=表格.获得内容("表格0",6,2)
    c=表格.获得内容("表格0",6,3)
    d=表格.获得内容("表格0",6,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",6,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",6,5,"")
    如果结束   
    a=表格.获得内容("表格0",7,1)
    b=表格.获得内容("表格0",7,2)
    c=表格.获得内容("表格0",7,3)
    d=表格.获得内容("表格0",7,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",7,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",7,5,"")
    如果结束   
    a=表格.获得内容("表格0",8,1)
    b=表格.获得内容("表格0",8,2)
    c=表格.获得内容("表格0",8,3)
    d=表格.获得内容("表格0",8,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",8,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",8,5,"")
    如果结束   
    a=表格.获得内容("表格0",9,1)
    b=表格.获得内容("表格0",9,2)
    c=表格.获得内容("表格0",9,3)
    d=表格.获得内容("表格0",9,4)
    求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    表格.设置内容("表格0",9,5,(转换.整型转字符型(求和)))
    如果(求和<=0)
        表格.设置内容("表格0",9,5,"")
    如果结束   
//如果(求和==0)
   
   
//如果结束
//这里添加你要执行的代码


返回 真

功能结束
//功能 逻辑型 按钮2_点击()
////这里添加你要执行的代码
    //字符型 a
    //字符型 b
    //字符型 c
    //字符型 d
    //整型 求和
    //a=表格.获得内容("表格0",2,1)
    //b=表格.获得内容("表格0",2,2)
    //c=表格.获得内容("表格0",2,3)
    //d=表格.获得内容("表格0",2,4)
    //求和=转换.字符型转整型(a)+转换.字符型转整型(b)+转换.字符型转整型(c)+转换.字符型转整型(d)
    //表格.设置内容("表格0",2,5,(转换.整型转字符型(求和)))
//返回 真
//功能结束

空间结束
//空间结束语句
这是更改后的代码我就不重新上传了改后没写的地方就不会有0了
回复 支持 反对

使用道具 举报

8#
 楼主| 发表于 2012-9-20 22:30:21 | 只看该作者

RE:第一次写表格写的不太好请大家多多提意见

新代码在下面
回复 支持 反对

使用道具 举报

9#
发表于 2012-9-20 22:40:34 | 只看该作者
这是什么啊
回复 支持 反对

使用道具 举报

10#
发表于 2012-9-21 00:07:59 | 只看该作者
hhhhhhhhhhhhhh
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-18 21:22 , Processed in 0.165390 second(s), 25 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表