- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树取值，尚待解决，文件已上传 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11860)
-- 发布时间：2011/8/14 20:13:00
-- 目录树取值，尚待解决，文件已上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住院.rar |
目录树取值，尚待解决
费用结算表窗口
需要将目录树中取得的值参与按钮代码的计算
老总给的代码，但不知如何利用
[此贴子已经被作者于2011-8-14 21:53:19编辑过]
-- 发布时间：2011/8/14 20:17:00
--
文件呢？
-- 发布时间：2011/8/14 20:23:00
--
文件刚上传成功，请程版主参阅
目前的问题是如何将目录树中取得的值放到按钮代码中
-- 发布时间：2011/8/14 22:51:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:住院.rar |
-- 发布时间：2011/8/14 23:10:00
--
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim Name As String
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked = True Then
Name = Name & "\'" & nd.Text & "\',"
End If
Next
Dim f1 As New Filler
f1.SourceTable = DataTables("长期医嘱")
f1.SourceCols = "患者姓名,住院号,拼音码,项目类别,项目名称,sys_单位,sys_规格,单价"
f1.ExcludeExistValue= True
f1.DataTable = DataTables("费用结算")
f1.DataCols = "患者姓名,住院号,拼音码,项目类别,项目名称,单位,规格,单价"
f1.Filter = "住院号 In (" & Name.Trim(",") & ")"
f1.Distinct = True
f1.Fill()
-- 发布时间：2011/8/15 13:42:00
--
感谢各位朋友和版主的赐教和支持，问题已经解决。