以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188119)
--  作者：沪上游客
--  发布时间：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
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/9/3 19:58:00
--  
cmb.ComboList = DataTables("支出合同查询_Table1").SQLGetComboListString("项目部全称", "所属部门_分公司 in (\'" & str.Replace(",", "\',\'") & "\')")