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


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

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/9 17:26:00 [只看该作者]

Dim i As Integer = 6
For i = i To 11 Step 1
    msgbox(i)
Next

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：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 不是为负数，就是大于行数。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/9 19:31:00 [只看该作者]

这段代码肯定没问题。

 

你去看看datacochanged事件或者afterCheckRow事件
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 20:30:00 [只看该作者]

老师，
  您在给看看

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/9 20:39:00 [只看该作者]

肯定错啊，你表里面只有10行，但是你赋值是12了啊

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/12/9 20:50:00 [只看该作者]

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/9 20:55:00 [只看该作者]

凑足行，再赋值

 

Dim qyyf As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
qyyf.Value=d1.Month
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：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


为什么 没有效果呢
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/9 22:31:00 [只看该作者]


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