Dim Multi As String = tb1.Value
Multi = Multi.Replace(vbcr, "").Replace(vblf, "','")
Dim Values() As String = Nothing
Dim sql_str As String = "select * from 排序测试表 where 第一列 in ('" & Multi & "')"
msgbox(sql_str )
回复
此主题相关图片如下:snipaste_2024-12-02_17-15-52.png
还是没按in里面的顺序
此主题相关图片如下:snipaste_2024-12-02_17-30-54.png
此主题相关图片如下:snipaste_2024-12-02_17-31-03.png
代码:
此主题相关图片如下:snipaste_2024-12-02_17-32-05.png