- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请大侠进一步，简单语句逻辑捋顺了！{求优化方案} (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66971)
-- 发布时间：2015/4/16 19:12:00
-- [求助]请大侠进一步，简单语句逻辑捋顺了！{求优化方案}
两个列变动在第三列显示判断结果，“两列更新数值有1个为空为空，旧数值有一个为空为空，都空为空，都不为空时“两列更新同输入“aaa”时显示“同类同”；两列更新相同但不都不是“aaa”时显示“异类同；两列不同时且都不是“aaa”时显示“差异”；前1列为“aaa”时显示顺差，后一列为“aaa”时表示逆差，其它“意有异常”?? 例如：客服给了一大概一轮廓如下（我再瞎编填补一下）！
Select Case e.DataCol.name
Case "第一列","第二列"
If e.DataRow.isnull("第一列") OrElse e.DataRow.isnull("第二列") Then
e.DataRow("第三列")=Nothing
Else
If e.DataRow("第一列")=e.DataRow("第二列") And e.DataRow("第一列")="aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="同类同"
Else
If e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" And e.DataRow("第一列")=e.DataRow("第二列") Then
e.DataRow("第三列")="异类同"
Else
If e.DataRow("第一列") <> e.DataRow("第二列") And e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="异类"
Else
If e.DataRow("第一列")="aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="顺差"
Else
If e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="逆差"
Else
e.DataRow("第三列")="注意异常请检查"
End If
End If
End If
End If
End If
End If
End Select
[此贴子已经被作者于2015/4/16 23:14:15编辑过]
-- 发布时间：2015/4/16 20:16:00
--
看不懂你的描述，最好用一个图片或表格来列出各种情况，自己的需求，自己最清楚，自己捋不清楚，别人更看明白。
-- 发布时间：2015/4/16 22:16:00
--
我觉得我说的还算明白吧？不知道前辈能看到附件图片不能？
望指导不知道怎么贴图就当附件上传了！
此主题相关图片如下：11111.jpg
此主题相关图片如下：11111.jpg-- 发布时间：2015/4/16 22:35:00
--
您好~~~如下书写有没有“优化方案”?谢谢
望指点，望指正！
我这个表里，这个只是一个小步骤判断。会不会将来影响速度？
Select Case e.DataCol.name
Case "第一列","第二列"
If e.DataRow.isnull("第一列") OrElse e.DataRow.isnull("第二列") Then
e.DataRow("第三列")=Nothing
Else
If e.DataRow("第一列")=e.DataRow("第二列") And e.DataRow("第一列")="aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="同类同"
Else
If e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" And e.DataRow("第一列")=e.DataRow("第二列") Then
e.DataRow("第三列")="异类同"
Else
If e.DataRow("第一列") <> e.DataRow("第二列") And e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="异类"
Else
If e.DataRow("第一列")="aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="顺差"
Else
If e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="逆差"
Else
e.DataRow("第三列")="注意异常请检查"
End If
End If
End If
End If
End If
End If
End Select
-- 发布时间：2015/4/17 9:23:00
--
if 语句本身可以多分支的：
Select Case e.DataCol.name
Case "第一列","第二列"
If e.DataRow.isnull("第一列") OrElse e.DataRow.isnull("第二列") Then
e.DataRow("第三列")=Nothing
ElseIf e.DataRow("第一列")=e.DataRow("第二列") And e.DataRow("第一列")="aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="同类同"
ElseIf e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" And e.DataRow("第一列")=e.DataRow("第二列") Then
e.DataRow("第三列")="异类同"
ElseIf e.DataRow("第一列") <> e.DataRow("第二列") And e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="异类"
ElseIf e.DataRow("第一列")="aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="顺差"
ElseIf e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="逆差"
Else
e.DataRow("第三列")="注意异常请检查"
End If
End Select
-- 发布时间：2015/4/17 10:36:00
--
哦哦哦，您这个看起来规整多了！（逻辑思路有点乱，大概需求如下）
语句框架问题：
1、请问：如果一张表内，由于“第一列”的变化，会首先影响后面列是否运算（或运算开关作用），影响后面（”第二列“、“第三列”变化后第四列显示结果） ..."N+1列"随之变动，
按说应该（不知道写的对不对）
全表各列都涉及 ” if e.DataRow ("第一列") = nothing Then
e.datarow（"N+1"）=nothing
或者 “if e.DataRow.IsNull（”第一列“） and e.DataRow.IsNull（”第N列“）Then
e.datarow（"N+1"）=nothing
且“第一列+第二列+第三列”综合变动影响第四列；“第一列+第四列+第五列“综合影响“第七列”....
那么优化框架如何搭建，每段标准开头会如何写？？？（从1楼试题来"扩展"写的话）
例如
Select Case e.DataCol.name
case "第一列"（这列需要如何的限制范围？例如：这列
if e.NewValue Isnot Nothing then
e.datarow（第1、2、3、4、...才计算） \'这样解释对么？ e.DataRow(第1、2、3、4、5...).Locked = False
else
e.datarow(第1、2、3、4、...N+1) = Nothing
case “第二列”
case“第n列”
End Select
Select Case e.DataCol.name
case "第一列（首要判断列）"，“第二（涉及其中一段）“，“第三列（涉及其中一段）”，”第四列（根据1、2、3列变化后显示结果列）“（这里需要怎样的“循环逻辑语句“？及不冲突上面独立”第一列“语句？又带用到这里做逻辑判断操作用？）
Select Case e.DataCol.name
Case "第一列","第二列","第三列"
If e.DataRow.isnull("第一列") then \'或者有什么其它写法？
e.DataRow("第四列")= Nothing
else
If e.DataRow.isnull("第二列") OrElse e.DataRow.isnull("第三列") Then
e.DataRow("第四列")=Nothing
ElseIf e.DataRow("第二列")=e.DataRow("第三列") And e.DataRow("第二列")="aaa" And e.DataRow("第三列")="aaa" Then
e.DataRow("第四列")="同类同"
ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")<>"aaa" And e.DataRow("第二列")=e.DataRow("第三列") Then
e.DataRow("第四列")="异同类"
ElseIf e.DataRow("第二列") <> e.DataRow("第三列") And e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")<>"aaa" Then
e.DataRow("第四列")="差异"
ElseIf e.DataRow("第二列")="aaa" And e.DataRow("第三列")<>"aaa" Then
e.DataRow("第四列")="顺差"
ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")="aaa" Then
e.DataRow("第四列")="逆差"
Else
e.DataRow("第四列")="异常错误"
End If
End Select
[此贴子已经被作者于2015/4/17 11:32:17编辑过]
-- 发布时间：2015/4/17 11:33:00
--
SystemReady = False
Select Case e.DataCol.name
Case "第一列","第二列","第三列"
If e.DataRow.isnull("第一列") then
e.DataRow("第四列")= Nothing
else
If e.DataRow.isnull("第二列") OrElse e.DataRow.isnull("第三列") Then
e.DataRow("第四列")=Nothing
ElseIf e.DataRow("第二列")=e.DataRow("第三列") And e.DataRow("第二列")="aaa" And e.DataRow("第三列")="aaa" Then
e.DataRow("第四列")="同类同"
ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")<>"aaa" And e.DataRow("第二列")=e.DataRow("第三列") Then
e.DataRow("第四列")="异同类"
ElseIf e.DataRow("第二列") <> e.DataRow("第三列") And e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")<>"aaa" Then
e.DataRow("第四列")="差异"
ElseIf e.DataRow("第二列")="aaa" And e.DataRow("第三列")<>"aaa" Then
e.DataRow("第四列")="顺差"
ElseIf e.DataRow("第二列")<>"aaa" And e.DataRow("第三列")="aaa" Then
e.DataRow("第四列")="逆差"
Else
e.DataRow("第四列")="异常错误"
End If
End Select
SystemReady = True
这个意思?
-- 发布时间：2015/4/19 19:28:00
--
请大神给捋捋顺顺...优化优化！
1、整体效果如下图！
此主题相关图片如下：无标题.jpg
2、问题：“原始地能否使”，“目的地能否使”部分 真不知道怎么书写语句！
原来“易表”里可用
if([原始地能力单]="",“异常”,if([原始地能力单]="无效地址"，“异常”，......,Instr([筛币种],[货币能力表]))))
现在如何书写？？？
3、您给总体优化并规划一下语句框架结构，谢谢！语句基本都是 套说明 自己理解写得，有不科学实用之处望指教！
4、有的语句我想从变量模式变成取“固定列字符”搜寻跨表相等列名，然后有符合的返回相应值。
例如1：
Dim dr As DataRow
dr = DataTables("转换表").Find("[畸形地区码] = \'" & e.NewValue & "\'")
上面代码怎么转成“不用变量就跨表寻找某个字段，如果有，就赋值相应列的值？
易表句型： FindText("转换表","币种三字码","币种的名称", "=", [筛币种])
然后怎么从判断结果的不同，去用字符做“索引”字段？
易表句型：
【落地能力单】
if([原始地]="PEK","全能",
if([原始地转标地]<>"",FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地转标地]),
FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地])))
If e.DataCol.Name = "原始地" Then
If e.NewValue Is Nothing Then
e.DataRow("原始地转标地") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[畸形地区码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("原始地转标地") = dr("标准地区码")
Else
e.DataRow("原始地转标地") = Nothing
End If
End If
End If
If e.DataCol.Name = "目的地" Then
If e.NewValue Is Nothing Then
e.DataRow("目的地转标地") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[畸形地区码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("目的地转标地") = dr("标准地区码")
Else
e.DataRow("目的地转标地") = Nothing
End If
End If
End If
If e.DataCol.Name = "现币种" Then
If e.NewValue Is Nothing Then
e.DataRow("筛币种") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[币种的名称] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("筛币种") = dr("币种三字码")
Else
e.DataRow("筛币种")= "币种异常或错误"
End If
End If
End If
Select Case e.DataCol.name
Case "原始地","目的地"
If e.DataRow.isnull("原始地") OrElse e.DataRow.isnull("目的地") Then
e.DataRow("分析") = Nothing
ElseIf e.DataRow("原始地")=e.DataRow("目的地") And e.DataRow("原始地")="PEK" And e.DataRow("目的地")="PEK" Then
e.DataRow("分析")="未曾旅游"
ElseIf e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")<>"PEK" And e.DataRow("原始地")=e.DataRow("目的地") Then
e.DataRow("分析")="旅游驻留"
ElseIf e.DataRow("原始地") <> e.DataRow("目的地") And e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")<>"PEK" Then
e.DataRow("分析")="旅游途中"
ElseIf e.DataRow("原始地")="PEK" And e.DataRow("目的地")<>"PEK" Then
e.DataRow("分析")="出京中"
ElseIf e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")="PEK" Then
e.DataRow("分析")="回京中"
Else
e.DataRow("分析")="异常请检查"
End If
End Select
*******************************************************************************88
’以下字段感觉不太顺，但是自己调不好！
如果在易表中我想如下表示语句：
[原始币种能力]列进行判断取值
if([原始地]="",“”，
if([起代转标]<>"",FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地转标地]),
FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地])))
Select Case e.DataCol.name ’狐表里只能这样，感觉不通顺有瑕疵！
Case "原始地","原始地转标地"
If e.DataRow.IsNull("原始地") Then
e.DataRow("原始地币种能力") = Nothing
ElseIf e.DataRow("原始地转标地") <> Nothing Then
Dim mz As DataRow
mz = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If mz IsNot Nothing Then
e.DataRow("原始地币种能力") = mz("货币能力表")
End If
ElseIf e.DataRow.IsNull("原始地转标地") Then
Dim lz As DataRow = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If lz IsNot Nothing Then
e.DataRow("原始地币种能力") = lz("货币能力表")
Else
e.DataRow("原始地币种能力")="无效地址"
End If
End If
Case "目的地","目的地转标地"
If e.DataRow.IsNull("目的地") Then
e.DataRow("目的地币种能力") = Nothing
ElseIf e.DataRow("目的地转标地") <> Nothing Then
Dim mz As DataRow
mz = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If mz IsNot Nothing Then
e.DataRow("目的地币种能力") = mz("货币能力表")
End If
ElseIf e.DataRow.IsNull("目的地转标地") Then
Dim lz As DataRow = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If lz IsNot Nothing Then
e.DataRow("目的地币种能力") = lz("货币能力表")
Else
e.DataRow("目的地币种能力")="无效地址"
End If
End If
End Select
**********************************************************************************
【原始地能否使】【目的地能否使】字段不知道怎么写！如下是’易表‘里我能写出的，换到’弧表‘不知道怎么表达？？（希望优化，或内部语句直接运算后，节省分列数量提高效率。）
单列出一个字段【原始地能否筛选】对［筛币种］：［起飞能力单］进行比对是否包含筛币种字符：
if([原始地币种能力]="","",
if([原始地币种能力]="无效地址","新地点",
,Instr([筛币种],[原始地币种能力])))) ‘如果包含，那么有“数值＞＝０”
再单列出【是否需要兑换】列对上一字段判断，得出最终结果
if([原始地能否筛选]="新地点","是",
if([原始地能否筛选]>="0","否",
"是"))
*************************************************************************************
Select Case e.DataCol.name
Case "原始地能否使用","目的地能否使用"
If e.DataRow.IsNull("原始地能否使用") OrElse e.DataRow.IsNull("目的地能否使用") Then
e.DataRow("需换钱否") = False
ElseIf e.DataRow("原始地能否使用")="是" And e.DataRow("目的地能否使用")="是" Then
e.DataRow("需换钱否") = False
ElseIf e.DataRow("原始地能否使用")="否" And e.DataRow("目的地能否使用")="否" Then
e.DataRow("需换钱否") = True
ElseIf e.DataRow("原始地能否使用")="是" And e.DataRow("目的地能否使用")="否" Then
e.DataRow("需换钱否") = True
ElseIf e.DataRow("原始地能否使用")="否" And e.DataRow("目的地能否使用")="是" Then
e.DataRow("需换钱否") = True
Else
e.DataRow("需换钱否") = False
End If
End Select
[此贴子已经被作者于2015/4/19 22:19:08编辑过]
-- 发布时间：2015/4/19 22:18:00
--
此主题相关图片如下：无标题.jpgIf e.DataCol.Name = "原始地" Then
If e.NewValue Is Nothing Then
e.DataRow("原始地转标地") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[畸形地区码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("原始地转标地") = dr("标准地区码")
Else
e.DataRow("原始地转标地") = Nothing
End If
End If
End If
If e.DataCol.Name = "目的地" Then
If e.NewValue Is Nothing Then
e.DataRow("目的地转标地") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[畸形地区码] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("目的地转标地") = dr("标准地区码")
Else
e.DataRow("目的地转标地") = Nothing
End If
End If
End If
If e.DataCol.Name = "现币种" Then
If e.NewValue Is Nothing Then
e.DataRow("筛币种") = Nothing
Else
Dim dr As DataRow
dr = DataTables("转换表").Find("[币种的名称] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("筛币种") = dr("币种三字码")
Else
e.DataRow("筛币种")= "币种异常或错误"
End If
End If
End If
Select Case e.DataCol.name
Case "原始地","目的地"
If e.DataRow.isnull("原始地") OrElse e.DataRow.isnull("目的地") Then
e.DataRow("分析") = Nothing
ElseIf e.DataRow("原始地")=e.DataRow("目的地") And e.DataRow("原始地")="PEK" And e.DataRow("目的地")="PEK" Then
e.DataRow("分析")="未曾旅游"
ElseIf e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")<>"PEK" And e.DataRow("原始地")=e.DataRow("目的地") Then
e.DataRow("分析")="旅游驻留"
ElseIf e.DataRow("原始地") <> e.DataRow("目的地") And e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")<>"PEK" Then
e.DataRow("分析")="旅游途中"
ElseIf e.DataRow("原始地")="PEK" And e.DataRow("目的地")<>"PEK" Then
e.DataRow("分析")="出京中"
ElseIf e.DataRow("原始地")<>"PEK" And e.DataRow("目的地")="PEK" Then
e.DataRow("分析")="回京中"
Else
e.DataRow("分析")="异常请检查"
End If
End Select
*******************************************************************************88
’以下字段感觉不太顺，但是自己调不好！
如果在易表中我想如下表示语句：
[原始币种能力]列进行判断取值
if([原始地]="",“”，
if([起代转标]<>"",FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地转标地]),
FindText("地区货币能力表","货币能力表","地区三字码","=",[原始地])))
Select Case e.DataCol.name ’狐表里只能这样，感觉不通顺有瑕疵！
Case "原始地","原始地转标地"
If e.DataRow.IsNull("原始地") Then
e.DataRow("原始地币种能力") = Nothing
ElseIf e.DataRow("原始地转标地") <> Nothing Then
Dim mz As DataRow
mz = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If mz IsNot Nothing Then
e.DataRow("原始地币种能力") = mz("货币能力表")
End If
ElseIf e.DataRow.IsNull("原始地转标地") Then
Dim lz As DataRow = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If lz IsNot Nothing Then
e.DataRow("原始地币种能力") = lz("货币能力表")
Else
e.DataRow("原始地币种能力")="无效地址"
End If
End If
Case "目的地","目的地转标地"
If e.DataRow.IsNull("目的地") Then
e.DataRow("目的地币种能力") = Nothing
ElseIf e.DataRow("目的地转标地") <> Nothing Then
Dim mz As DataRow
mz = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If mz IsNot Nothing Then
e.DataRow("目的地币种能力") = mz("货币能力表")
End If
ElseIf e.DataRow.IsNull("目的地转标地") Then
Dim lz As DataRow = DataTables("地区货币能力表").Find("[地区三字码] = \'" & e.NewValue & "\'")
If lz IsNot Nothing Then
e.DataRow("目的地币种能力") = lz("货币能力表")
Else
e.DataRow("目的地币种能力")="无效地址"
End If
End If
End Select
**********************************************************************************
【原始地能否使】【目的地能否使】字段不知道怎么写！如下是’易表‘里我能写出的，换到’弧表‘不知道怎么表达？？（希望优化，或内部语句直接运算后，节省分列数量提高效率。）
单列出一个字段【原始地能否筛选】对［筛币种］：［起飞能力单］进行比对是否包含筛币种字符：
if([原始地币种能力]="","",
if([原始地币种能力]="无效地址","新地点",
,Instr([筛币种],[原始地币种能力])))) ‘如果包含，那么有“数值＞＝０”
再单列出【是否需要兑换】列对上一字段判断，得出最终结果
if([原始地能否筛选]="新地点","是",
if([原始地能否筛选]>="0","否",
"是"))
*************************************************************************************
Select Case e.DataCol.name
Case "原始地能否使用","目的地能否使用"
If e.DataRow.IsNull("原始地能否使用") OrElse e.DataRow.IsNull("目的地能否使用") Then
e.DataRow("需换钱否") = False
ElseIf e.DataRow("原始地能否使用")="是" And e.DataRow("目的地能否使用")="是" Then
e.DataRow("需换钱否") = False
ElseIf e.DataRow("原始地能否使用")="否" And e.DataRow("目的地能否使用")="否" Then
e.DataRow("需换钱否") = True
ElseIf e.DataRow("原始地能否使用")="是" And e.DataRow("目的地能否使用")="否" Then
e.DataRow("需换钱否") = True
ElseIf e.DataRow("原始地能否使用")="否" And e.DataRow("目的地能否使用")="是" Then
e.DataRow("需换钱否") = True
Else
e.DataRow("需换钱否") = False
End If
End Select