以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16262)

--  作者:hwd1987
--  发布时间:2012/2/7 17:04:00
--  [求助]

三个表

   A表(编号、名称、事件)

   B表(编号、名称、事件)

   C表(编号、名称、事件)

窗口控件代码要求:如何设置条件:

   1、判断A表事件中 是否等于 “完成”,

   2、若=,则添加A表中的编号、名称、事件到B表

   3、若≠,则提示:“A表事件未完成,不能进行B事件”

 

麻烦大家帮个忙主要是  判断不知道如何写。


--  作者:狐狸爸爸
--  发布时间:2012/2/7 17:18:00
--  

Dim r1 As Row = Tables("A表").Current

If r.Isnull("事件") then

    MessageBox.Show("A表事件未完成,不能进行B事")

Else

    Dim r2 AS Row = Tables("B表").AddNew()

    r2("编号") = r1("编号")

    r2("名称") = r1("名称")

    r2("事件") = r1("事件")

End if


--  作者:hwd1987
--  发布时间:2012/2/8 9:35:00
--  

Dim r1 As Row = Tables("A表").Current

If r.Isnull("事件") then

    MessageBox.Show("A表事件未完成,不能进行B事")

Else

    Dim r2 AS Row = Tables("B表").AddNew()

    r2("编号") = r1("编号")

    r2("名称") = r1("名称")

    r2("事件") = r1("事件")

End if


If r.Isnull("事件") then这里是r还是r1呢?


--  作者:hwd1987
--  发布时间:2012/2/8 9:38:00
--  

谢谢狐狸爸爸,还有一个问题,如果在事件中有除完成外的其他条件,如:未完成,未能处理,这时如何进行上面的判断呢?


--  作者:狐狸爸爸
--  发布时间:2012/2/8 9:45:00
--  

If  条件1 OrElse 条件2 OrElse 条件3 Then

  

End if


--  作者:hwd1987
--  发布时间:2012/2/8 12:39:00
--  

嗯嗯,谢谢狐狸爸爸


--  作者:hwd1987
--  发布时间:2012/2/8 12:48:00
--  

不好意思还有点问题,

判断:

         A表中事件=未完成,则提示:A表事件未完成,不能进行B事件

         A表中事件=未能处理,则提示:A表事件未能处理,不能进行B事件

         A表中事件=完成,则提示:A表事件已完成,B事件成功开启,然后添加A表信息到B表。

 


--  作者:狐狸爸爸
--  发布时间:2012/2/8 12:55:00
--  

Dim r1 As Row = Tables("A表").Current

If r.Isnull("事件") OrElse r("事件") = “未完成” Then

    MessageBox.Show("A表事件未完成,不能进行B事")

ElseIf  r("事件") =  "未能处理" Then

     MessageBox.Show("A表事件未能处理,不能进行B事")

Else

    Dim r2 As Row = Tables("B表").AddNew()

    r2("编号") = r1("编号")

    r2("名称") = r1("名称")

    r2("事件") = r1("事件")

End If


--  作者:hwd1987
--  发布时间:2012/2/8 12:58:00
--  
谢谢………………………………谢谢!