Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于数据源连接


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

主题：关于数据源连接
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：924 积分：6639 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2020/12/8 17:53:00 [显示全部帖子]

老师，做成内部表了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：924 积分：6639 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2020/12/8 22:06:00 [显示全部帖子]

老师，后面的代码是：
        a2 = nr("hm")
        srr = rgx.Split(a2)
        n2 = srr(srr.Length - 1)
        a2 = a2.Substring(0,a2.Length - n2.Length)
        If a1 = a2 AndAlso CLng(n1) + 1 = CLng(n2) Then
            sum+=1
        Else

Dim nr2 = Tables("HZB").AddNew
nr2("HD") = r("hd")
nr2("qshm") = fr
nr2("jshm") = r("hm")
nr2("zs") = sum

nr2.Save()

        End If
    Else

Dim nr2 = Tables("HZB").AddNew
nr2("HD") = r("hd")
nr2("qshm") = fr
nr2("jshm") = r("hm")
nr2("zs") = sum

    End If
Next
r = nr
Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)

得到的结果为
167152   73301DE2ML606009801 73301DE2ML606009820 20
167152   73301DE2ML606009801 73301DE2ML606009860 54
167152   73301DE2ML606009801 73301DE2ML606009900 59
179201   73301DE2ML606009801 68201DE2K56069050039 97
179201   73301DE2ML606009801 68201DE2K56069050090 126
  179201    73301DE2ML606009801 68201DE2K56069050129 163
179201    73301DE2ML606009801 68201DE2K56069050285 230
179201    73301DE2ML606009801 68201DE2K56069050351 288
179201    73301DE2ML606009801 68201DE2K56069050665 408
183211    73301DE2ML606009801 UK4200531499605ED025 432
起始号码和张数不正确，号段和结束号码段正确了，请问老师怎么调整？
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：924 积分：6639 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2020/12/8 23:28:00 [显示全部帖子]

老师，请查看实例，
实例中有一测试窗口，窗口中左边为源基础数据，右上部份为通过代码得出的结果，右下部份为整理的正确结果。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4新.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
hopestarxia
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：924 积分：6639 威望：0 精华：0 注册：2013/8/10 18:33:00 		  发帖心情 Post By：2020/12/9 10:34:00 [显示全部帖子]

谢谢老师，认真看了的，
这里理解错了，

            Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)   这里新增到一个数据库表中？增加行  DataTables("表").Addnew 的方式
            r = nr
            fr = r("hm")
            sum = 1
        End If
 回到顶部
总数 15 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询