以文本方式查看主题

-  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编辑过]