以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  代码出错了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96474)

--  作者：有点色 --  发布时间：2017/2/21 18:17:00 --   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 [此贴子已经被作者于2017/2/21 18:17:25编辑过]