夢回『易表』:邏輯值轉為數值;日期和數值間轉化! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 夢回『易表』:邏輯值轉為數值;日期和數值間轉化!

共有20286人关注过本帖树形打印复制链接主题：夢回『易表』:邏輯值轉為數值;日期和數值間轉化!

don

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

夢回『易表』:邏輯值轉為數值;日期和數值間轉化! 发帖心情

Post By：2009/4/10 12:13:00 [只看该作者]

一、邏輯值轉為0或-1:

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = DataTables("表A")
dst.RowHeaderVisible = 1
dst.CheckBoxes = Math.abs(Val(dst.CheckBoxes))-1
dst.Build()
e.Sender.Text = choose(Math.abs(Val(dst.CheckBoxes))+1,"复选框","行号")

二、日期和數值間轉化:

Dim d,d1 as Date
d1 = #4/3/2009#
d = Date.FromOaDate(Math.max(Date.today.tooadate,d1.adddays(-5).tooadate))
Return d