TC官方合作论坛

 找回密码
 立即注册
查看: 4574|回复: 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 | 显示全部楼层

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

使用道具 举报

发表于 2012-9-20 22:09:06 | 显示全部楼层
  漂亮 啊,execl表格的功能啊
回复 支持 反对

使用道具 举报

发表于 2012-9-20 22:21:40 | 显示全部楼层
什么情况
回复 支持 反对

使用道具 举报

 楼主| 发表于 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了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-9-20 22:30:21 | 显示全部楼层

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

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

使用道具 举报

发表于 2012-9-20 22:40:34 | 显示全部楼层
这是什么啊
回复 支持 反对

使用道具 举报

发表于 2012-9-21 00:07:59 | 显示全部楼层
hhhhhhhhhhhhhh
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

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

GMT+8, 2024-5-20 18:18 , Processed in 0.039428 second(s), 25 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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