主题：这个加载的判断怎么写?

Dim ids As String = “”

For Each dr As DataRow In DataTables("商品档案").DataRows

    ids = ids & "," & dr("商品编码")

Next

ids= ids.Trim(",")

if ids > "" then

    DataTables("商品套件名称").LoadFilter = "商品编码 In (" & ids & ")"

    DataTables("商品套件名称").Load()

end if