如题下面代码出错：
Dim cmb7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
Dim tb As Table = Tables(e.Form.Name & "_Table1")
For Each dr As Row In tb.Rows
Dim fdr As DataRow = DataTables("招标信息").Find("系统编号 = '" & dr("系统编号") & "'")
If cmb7.Value = "风险控制价" Then
tb.DataTable.DataCols.Add("下浮率_风险控制价",Gettype(Double),"IIF(fdr.IsNull("风险控制价"),Nothing,(dr("投标报价") - fdr("风险控制价")) / fdr("风险控制价")")
Else
If tb.DataTable.DataCols.Contains("下浮率_风险控制价") Then
tb.DataTable.DataCols.Delete("下浮率_风险控制价")
End If
End If
Next
错误提示：
此主题相关图片如下：22222222256.png
加好友 
发短信
Post By：2018/10/10 23:47:00 [显示全部帖子]
