以文本方式查看主题

-  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=26789)
--  作者：wsxdwh
--  发布时间：2012/12/14 9:54:00
--  [求助]
求绝对值    表达式为：Abs(-12)  不报错，也不执行。请指点！
--  作者：lin_hailun
--  发布时间：2012/12/14 10:00:00
--  
 呃，对于表达式，不能这样求值。

 IIF(-12 < 0, -12 * -1, -12)
--  作者：wsxdwh
--  发布时间：2012/12/14 10:04:00
--  

谢谢！！！

 
--  作者：wsxdwh
--  发布时间：2012/12/17 11:54:00
--  

从“临时报名表”向“报名表”填充《区》、《学校》，不重复的数据，就是说：如果某区某校已经报名，就不能够再次报名。

 

 

Dim dt As DataTable = DataTables("临时报名表")
Dim qus As List(Of String)= dt.GetUniqueValues("", "区")
Dim xxs As List(Of String)= dt.GetUniqueValues("", "学校")

 

For Each qu As String In qus
    For Each xx As String In xxs
       
        If DataTables("报名表").Find("区 = \'" & qu.Text & "\' And 学校 = \'" & xx.Text & "\'") Is Nothing Then
            )
            Dim f As New Filler
            f.SourceTable = dt \'指定数据来源
            f.DataTable = DataTables("报名表") \'指定数据接收表
            f.Fill() \'填充数据
        End If
Next
Next