以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  这条代码如何修改 请专家指教！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28209)
--  作者：wsxdwh
--  发布时间：2013/1/22 15:21:00
--  这条代码如何修改 请专家指教！

这条代码如何修改  请专家指教！

Tables("临时报名表").Focus()
Tables("临时报名表").StartEditing()
Dim nms() As String = { "竞赛名称","区","中小学","学校","姓名","参赛项目","辅导教师" }
Dim nm1 As String = "设备频率"
Dim nm2 As String = "参赛项目"
Dim r As Row = Tables("临时报名表").Current
For Each nm As String  In nms
    If r.isnull(nm) Then
        messagebox.show(nm & "必须输入内容")
If r.(nm2 Like " % 遥控 % ")  And r.isnull(nm1) Then
    messagebox.show("遥控项目必须填写设备频率")
        Return
    End If

End If


Next

Tables("临时报名表").Current.Clone()
--  作者：lin_hailun
--  发布时间：2013/1/22 15:43:00
--  
 看看是这样不？

Tables("临时报名表").Focus()
Tables("临时报名表").StartEditing()
Dim nms() As String = { "竞赛名称","区","中小学","学校","姓名","参赛项目","辅导教师" }
Dim nm1 As String = "设备频率"
Dim nm2 As String = "参赛项目"
Dim r As Row = Tables("临时报名表").Current
For Each nm As String  In nms
    If r.isnull(nm) Then
        messagebox.show(nm & "必须输入内容")
        Return
    ElseIf r(nm2) Like "*遥控*" AndAlso r.isnull(nm1) Then
        messagebox.show("遥控项目必须填写设备频率")
        Return
    End If
Next

Tables("临时报名表").Current.Clone()
[此贴子已经被作者于2013-1-22 17:25:58编辑过]
--  作者：wsxdwh
--  发布时间：2013/1/22 17:15:00
--  

谢谢！

测试过了，不填设备频率没有提示。

你那里有项目，可以试一下

 
--  作者：lin_hailun
--  发布时间：2013/1/22 17:26:00
--  
 估计是这句代码错了。

ElseIf r(nm2) Like "*遥控*" AndAlso r.isnull(nm1) Then

 我多加了一个空格，你删除之
[此贴子已经被作者于2013-1-22 17:26:14编辑过]
--  作者：wsxdwh
--  发布时间：2013/1/23 9:46:00
--  

 

[此贴子已经被作者于2013-1-23 10:00:11编辑过]