1、用下面的代码
Dim cmd As New SQLCommandDim dt As DataTablecmd.CommandText = "SELECT Format(第六列, 'HH:mm') as 时间 Fr om {表A}"dt = cmd.ExecuteReader()Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree(dt,"时间")