主题：[求助]列表框给表赋值

Dim dt As DataTable = DataTables("表A")
For Each bd As QQBuddy In QQClient.Buddies                     '显示好友名和在线状态
    Dim fdr As DataRow = dt.Find("组+'.'+姓名 = '" & bd.Name & "'")
    If fdr Is Nothing Then
        fdr = dt.AddNew
        fdr("组") = bd.Name.Split(".")(0)
        fdr("姓名") = bd.Name.Split(".")(1)
    End If
    fdr("状态") = IIF(bd.Online,"在线","离线")
Next