Dim skmcs As Integer
Dim sksfsl,sksfqe,skljsf,skljqe,skjlsl,skjlqe,sksy,skljsy As String
skmcs = 3
If e.DataCol.name = "Xmbh" Then
ski = 1
Do While ski <= skmcs
If ski <= 1 Then
e.DataRow("JlqeNo01") = e.DataRow("JlslNo01") * e.DataRow("Htdj") '第一句语句
e.DataRow("sfqeNo01") = e.DataRow("SfslNo01") * e.DataRow("Htdj")
e.DataRow("LjsfNo01") = e.DataRow("SfslNo01")
e.DataRow("LjqeNo01") = e.DataRow("JlslNo01") * e.DataRow("Htdj")
e.DataRow("SyNo01") = e.DataRow("SfslNo01") - e.DataRow("JlslNo01")
e.DataRow("LjsyNo01") = e.DataRow("SyNo01")
Else
End If
ski = ski + 1
Loop
End If
加好友 
发短信
Post By：2018/6/5 10:03:00 [只看该作者]
