Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有9024人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
wsxdwh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
[求助]  发帖心情 Post By:2012/12/14 9:54:00 [显示全部帖子]

求绝对值    表达式为:Abs(-12)  不报错,也不执行。请指点!

 回到顶部
帅哥哟,离线,有人找我吗?
wsxdwh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By:2012/12/14 10:04:00 [显示全部帖子]

谢谢!!!

 


 回到顶部
帅哥哟,离线,有人找我吗?
wsxdwh
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:645 积分:4583 威望:0 精华:0 注册:2012/11/12 14:27:00
  发帖心情 Post By: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


 回到顶部