- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于DropBox的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70782)
-- 发布时间：2015/6/29 9:46:00
-- [求助]关于DropBox的问题
1、有“处方”和“药品清单模板”两张表，现在处方编辑窗口DropBox控件中输入标识fnj选择药品后，txt控件中规格内容不会自动填上，还请老师查看下问题所在之处。
2.关于重置的问题，有表“病情记录单”，有列名“记录时间”，类型为DateTime，现在要每次打开项目后“距今天数”发生变化，因设置为初始不加载表，故重置代码写在窗口afterload事件中：DataTables("病情记录单").DataCols("记录时间").RaiseDataColChanged() 但每次打开项目后其数值未见有变更，还请老师指正。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4_201506290945.zip |
-- 发布时间：2015/6/29 9:56:00
--
1.找不到药品在哪里
2.ALterLoad是第二次加载也就是重新加载才会触发. 你应该写到加载代码的后面.
-- 发布时间：2015/6/29 15:00:00
--
药品在“药品清单模板”表中有罗列出来。例子如下：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4_201506291458.zip |
-- 发布时间：2015/6/29 15:11:00
--
DropDownClosed事件
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("窗口3_Table1")
If tbl.Current IsNot Nothing Then
Dim idx As String = e.Form.DropDownBox.BindingField.Split(".")(1).replace("收费项目", "")
Tables("处方").Current("收费项目" & idx) = tbl.Current("收费项目")
Tables("处方").Current("项目规格" & idx) = tbl.Current("项目规格")
End If
End If