代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

iif([付款单位] = "高科控股集团",董事长2,子公司2)

老师，这个表达式为何不对

iif([付款单位] = '高科控股集团',董事长2,子公司2)

看看：

http://www.foxtable.com/help/topics/0102.htm

http://www.foxtable.com/help/topics/1647.htm

If e.DataCol.Name = "合约" Then

Dim K As String = e.DataRow("合约")

Select Case K

Case "全额同意"

e.DataRow("cbb") = e.DataRow("实际申请金额")

Case "修改后同意"

e.DataRow("cbb") = Nothing

Case Else

e.DataRow("cbb") = "0"

End Select

ElseIf e.DataCol.Name = "财务1" Then

Dim K As String = e.DataRow("财务1")

Select Case K

Case "全额同意"

e.DataRow("财务2") = e.DataRow("CBB")

Case "修改后同意"

e.DataRow("财务2") = Nothing

Case Else

e.DataRow("财务2") = "0"

End Select

ElseIf e.DataCol.Name = "子公司1" Then

Dim L As String = e.Row("付款单位")

Select Case e.Row("付款单位")

Case "高科开发建设","高科置业发展","贵州望城投资"

Dim K As String = e.DataRow("子公司1")

Select Case K

Case "全额同意"

e.DataRow("子公司2") = e.DataRow("财务2")

Case "修改后同意"

e.DataRow("子公司2") = Nothing

Case Else

e.DataRow("子公司2") = "0"

End Select

Case "高科控股集团"

Dim K As String = e.DataRow("子公司1")

Select Case K

Case "全额同意"

e.DataRow("子公司2") = e.DataRow("CBB")

Case "修改后同意"

e.DataRow("子公司2") = Nothing

Case Else

e.DataRow("子公司2") = "0"

End Select

ElseIf e.DataCol.Name = "总工办" Then

Dim K As String = e.DataRow("总工办")

Select Case K

Case "全额同意"

e.DataRow("JTZGB1") = e.DataRow("财务2")

Case "修改后同意"

e.DataRow("JTZGB1") = Nothing

Case Else

e.DataRow("JTZGB1") = "0"

End Select

ElseIf e.DataCol.Name = "集团财务1" Then

Dim K As String = e.DataRow("集团财务1")

Select Case K

Case "全额同意"

e.DataRow("JTCWB1") = e.DataRow("JTZGB1")

Case "修改后同意"

e.DataRow("JTCWB1") = Nothing

Case Else

e.DataRow("JTCWB1") = "0"

End Select

ElseIf e.DataCol.Name = "董事长1" Then

Dim K As String = e.DataRow("董事长1")

Select Case K

Case "全额同意"

e.DataRow("董事长2") = e.DataRow("JTCWB1")

Case "修改后同意"

e.DataRow("董事长2") = Nothing

Case Else

e.DataRow("董事长2") = "0"

End Select

End If

意思是在子公司负责人审核时，根据付款单位列的值进行判断，如果付款单位列的值是“高科控股集团”，且意见列为“全额同意”，则子公司2值取CBB列的值，如果是其他单位，则取财务2的值，在没加条件年是对的，可加了这条件后就不行了

[此贴子已经被作者于2014-9-11 16:10:51编辑过]

这个意思？

Dim L As String = e.DataRow("付款单位")
Select Case e.DataRow("付款单位")

老师，比如我有一张CHAIQIAN合同台账表，每一个合同就对应一名CHAIQIAN户，而申请资金可能是由若干CHAIQIAN合同合并成一个数据。就是一个表的很多行，选择后点击按钮，合并生成另一个表的一行数据，能实现么？？

老师，比如我有一张拆迁合同台账表，每一个合同就对应一名拆迁户，而申请资金可能是由若干拆迁合同合并成一个数据。就是一个表的很多行，选择后点击按钮，合并生成另一个表的一行数据，能实现么？？

多行生成一行？列数不确定？

为什么要这样做？

列数确定，因为数量多，资金类型相同，所以将相同的合并成本笔资申请，

主题：代码