共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：目录树取值，尚待解决，文件已上传
1楼
yanzhen2010 发表于：2011/8/14 20:13:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:住院.rar |
目录树取值，尚待解决
费用结算表窗口
需要将目录树中取得的值参与按钮代码的计算
老总给的代码，但不知如何利用
[此贴子已经被作者于2011-8-14 21:53:19编辑过]
2楼
程兴刚 发表于：2011/8/14 20:17:00文件呢？
3楼
yanzhen2010 发表于：2011/8/14 20:23:00文件刚上传成功，请程版主参阅
目前的问题是如何将目录树中取得的值放到按钮代码中
4楼
mr725 发表于：2011/8/14 22:51:00| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:住院.rar |
5楼
czy 发表于：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()
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()
6楼
yanzhen2010 发表于：2011/8/15 13:42:00感谢各位朋友和版主的赐教和支持，问题已经解决。
共6 条记录, 每页显示 10 条, 页签:
[1]