Foxtable(狐表)用户栏目专家坐堂 → 代码


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

主题:代码

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


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2017/1/4 11:08:00 [只看该作者]

请问专家在吗,怎么没人理我了呢,好伤心!!!

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 11:19:00 [只看该作者]

以下是引用chen1029在2017/1/4 11:08:00的发言:
请问专家在吗,怎么没人理我了呢,好伤心!!!

 

去把首页的视频教程看完。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

如果要保存代码,肯定需要做个窗口,做个按钮。


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


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2017/1/4 11:50:00 [只看该作者]

Dim num As Integer = 30
Dim tns() As String = {"庆前", "前列"}

For Each tn As String In tns
    Dim dt As DataTable = DataTables(tn)
    Dim q As new QueryBuilder
    q.TableName = "查询_" & tn

    Dim sql As String = ""
    For Each dc As DataCol In dt.DataCols
        If dt.Find(dc.name & " = '" & num & "'") IsNot Nothing Then
            sql &= "," & dc.name
        End If
    Next
    q.SelectString = "Select ,," & sql & " From {" & dt.Name & "}"

    q.Build
    MainTable = Tables(q.TableName)
Next

请问上述代码查询出来的行数出现了改变怎么办,我是要将含有“30”的列按照原来的顺序列到查询表中。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 12:27:00 [只看该作者]

Dim num As Integer = 30
Dim tns() As String = {"庆前", "前列"}
For Each tn As String In tns
    Dim dt As DataTable = DataTables(tn)
    Dim q As new QueryBuilder
    q.TableName = "查询_" & tn
    Dim sql As String = ""
    For Each dc As DataCol In dt.DataCols
        If dt.Find(dc.name & " = '" & num & "'") IsNot Nothing Then
            sql &= "," & dc.name
        End If
    Next
    q.SelectString = "Select [_Identify], [_sortkey], 一,二,三" & sql & " From {" & dt.Name & "}"
    q.Build
    MainTable = Tables(q.TableName)
Next


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


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2017/1/4 13:58:00 [只看该作者]

一个按钮为Dim ary() As String = {"庆一三四", "一三四列"}

For Each tn As String In ary

    DataTables(tn).StopRedraw

    For Each dc As DataCol In DataTables(tn).DataCols

        If dc.Name.StartsWith("") AndAlso dc.name.Length = 7 Then

            Dim str As String = dc.Name.Replace("", "")

            Dim idx As Integer = 1

            For Each r As Row In Tables(tn).rows

                If str.IndexOf(r("")) >= 0 AndAlso str.IndexOf(r("")) >= 0 AndAlso str.IndexOf(r("")) >= 0 Then

                    r(dc.name) = ""

                    idx = 1

                Else

                    r(dc.name) = idx

                    idx = idx + 1

                End If

            Next

        End If

    Next

    DataTables(tn).ResumeRedraw

Next



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


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2017/1/4 13:59:00 [只看该作者]

另一个按钮为

Dim ary() As String = {"庆一二四", "一二四列"}

For Each tn As String In ary

    DataTables(tn).StopRedraw

    For Each dc As DataCol In DataTables(tn).DataCols

        If dc.Name.StartsWith(""AndAlso dc.name.Length = 7 Then

            Dim str As String = dc.Name.Replace("", "")

            Dim idx As Integer = 1

            For Each r As Row In Tables(tn).rows

                If str.IndexOf(r("")) >= 0 AndAlso str.IndexOf(r("")) >= 0 AndAlso str.IndexOf(r("")) >= 0 Then

                    r(dc.name) = ""

                    idx = 1

                Else

                    r(dc.name) = idx

                    idx = idx + 1

                End If

            Next

        End If

    Next

    DataTables(tn).ResumeRedraw

Next



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


加好友 发短信
等级:婴狐 帖子:75 积分:523 威望:0 精华:0 注册:2016/12/29 8:29:00
  发帖心情 Post By:2017/1/4 13:59:00 [只看该作者]

如何将这两个按钮合并为一个按钮来执行

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/4 14:16:00 [只看该作者]

Dim ary() As String = {"庆一三四", "一三四列","庆一二四", "一二四列"}
Dim cs() As String = {"一,三,四", "一,三,四","一,二,四", "一,二,四"}
For i As Integer = 0 To ary.length - 1
    dim tn as string = ary(i)
    DataTables(tn).StopRedraw
    For Each dc As DataCol In DataTables(tn).DataCols
        If dc.Name.StartsWith("庆") AndAlso dc.name.Length = 7 Then
            Dim str As String = dc.Name.Replace("庆", "")
            Dim idx As Integer = 1
            For Each r As Row In Tables(tn).rows
                Dim flag As Boolean = True
                For Each c As String In cs(i).split(",")
                    If str.IndexOf(r(c)) < 0 Then
                        flag = False
                        Exit For
                    End If
                Next
                If flag Then
                    r(dc.name) = "√"
                    idx = 1
                Else
                    r(dc.name) = idx
                    idx = idx + 1
                End If
            Next
        End If
    Next
    DataTables(tn).ResumeRedraw
Next

 


 回到顶部
总数 38 上一页 1 2 3 4