报错:表达式包含未定义的函数调用
目的:增加一个临时列,用这个临时列生成目录树
Dim cmd As New SQLCommandcmd.
Dim dt As DataTablecmd.CommandText = "S ELECT DISTINCT 疾病编码,疾病名称 From {BLZDZDK}"dt = cmd.ExecuteReader()dt.DataCols.Add("首编码",Gettype(String),"Left(疾病编码,3)") ‘ 取前三个字符Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")trv.BuildTree(dt,"首编码|疾病名称")trv.Nodes.Insert("加载所有行",0)