 加好友  发短信
等级：八尾狐
帖子：1812
积分：12999
威望：0
精华：14
注册：2008/10/11 18:07:00
|
 Post By：2012/5/20 11:15:00 [显示全部帖子]
參考: Dim cmd As New
SQLCommand
Dim dt As
DataTable
cmd.ConnectionName = "region"
cmd.CommandText = "SELECT DISTINCT 省,市县,区号,邮编 From
{行政区域}"
dt = cmd.ExecuteReader()
'生成目录树
Dim tb As New
DropTreeBuilder
tb.SourceTable = dt
tb.TreeCols = "省|市县"
tb.SourceCols
= "省|市县|区号|邮编"
tb.ReceiveCols = "省|市县|区号|邮编"
Tables("客户").Cols("省").DropTree = tb.Build()
|
|
