Foxtable(狐表)用户栏目专家坐堂 → 多行填充一行的问题


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

主题:多行填充一行的问题

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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
多行填充一行的问题  发帖心情 Post By:2024/6/21 21:43:00 [只看该作者]

关于多行填充一行代码问题。老师我的想法,一个表多行多列文本填充到另一表一行多列文本之中,举例说明,表A有7列,列名分别为年份列,月份列,格式为202308,科目代码,科目名称,科目余额_年初余额,科目余额_本月合计,科目余额_本年累计。表B为11列,年份列,月份列,行次1_年初余额,行次1_本月合计,行次1_本年累计,行次2_年初余额,行次2_本月合计,行次2_本年累计,行次3_年初余额,行次3_本月合计,行次3_本年累计。表A有3行内容,第1行月份202308,科目代码1001,第2行月份202308,科目代码1002,第3行月份202308,科目代码1003。填充至表B,表A的科目代码1001对应表B的行次1,A的科目代码1002对应表B的行次2,A的科目代码1003对应表B的行次3,这个对应关系必须手工指定。请问老师,用按钮,代码如何书写

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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/6/22 5:46:00 [只看该作者]

Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表A").GetValues("年份|月份", "月份='" & s & "'")
    Dim dr As DataRow = DataTables("表B").AddNew()
   If dr IsNot Nothing Then 
        dr("年份") = v(0)
    dr("月份") = v(1)
    dr("行次1_年初余额") = DataTables("表A").select("科目余额_年初余额","年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='1001'")
dr("行次1_本年累计") = DataTables("表A").select("科目余额_本年累计","年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='1001'")
dr("行次1_本月合计") = DataTables("表A").select("科目余额_本月合计","年份='" & v(0) & "' And 月份='" & v(1) & "' and 科目代码='1001'")
...
   
End If
Next
老师,请帮忙一下
[此贴子已经被作者于2024/6/22 8:09:00编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/22 9:04:00 [只看该作者]

对应关系必须手工指定】-具体指什么,举例说明一下

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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/6/22 9:19:00 [只看该作者]

比如,行次1对应科目代码1001,行次2对应1002,行次3对应1003,行次4对应2001,总之对应关系用代码确定

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/22 9:29:00 [只看该作者]

前面说手工指定,后面又说代码指定!

如果是一一对应的,select改为使用find

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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/6/22 10:04:00 [只看该作者]

老师,这三种方法compute.select.Find,我都用过,还是不行,那就上实例吧
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目622.table


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/22 11:16:00 [只看该作者]

find肯定可以,先看看用法:http://www.foxtable.com/webhelp/topics/0396.htm,不明白用了这么多次了,还不懂怎么用!

代码该分行就分行,严格按语法使用,不是随便可以省略的

dim dr as ..... = 某表.find(......
if dr isnot nothing then
某处赋值 = dr("某列")

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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/6/22 12:24:00 [只看该作者]

老师,还是出现错误提示,麻烦老师耐心看看
Cannot find column 年份 = '2023' And 月份 = '202308' and 科目代码 = '1001'.
其代码如下:
Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表A1").GetValues("年份|月份", "月份='" & s & "'")
    Dim dr As DataRow = DataTables("表B1").AddNew()
    dr("年份") = v(0)
    dr("月份") = v(1)
    
    Dim dr1 As DataRow = DataTables("表A1").Find("科目代码", "年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '1001'")
    If dr1 IsNot Nothing Then 
        dr("行次1_年初余额") = dr1("科目余额_年初余额")
        dr("行次1_本年累计") = dr1("科目余额_本年累计")
        dr("行次1_本月合计") = dr1("科目余额_本月合计") 
    End If
    Dim dr2 As DataRow = DataTables("表A1").Find("科目代码", "年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '1002'")
    If dr2 IsNot Nothing Then 
        dr("行次2_年初余额") = dr2("科目余额_年初余额")
        dr("行次2_本年累计") = dr2("科目余额_本年累计")
        dr("行次2_本月合计") = dr2("科目余额_本月合计") 
    End If
      Dim dr3 As DataRow = DataTables("表A1").Find("科目代码", "年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '2003'")
    If dr3 IsNot Nothing Then 
        dr("行次3_年初余额") = dr3("科目余额_年初余额")
        dr("行次3_本年累计") = dr3("科目余额_本年累计")
        dr("行次3_本月合计") = dr3("科目余额_本月合计") 
    End If
      
    
Next

[此贴子已经被作者于2024/6/22 13:09:43编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/6/22 13:13:00 [只看该作者]

Find的用法再看上10遍

语法:

Find(Filter,Sort,Index)

Filter:  条件表达式,请参考表达式的运算符和函数 和 条件表达式
Sort:    可选参数,指定排序方式。
Index:   可选参数,指定返回第几个符合条件的行,0表示第一行。


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


加好友 发短信
等级:四尾狐 帖子:860 积分:5964 威望:0 精华:0 注册:2016/4/15 22:24:00
  发帖心情 Post By:2024/6/22 13:52:00 [只看该作者]

Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表A1").GetValues("年份|月份", "月份='" & s & "'")
    Dim dr As DataRow = DataTables("表B1").AddNew()
    dr("年份") = v(0)
    dr("月份") = v(1)
    
    Dim dr1 As DataRow = DataTables("表A1").Find("年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '1001'")
    If dr1 IsNot Nothing Then 
        dr("行次1_年初余额") = dr1("科目余额_年初余额")
        dr("行次1_本年累计") = dr1("科目余额_本年累计")
        dr("行次1_本月合计") = dr1("科目余额_本月合计") 
    End If
    Dim dr2 As DataRow = DataTables("表A1").Find("年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '1002'")
    If dr2 IsNot Nothing Then 
        dr("行次2_年初余额") = dr2("科目余额_年初余额")
        dr("行次2_本年累计") = dr2("科目余额_本年累计")
        dr("行次2_本月合计") = dr2("科目余额_本月合计") 
    End If
      Dim dr3 As DataRow = DataTables("表A1").Find("年份 = '" & v(0) & "' And 月份 = '" & v(1) & "' and 科目代码 = '2003'")
    If dr3 IsNot Nothing Then 
        dr("行次3_年初余额") = dr3("科目余额_年初余额")
        dr("行次3_本年累计") = dr3("科目余额_本年累计")
        dr("行次3_本月合计") = dr3("科目余额_本月合计") 
    End If
      
    
Next
不好意思,让老师再三提醒才知道错在哪里了。代码现在正确了,谢谢老师
[此贴子已经被作者于2024/6/22 14:24:33编辑过]

 回到顶部
总数 148 1 2 3 4 5 6 7 8 9 10 下一页 ..15