- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]语法错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78466)
-- 发布时间：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
-- 发布时间：2015/12/9 17:26:00
--
Dim i As Integer = 6
For i = i To 11 Step 1
msgbox(i)
Next
-- 发布时间：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 不是为负数，就是大于行数。
-- 发布时间：2015/12/9 19:31:00
--
这段代码肯定没问题。
你去看看datacochanged事件或者afterCheckRow事件
-- 发布时间：2015/12/9 20:30:00
--
老师，
您在给看看
-- 发布时间：2015/12/9 20:39:00
--
肯定错啊，你表里面只有10行，但是你赋值是12了啊
-- 发布时间：2015/12/9 20:50:00
--
老师，
我把行数凑齐了，您在给看下
-- 发布时间：2015/12/9 20:55:00
--
凑足行，再赋值
Dim qyyf As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
qyyf.Value=d1.Month
-- 发布时间：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
为什么 没有效果呢
-- 发布时间：2015/12/9 22:31:00
--
看看
http://www.foxtable.com/help/topics/2628.htm