共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：夢回『易表』:邏輯值轉為數值;日期和數值間轉化!
1楼
don 发表于：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
2楼
ybtxdz 发表于：2009/4/10 12:13:00沙发
3楼
狐狸爸爸 发表于：2009/4/10 12:26:00
4楼
程兴刚 发表于：2009/4/10 23:09:00收藏！
共4 条记录, 每页显示 10 条, 页签:
[1]