老师您好!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
