以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么第一句语句不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119975)
--  作者：吴昌克
--  发布时间：2018/6/5 10:03:00
--  为什么第一句语句不执行
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
--  作者：有点甜
--  发布时间：2018/6/5 11:09:00
--  

如果执行，代码肯定全部执行的。不存在某一句执行某一句不执行的情况。

 

做一个具体项目上传上来，说明具体问题。