- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表达式问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103914)
-- 发布时间：2017/7/19 15:38:00
-- [求助]表达式问题
有两列如图
如果第六列的值变化，则第七列的值也随着变化
第六列是1-3 第七列则是5
第六列是4-8 第七列则是4
依次类推
应该在哪里实现啊？是在列表达式，还是在窗口代码？
应该怎么表达？
试了好多都实现不来，求帮助啊
谢谢
-- 发布时间：2017/7/19 16:22:00
--
DataColChanged
If e.DataCol.name="第六列" Then
If e.newvalue >= 1 AndAlso e.newvalue <= 3 Then
e.DataRow("第七列") = 5
ElseIf e.newvalue >= 4 AndAlso e.newvalue <= 8 Then
e.DataRow("第七列") = 4
Else
e.DataRow("第七列") = Nothing
End If
End If
-- 发布时间：2017/7/19 18:29:00
--
谢谢大大帮我解答
但是我又遇到了个新问题，还是上表，第六列是个表达式列，写进代码后没反应，我变成数据列后，可用了。
现在，我要怎么解决，在第六列是个表达式列的情况下，能让第七列自动获取数值呢？
还是必须把第六列变成数据列？
如果第六列必须是数据列的话，我想着可用再建一列第六列-1，让这一列是数据列，取值和第六列完全一样，这样能不能实现了呢？
那要怎样做，才能让第六列-1和第六列的数值完全相同啊
[此贴子已经被作者于2017/7/19 18:29:42编辑过]
-- 发布时间：2017/7/19 19:38:00
--
你第六列的表达式怎么写的？看看 http://www.foxtable.com/webhelp/scr/2381.htm
-- 发布时间：2017/7/19 21:08:00
-- [求助]
依然先谢谢大大帮忙解答。
Select Case e.DataCol.Name
Case "第四列" ,"第五列"If e.DataCol.name=" [第四列] * [第五列]" Then
If e.newvalue >= 1 AndAlso e.newvalue <= 3 Then
e.DataRow("第七列") = 5
ElseIf e.newvalue >= 4 AndAlso e.newvalue <= 8 Then
e.DataRow("第七列") = 4
ElseIf e.newvalue >= 9 AndAlso e.newvalue <= 11 Then
e.DataRow("第七列") = 3
Else
e.DataRow("第七列") = Nothing
End If
End If
End Select这样么？我试了下，没反应~~~~~
-- 发布时间：2017/7/19 21:11:00
--
Select Case e.DataCol.Name
Case "第四列" ,"第五列"
Dim val As Integer = e.DataRow("第六列")
If val >= 1 AndAlso val <= 3 Then
e.DataRow("第七列") = 5
ElseIf val >= 4 AndAlso val <= 8 Then
e.DataRow("第七列") = 4
ElseIf val >= 9 AndAlso val <= 11 Then
e.DataRow("第七列") = 3
Else
e.DataRow("第七列") = Nothing
End If
End Select
-- 发布时间：2017/7/19 21:26:00
-- [求助]
好了，实现啦，谢谢大大