- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问此功能怎么实现？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153105)
-- 发布时间：2020/7/31 10:37:00
-- [求助]请问此功能怎么实现？
现在已经完成的功能是 开票已勾选 已开票金额显示；开票未勾选 未开票金额显示
贴上代码：
If e.DataCol.Name = "是否开票" Then \'如果是已结帐列的内容变动
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
e.DataRow("已开票金额") = e.DataRow("加工费") \'那么锁定此行
e.DataRow("未开票金额") =0 \'那么锁定此行
Else If e.NewValue = False Then \'而且变动后的值是True(已勾选)
e.DataRow("未开票金额") =e.DataRow("加工费") \'那么锁定此行
e.DataRow("已开票金额") = 0
End If
End If
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
e.DataRow("已开票金额") = e.DataRow("加工费") \'那么锁定此行
e.DataRow("未开票金额") =0 \'那么锁定此行
Else If e.NewValue = False Then \'而且变动后的值是True(已勾选)
e.DataRow("未开票金额") =e.DataRow("加工费") \'那么锁定此行
e.DataRow("已开票金额") = 0
End If
End If
请问想实现手动输入金额后 “是否开票”栏 自动勾选 比如输入 已开票金额后，未开票金额填写 0 后，会自动打钩
-- 发布时间：2020/7/31 10:46:00
--
Select Case e.DataCol.Name
Case "是否开票" Then \'如果是已结帐列的内容变动
systemready = False
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
e.DataRow("已开票金额") = e.DataRow("加工费") \'那么锁定此行
e.DataRow("未开票金额") =0 \'那么锁定此行
Else If e.NewValue = False Then \'而且变动后的值是True(已勾选)
e.DataRow("未开票金额") =e.DataRow("加工费") \'那么锁定此行
e.DataRow("已开票金额") = 0
End If
systemready = True
Case "已开票金额"
If e.NewValue > 0 Then
systemready = False
e.DataRow("是否开票") = True
e.DataRow("未开票金额") =0
systemready = True
End If
Case "已未开票金额"
If e.NewValue > 0 Then
systemready = False
e.DataRow("是否开票") = False
e.DataRow("已开票金额") = 0
systemready = True
End If
End Select
[此贴子已经被作者于2020/7/31 10:46:47编辑过]
-- 发布时间：2020/7/31 11:02:00
--
谢谢老师