Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = Mydata
cmd.CommandText = "Select 部门编码,部门名称 AS 生产单位 From dept where 部门类型 = '生产单位'"
dt = cmd.ExecuteReader()
Dim dmp As New TableDataMap
dmp.DataTable = dt.name '指定数据来源表
dmp.ValueCol = "部门编码" '指定取值列
dmp.DisplayCol = "生产单位" '指定显示列
'指定下拉列表时显示哪些列的数据
dmp.ListCols = "部门编码,生产单位,事业部名称"
dmp.Sort = "部门编码" '指定排序方式
Tables(e.Form.name & "_主表").cols("生产单位").DataMap = dmp.CreateDataMap() '生成并设置DataMap
如上所示,想用一个查询得到的临时表生成datamap,但是没有作用,也没有提示出错,不能这样用吗?
谢谢!
加好友 
发短信
Post By：2020/12/9 17:16:00 [显示全部帖子]
