请大侠帮我改一句代码

[hz03zhuhaowen]

我的程序

Private Sub m_ListInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Dim FItemID() As Long
    Set rs = m_ListInterface.K3Lib.GetData("Select FUserID From t_User Where FName IN (Select FName From t_Emp Where FDepartmentID In (Select FDepartmentID From t_Emp Where FItemID = ( " & _
            " Select t1.FItemID From t_Emp t1 Join t_user t2 On t1.FName=t2.FName Where t2.FUserID = 16409)))")
    ReDim FItemID(rs.RecordCount) As Long
    For i = 1 To rs.RecordCount
        FItemID(i - 1) = rs.Fields("FUserID")
        FItemID = rs.Fields("FUserID")
'        m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & FItemID(i - 1) & "' )")
        rs.MoveNext
    Next
End Sub

SQL语句的结果为
FUserID
-------
16396
16422
16395
16428
16409

（所影响的行数为 5 行）
请帮我把以上程序中注释语句改成这样的形式
t_BOS220000001.FBiller In (16396,16422,16395,16428,16409)
代码应该怎么写?

[feiyun0112]

dim str
For i = 1 To rs.RecordCount
FItemID(i - 1) = rs.Fields("FUserID")
FItemID = rs.Fields("FUserID")
if str="" then
str=rs.Fields("FUserID")
else
str=str & rs.Fields("FUserID") &","
endif
rs.MoveNext
Next

m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & str & "' )")



*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)
http://feiyun0112.cnblogs.com/

[yaomin65]

[Quote=引用 1 楼 feiyun0112 的回复:]
dim str
For i = 1 To rs.RecordCount
FItemID(i - 1) = rs.Fields("FUserID")
FItemID = rs.Fields("FUserID")
if str="" then
str=rs.Fields("FUserID")
else
str=str & rs.Fields("FUserID") &","
endif
rs.MoveNext
Next

m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & str & "' )")

[/Quote]
帮顶

[hz03zhuhaowen]

不明白

[hz03zhuhaowen]

[Quote=引用 1 楼 feiyun0112 的回复:]
dim str
For i = 1 To rs.RecordCount
FItemID(i - 1) = rs.Fields("FUserID")
' FItemID = rs.Fields("FUserID")
if str="" then
str=rs.Fields("FUserID")
else
str=str & rs.Fields("FUserID") &","
endif
rs.MoveNext
Next

m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & str & "' )")



*****************************************…
[/Quote]
明白

[hz03zhuhaowen]

[Quote=引用 1 楼 feiyun0112 的回复:]
dim str
For i = 1 To rs.RecordCount
FItemID(i - 1) = rs.Fields("FUserID")
' FItemID = rs.Fields("FUserID")
if str="" then
str=rs.Fields("FUserID")
else
str=str & rs.Fields("FUserID") &","
endif
rs.MoveNext
Next

m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & str & "' )")



*****************************************…
[/Quote]
调试后有错误:
将varchar值'1639616422,16395,16428,16409,'转换为数据类型为int的列时发生语法错误

[clear_zero]

1639616422 这个对于int太大了

定义long

[hz03zhuhaowen]

[Quote=引用 1 楼 feiyun0112 的回复:]
dim str
For i = 1 To rs.RecordCount
FItemID(i - 1) = rs.Fields("FUserID")
FItemID = rs.Fields("FUserID")
if str="" then
str=rs.Fields("FUserID")
else
str=str & rs.Fields("FUserID") &","
endif
rs.MoveNext
Next

m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( '" & str & "' )")



*****************************************…
[/Quote]
修改后的正确代码如下:

Private Sub m_ListInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    Dim FItemID() As Long
    Dim str As String
    
    'TODO: ÇëÔÚ´Ë´¦Ìí¼Ó´úÂëÏìӦʼþ MenuBarInitialize
    Set rs = m_ListInterface.K3Lib.GetData("Select FUserID From t_User Where FName IN (Select FName From t_Emp Where FDepartmentID In (Select FDepartmentID From t_Emp Where FItemID = ( " & _
            " Select t1.FItemID From t_Emp t1 Join t_user t2 On t1.FName=t2.FName Where t2.FUserID = '" & m_ListInterface.K3Lib.User.UserID & "')))")
    ReDim FItemID(rs.RecordCount) As Long
   
     For i = 1 To rs.RecordCount
         FItemID(i - 1) = rs.Fields("FUserID")
         If str = "" Then
            str = rs.Fields("FUserID")
         Else
            str = str & "," & rs.Fields("FUserID")
         End If
         rs.MoveNext
     Next
     m_ListInterface.ListFilterString = (" t_BOS220000001.FBiller In ( " & str & " )")
End Sub