'把me.tab中的數(shù)據(jù)填充到列表項(xiàng)myitem中
        myitem.Items.Clear()
Try
Dim i = 0
With myitem
Do While i < Me.tab.Rows.Count
.Items.Add(Me.tab.Rows(i)(0))
i += 1
Loop
'If .Items.Count > 0 Then
                '    .SelectedIndex = 0
                'End If
            End With
Catch ex As Exception
MsgBox(ex.Message)
End Try