- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 创建列，既能用目录树下拉选择，又能输入后显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101033)
-- 发布时间：2017/5/23 23:29:00
-- 创建列，既能用目录树下拉选择，又能输入后显示
如题建立总则目录树，在表第100章中引用总则目录树，要在输入子目号的时候，子目名称和单位也显示，同时能够下拉在目录树中选择怎么办？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2017/5/24 8:44:00
--
第100章DataColChanged事件
Select Case e.DataCol.Name
Case "子目号"
If e.DataRow.IsNull("子目号") Then
e.DataRow("子目名称") = Nothing
e.DataRow("单位") = Nothing
Else
Dim dr As DataRow = DataTables("总则目录树表").Find("子目号=\'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("子目名称") = dr("子目名称")
e.DataRow("单位") = dr("单位")
End If
End If
End Select