| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 多组合条件代码简化的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159298) |
| -- 作者：爱相随 -- 发布时间：2020/12/21 17:07:00 -- 多组合条件代码简化的问题 老师，下面代码是8个项目不同组合条件返回值（以下代码还没有循环完全，不同组合的循环），怎么简化相关代码呢？？ Select e.DataCol.Name Case "客商名称","项目名称","收支项目","流量名称","部门名称","姓名","账户名称","自定义项目名称" If e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("流量名称") AndAlso e.DataRow.IsNull("部门名称") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("账户名称") AndAlso e.DataRow.IsNull("自定义项目名称") Then e.DataRow("辅助项目") = Nothing Else Dim lb As String = e.DataRow("客商名称") If e.DataRow.IsNull("客商名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[收支:" & e.DataRow("收支项目") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[收支:" & e.DataRow("收支项目") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("收支项目") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("流量名称") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("姓名") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("自定义项目名称") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[收支:" & e.DataRow("收支项目") & "]" ElseIf e.DataRow.IsNull("账户名称") Then e.DataRow("辅助项目") = "[客商:" & e.DataRow("客商名称") & "]" & "[项目:" & e.DataRow("项目名称") & "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[收支:" & e.DataRow("收支项目") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("收支项目") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("账户名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("流量名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("姓名") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[自定义项目:" & e.DataRow("自定义项目名称") ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[收支:" & e.DataRow("收支项目") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称")& "]" & "[收支:" & e.DataRow("收支项目") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("账户名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("姓名") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[收支:" & e.DataRow("收支项目")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("账户名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[职员:" & e.DataRow("姓名")& "]" & "现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称") & "]" & "[账户:" & e.DataRow("账户名称")& "]" & "[现金流量:" & e.DataRow("流量名称") ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[现金流量:" & e.DataRow("流量名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("流量名称") Then e.DataRow("辅助项目") = "[账户:" & e.DataRow("账户名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" & "[项目:" & e.DataRow("项目名称") & "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("流量名称") AndAlso e.DataRow.IsNull("账户名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称")& "]" & "[部门:" & e.DataRow("部门名称")& "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("流量名称") AndAlso e.DataRow.IsNull("部门名称") Then e.DataRow("辅助项目") = "[项目:" & e.DataRow("项目名称")& "]" & "[账户:" & e.DataRow("账户名称")& "]" ElseIf e.DataRow.IsNull("客商名称") AndAlso e.DataRow.IsNull("自定义项目名称") AndAlso e.DataRow.IsNull("收支项目") AndAlso e.DataRow.IsNull("姓名") AndAlso e.DataRow.IsNull("流量名称") AndAlso e.DataRow.IsNull("部门名称") AndAlso e.DataRow.IsNull("项目名称") Then e.DataRow("辅助项目") = "[账户:" & e.DataRow("账户名称")& "]" End If End If End Select [此贴子已经被作者于2020/12/21 17:08:05编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/12/21 17:29:00 -- dim s1() as string = {"客商名称","项目名称"} dim s2() as string = {"客商","项目"} dim str as string for i as integer = 0 to s1.length - 1 if e.DataRow.IsNull(s1(i)) = false then str = str & "[" & d2(i) & ":" & e.DataRow(s1(i)) & "]" end if next msgbox(str) e.DataRow("辅助项目") = str
|