Select Case e.DataCol.Name
Case"年月" ',"合同号"
If e.DataRow("审核") = 0
Dim cmd As New SQLCommand
cmd.ConnectionName = "SERVER"
cmd.CommandText = "SELECT sum( 实领工资1) From {二线1} where [年月] = '" & e.DataRow("年月") & "'"
dim d as double = cmd.ExecuteScalar
e.DataRow("应支出工资_二线") = d
End If
End Select
[此贴子已经被作者于2023/9/27 16:58:00编辑过]