Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]语法错误


  共有2414人关注过本帖树形打印复制链接

主题：[求助]语法错误
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]语法错误  发帖心情 Post By：2015/12/9 17:21:00 [显示全部帖子]

老师 ，
标注颜色部分代码不行，怎么写，显示语法错误
   Dim r As Integer
Dim i As Integer=e.Sender.value-1


For r=0 To i-1 Step 1
    If Tables("AS009启用年度_table1").Rows(r)("第三列")="True" Then
        Tables("AS009启用年度_table1").Rows(r)("第三列")="False"
    End If
Next

For i To 11 Step 1
    If Tables("AS009启用年度_table1").Rows(i)("第三列")="false" Then
        Tables("AS009启用年度_table1").Rows(i)("第三列")="true"
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 18:26:00 [显示全部帖子]

老师，
   语法正确，代码没达到目标

一共是12行 是1-12月的状态 选定

Dim R As Integer
Dim i As Integer=e.Sender.value-1                          例如e.Sender.value  是 5月份 i=5-1=4
MessageBox.Show(r & i)


For r=0 To i-1 Step 1                                            行号 0-3 锁定  这块有误？
    Tables("AS009启用年度_table1").Rows(r)("第三列")="False"
    Tables("AS009启用年度_table1").Rows(r).Checked =True
Next



提示 索引 10 不是为负数，就是大于行数。
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 20:30:00 [显示全部帖子]

老师，
  您在给看看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:语法错误.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 20:50:00 [显示全部帖子]

老师，
  我把行数凑齐了，您在给看下
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:语法错误.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 22:16:00 [显示全部帖子]

哦 解决了

老师，

DrawCell 事件


For Each r As Row In Tables("AS009启用年度_table1").Rows

    If r("第三列")="True" Then

        e.Style = "突出"

    Else

        e.Style = "恢复"

    End If

Next


为什么 没有效果呢
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询