- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 夢回『易表』:邏輯值轉為數值;日期和數值間轉化! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2383)
-- 发布时间：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
-- 发布时间：2009/4/10 12:13:00
--
沙发
-- 发布时间：2009/4/10 12:26:00
--
-- 发布时间：2009/4/10 23:09:00
--
收藏！