- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口按钮代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16632)
-- 发布时间：2012/2/20 11:04:00
-- [求助]窗口按钮代码问题
打开窗口1，需要在退出按钮中加入如下功能代码：
1、如果输入了“产品”而"产品规格"数据为空时，按退出，则弹出提示“是否确定不输入产品规格”按确定，则退出\'"窗口1"，按取消，则返回“窗口1”重新输入产品规格。
2、窗口1中的结算方式和金额为必填项，如果有一列为空，按退出，则弹出提示“请输入结算方式和金额”
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.table |
[此贴子已经被作者于2012-2-20 11:04:43编辑过]
-- 发布时间：2012/2/20 11:39:00
--
For Each dr As Row In Tables("表A").Rows
If dr.IsNull("结算方式")= True Or dr.IsNull("金额")= True Then
MessageBox.Show("请输入结算方式和金额")
Return
ElseIf dr.IsNull("产品规格")= True Then
Dim Result As DialogResult
Result = MessageBox.Show("是否确定不输入产品规格?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
e.Form.Close()
Else
e.Cancel = True
End If
End If
Next
-- 发布时间：2012/2/20 11:42:00
--
这个是所有行的判断,因为你没有说是当前行还是全部行,所以给你个所有行的
-- 发布时间：2012/2/20 11:52:00
--
以下是引用blackzhu在2012-2-20 11:42:00的发言：
这个是所有行的判断,因为你没有说是当前行还是全部行,所以给你个所有行的
谢谢，如果是当前行，该怎么改？？
-- 发布时间：2012/2/20 11:52:00
--
Dim r As Row = Tables("表A").Current
If r.IsNull("产品") = False AndAlso r.IsNull("产品规格") Then
If MessageBox.Show("是否确定不输入产品规格?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No
Return
End If
End If
If r.IsNull("结算方式") OrElse r.IsNull("金额") Then
MessageBox.Show("请输入结算方式和金额?", "提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
DataTables("表A").DeleteFor("客户 Is Null")
DataTables("表A").Save
e.Form.close