Question

我有要在列表视图中添加的DataTable中的列列表。我已经在列表视图中指定了要显示的列和数据列。

    EmailAddress  Subject     RecievedDate
     cd@cd.in      Hello      02/06/2011 23:00

这种格式出现。请任何人都可以提供帮助

编辑：

到目前为止

代码：

For i = 0 To objDataTable.Rows.Count drow = objDataTable.Rows(i) 
    Dim lvwItem As ListViewItem = New lvwItem(drow("SenderEmail"))    
    'lvwItem.SubItems.Add(drow("SenderEmail")) 
    lvwItem.SubItems.Add(drow("EmailSubject")) 
    lvwItem.SubItems.Add(drow("RecievedDate").ToString()) 
    lvwItem.SubItems.Add(drow("AssignedTo").ToString()) 
    LOV.Items.Add(lvwItem) 
Next

Answer 1

您的代码示例看起来几乎正确。这一行有一个错误：

Dim lvwItem As ListViewItem = New lvwItem(drow("SenderEmail"))

这应该是：

Dim lvwItem As ListViewItem = New ListViewItem(drow("SenderEmail").ToString())

除此之外，您需要确保列表视图位于详细信息视图中，并且您确实拥有所需的列（否则在详细信息视图中不会显示任何内容）：

    With listview1
        .View = View.Details
        .Columns.Add("Email Address")
        .Columns.Add("Subject")
        .Columns.Add("Recived Date")
        'etc
    End With

另一个小问题是这一行：

For i = 0 To objDataTable.Rows.Count

应该是

For i = 0 To objDataTable.Rows.Count - 1

从Datatable添加四列到列表视图

1 个答案: