以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]判断奇偶  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77289)
--  作者：dd6b
--  发布时间：2015/11/15 15:27:00
--  [求助]判断奇偶
我的某类商品是按G0001、G0002......字符串编号的，现在要按奇数、偶数分开统计，不是数值怎么判断奇偶呢？
--  作者：大红袍
--  发布时间：2015/11/15 15:43:00
--  

偶数

 

Dim count As Double = DataTables("表a").Compute("count(第一列)","Convert(SubString(第一列,2,len(第一列)-1),\'System.Int32\') % 2 = 0")

msgbox(count)

 

奇数

 

Dim count As Double = DataTables("表a").Compute("count(第一列)","Convert(SubString(第一列,2,len(第一列)-1),\'System.Int32\') % 2 = 1")

msgbox(count)