- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于计算的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72779)
-- 发布时间：2015/8/6 9:21:00
-- [求助]关于计算的问题
现有主窗口门诊部，进入编辑处方窗口选择药品，填写剂量后，药费不能自动计算得出，例子如下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4_201508060916.zip |
-- 发布时间：2015/8/6 9:30:00
--
下拉窗口
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("项目规格")
Tables("处方").Current("单价" & idx) = tbl.Current("单价")
End If
End If
-- 发布时间：2015/8/6 9:37:00
--
嗯，刚找到了这里出错。然后还有一个问题，我没解决，就是处方窗口选择后的药品删掉更改，但规格不会随着药品删掉后自动删除
-- 发布时间：2015/8/6 9:46:00
--
datacolchanged事件
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "剂量1","单价1","单价2","剂量2","单价3","剂量3" ,"单价4","剂量4" ,"单价5","剂量5" ,"注射费"
dr("药费") = dr("剂量1") * dr("单价1") + dr("剂量2") * dr("单价2") + dr("剂量3") * dr("单价3") + dr("剂量4") * dr("单价4") + dr("剂量5") * dr("单价5")
dr("合计") = dr("剂量1") * dr("单价1") + dr("剂量2") * dr("单价2") + dr("剂量3") * dr("单价3") + dr("剂量4") * dr("单价4") + dr("剂量5") * dr("单价5") + dr("注射费")
Case "收费项目1","收费项目2","收费项目3","收费项目4","收费项目5"
Dim idx As String = right(e.DataCol.Name,1)
If e.NewValue = Nothing
e.DataRow("项目规格" & idx) = Nothing
e.DataRow("单价" & idx) = Nothing
Else
Dim fdr As DataRow = DataTables("药品清单模板").find("收费项目 = \'" & e.DataRow(e.DataCol.Name) & "\'")
If fdr IsNot Nothing Then
e.DataRow("项目规格" & idx) = fdr("项目规格")
e.DataRow("单价" & idx) = fdr("单价")
Else
e.DataRow("项目规格" & idx) = Nothing
e.DataRow("单价" & idx) = Nothing
End If
End If
End Select
-- 发布时间：2015/8/6 9:56:00
--
好的，谢谢大红袍老师