共8 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：这么自动充填字符的表达式，如何写，烦请狐哥帮手
1楼
fagg 发表于：2011/10/7 18:10:00
2楼
don 发表于：2011/10/7 19:25:00Select e.DataCol.name
Case "累计核销费用","待报费用"
If e.DataRow.IsNull("待报费用") Then
e.DataRow("项目状态") = "等待资料中"
ElseIf e.DataRow("待报费用") = 0 Then
e.DataRow("项目状态") = "核销完成"
Else
e.DataRow("项目状态") = "正在核销中"
End If
End Select
If e.DataCol.Name = "项目状态" Then
If e.DataRow("项目状态") = "核销完成" Then
e.DataRow.Locked = True
Dim n As Integer = Tables("表A").Findrow(e.DataRow)+1
Tables("表A").SetHeaderCellBackColor("项目状态",Color.Red,n)
End If
End If
3楼
fagg 发表于：2011/10/8 8:43:00谢谢，
但好像不行，
因为”“累计核销费用”和“待报费用”是通过表达式自动计算出来的数据，对“项目状态”更新没有用呢？烦请师兄帮手解决一下，
再次感谢。
4楼
狐狸爸爸 发表于：2011/10/8 9:03:00Select e.DataCol.name
Case "核销费用01","核销费用02","申请费用","累计核销费用"
If e.DataRow.IsNull("待报费用") Then
e.DataRow("项目状态") = "等待资料中"
ElseIf e.DataRow("待报费用") = 0 Then
e.DataRow("项目状态") = "核销完成"
Else
e.DataRow("项目状态") = "正在核销中"
End If
End Select
If e.DataCol.Name = "项目状态" Then
If e.DataRow("项目状态") = "核销完成" Then
e.DataRow.Locked = True
Dim n As Integer = Tables("表A").Findrow(e.DataRow)+1
Tables("表A").SetHeaderCellBackColor("项目状态",Color.Red,n)
End If
End If
5楼
fagg 发表于：2011/10/8 15:31:00谢谢，狐哥，
顺便汇报一下工作进展。
购得软件很久，但一直没空研究，近日利用假期，做好了结构，测试了一下，相当不错，呵呵，
近几日准备让同事在测试几次，
打算下月起，开始录入数据。
估计还是要买套开发版才行。
[此贴子已经被作者于2011-10-8 15:33:31编辑过]
6楼
狐哥 发表于：2011/10/8 16:16:00KAO,别再叫 狐哥,改叫 狐兄 吧.
总以为在叫我.哈哈
7楼
czy 发表于：2011/10/8 16:19:00哈，人家和老六称兄道弟你也剥夺啊
8楼
don 发表于：2011/10/8 16:22:00以下是引用czy在2011-10-8 16:19:00的发言：
哈，人家和老六称兄道弟你也剥夺啊
哈，人家和老六称兄道弟你也剥夺啊
哈哈,不对!老六嘛,要尊称为老大或狐爸嘀.
共8 条记录, 每页显示 10 条, 页签:
[1]