以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问 if 语句后面的then这个单词能省略吗？，帮助文件里面的示例有的If后面有then ,有的没有then,什么原因？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92553)
--  作者：foxtable_New
--  发布时间：2016/11/7 8:38:00
--  请问 if 语句后面的then这个单词能省略吗？，帮助文件里面的示例有的If后面有then ,有的没有then,什么原因？

请问 if 语句后面的then这个单词能省略吗？帮助文件里面的示例有的If后面有then ,有的没有then,什么原因？

实际运行和时候，if 后面有then 和没有then的都能正常运行，系统没有提示错误，下面是开发指南里面的示例原文，

其中这句“ If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符”if 后面就没有then 

请问 if 语句后面的then这个单词能省略吗？如果能省略，在什么情况下可以省略？


要自动生成上述编号，代码更加简单：

If e.DataCol.Name = "日期" Then
    If e.DataRow.IsNull("日期") Then
        e.DataRow("编号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("日期"),"yyyyMMdd") \'取得编号的8位前缀
        If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(编号)","日期 = #" & e.DataRow("日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
            If max > "" Then \'如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 \'获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 \'否则顺序号等于1
            End If
            e.DataRow("编号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If
--  作者：有点青
--  发布时间：2016/11/7 9:22:00
--  

 完整的vb代码不能省略，但是vb.net可以省略。

 

 不要纠结语法。
--  作者：foxtable_New
--  发布时间：2016/11/7 9:27:00
--  
Foxtable(狐表)用的是Vb.net吗？
--  作者：有点蓝
--  发布时间：2016/11/7 9:32:00
--  
是的
--  作者：foxtable_New
--  发布时间：2016/11/7 9:55:00
--  
好的，谢谢