以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何判断一个数是某整数倍  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112889)
--  作者：刘林
--  发布时间：2018/1/4 17:36:00
--  如何判断一个数是某整数倍
如题，我想判断考号的右边四位是否是30的倍数，请问怎么写判断
--  作者：有点甜
--  发布时间：2018/1/4 17:42:00
--  

Dim str As String = "123456789990"
Dim ys As Integer = right(str, 4) Mod 30
If ys = 0 Then
    msgbox("倍数")
Else
    msgbox("不是")
End If

 
--  作者：刘林
--  发布时间：2018/1/4 20:56:00
--  
Dim str As String = trim(e.Row("考号"))
Dim ys As Integer = right(str, 4) Mod 30
If ys = 0 Then
    e.Style = "样式1"
End If

老师请问这个写在表DrawCell事件里有个问题是窗口用这个表时都是样式1，我想在某些窗口按这个样式显示，而有些不需要，请问该写在窗口表的什么事件里？
--  作者：有点甜
--  发布时间：2018/1/4 21:38:00
--  

判断表名

 

Dim str As String = trim(e.Row("考号"))
Dim ys As Integer = right(str, 4) Mod 30
If ys = 0 AndAlso (e.Table.Name = "窗口1_Table1" OrElse e.Table.name = "窗口2_Table1") Then
    e.Style = "样式1"
End If