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


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

主题：多行填充一行的问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：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


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/22 9:19:00 [显示全部帖子]

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

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


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/22 10:04:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/6/22 14:15:00 [显示全部帖子]

Dim s As String = e.Form.Controls("年月").text '选择月份
For Each v As String() In DataTables("表A1").GetValues("年份|月份", "月份='" & s & "'")
    Dim drx As DataRow = DataTables("表B1").Find("月份 = '" & s & "'")
    If drx IsNot Nothing Then '如果找到的话
        
        
    Else
        Dim dr As DataRow = DataTables("表B1").AddNew()
        dr("年份") = v(0)
        dr("月份") = v(1)
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/7/1 10:57:00 [显示全部帖子]

窗口中绑定表，对窗口AfterLoad事件代码Syscmd.Table.Lock()，该表为锁定状态。如果我窗口绑定多张表，请教如何指定锁定哪张表。

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/7/16 16:29:00 [显示全部帖子]

Dim s As String = e.Form.Controls("日期").Value '选择日期
For Each v As String() In DataTables("预定表201").GetValues("桌台类型|桌台名称|日期", "日期=#" & s & "#") '数据来源于表
    Dim dr As DataRow = DataTables("状态表201").Find("桌台类型 = '" & v(0) & "' And 桌台名称 = '" & v(1) & "' And 日期 = #" & s & "#") 
    If dr Is Nothing Then '如果没找到的话
        dr = DataTables("状态表201").AddNew()
        dr("桌台类型") = v(0)
        dr("桌台名称") = v(1)
        dr("日期") = v(2)
    End If 
    Dim dr1 As DataRow = DataTables("预定表201").Find("桌台类型 = '" & v(0) & "' And 桌台名称 = '" & v(1) & "' And 日期 = #" & s & "#") 
    If dr1 IsNot Nothing Then 
        If dr1("预定宴类") = "午餐" Then
            dr("预定宴类_午餐") = "午" 
        ElseIf dr1("预定宴类") = "晚餐" Then
            dr("预定宴类_晚餐") = "晚"
        End If 
    End If 
Next。老师，目前发现2个问题，上述代码，午餐能提取出来，但晚餐死活都提取不出来，不知道什么原因？另一个问题，点击按钮，出现错误提示，从字符串“32a129ac”到类型“Double”的转换无效。这是什么原因
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：846 积分：5840 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/7/16 16:56:00 [显示全部帖子]

老师，没有

 回到顶部
总数 84 1 2 3 4 5 6 7 8 9 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 6 次数据查询