- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教字段赋值对话框问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63613)
-- 发布时间：2015/1/24 22:55:00
-- 请教字段赋值对话框问题
有什么问题 ，不会编，求修正。
Dim Result As DialogResult
Result = MessageBox.Show("初始化日期?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
dim Val As Date
InputValue(val, "初始化日期","请输入出生日期:")
DataTables("系统").DataRows("发放年月")=（val）
Else
MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If
-- 发布时间：2015/1/25 9:13:00
--
对表的某一行，如下
Dim Result As DialogResult
Result = MessageBox.Show("初始化日期?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Val As Date
InputValue(val, "初始化日期","请输入出生日期:")
Tables("系统").Current("发放年月") = val
Else
MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If
-- 发布时间：2015/1/25 9:14:00
--
对表的所有行，参考
Dim Result As DialogResult
Result = MessageBox.Show("初始化日期?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim Val As Date
InputValue(val, "初始化日期","请输入出生日期:")
DataTables("系统").ReplaceFor("发放年月", val)
Else
MessageBox.Show("好好学习吧,你会认同这个看法的.","提示")
End If
-- 发布时间：2015/1/25 11:49:00
--
感谢
