标题：[求助]

1楼

沪上游客 发表于：2023/9/2 19:38:00

老师您好！

Dim cmb As WinForm.ComboBox = e.Sender

Dim str As String = e.Form.Controls("ComboBox2").Value

cmb.ComboList = DataTables("支出合同查询_Table1").SQLGetComboListString("项目部全称", "所属部门_分公司 = '" & str & "'")

cmb.ComboList = DataTables("支出合同查询_Table1").SQLGetComboListString("项目部全称", "所属部门_分公司 in('" & .str.Replace(",", "','") & "')")

以上代码蓝色的码是原来一个分公司时可以正常运行

此主题相关图片如下：qq图片20230902193330.png

改成红色代码后出现以下错误提示，请问应该怎么写？谢谢老师指教！

此主题相关图片如下：qq图片20230902193313.png

2楼

有点蓝 发表于：2023/9/3 19:58:00

cmb.ComboList = DataTables("支出合同查询_Table1").SQLGetComboListString("项目部全称", "所属部门_分公司 in ('" & str.Replace(",", "','") & "')")

共2 条记录, 每页显示 10 条, 页签: [1]