If Tables("监理合同标段明细录入_Table1").Current Is Nothing Then Return Else Dim str As String = "'总标段','年度'" Tables("监理合同标段明细录入_Table1").Cols("合同付款办法_收款条件").ComboList = DataTables("合同监理费收费明细").GetComboListString("合同付款办法_收款条件","[项目名称] = '" & e.Table.Current("项目名称") & "' And [标段名称] in (" & str & ")") End If