Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQLTable动态表的绑定与设置显示行


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

主题：SQLTable动态表的绑定与设置显示行
美女呀，离线，留言给我吧！
采菊东篱下
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/10 14:47:00 [显示全部帖子]

什么东西都没有弹出，窗口中的表头也没任何改表。
[此贴子已经被作者于2021/3/10 14:55:31编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/10 14:55:00 [显示全部帖子]

　　在空表、空行里加入指定内容怎么哪样难！上次问你在窗口空行里怎么加入数据问不出所以然，结果我用删除所有空行后再添加有数据的行方法实现录入，这回不会又要我把表删除，连表控件都不要吧？它已是空表了，加入格式哪么难吗？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/10 14:57:00 [显示全部帖子]

郁闷，找人下棋去！

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/10 21:05:00 [显示全部帖子]

　　第一次选择下拉选项里的值是不报错的，第二次选就报错说不存在其他收费录入_Table1，我想应是红色标注的清除行代码有问题了，我想每次选择下拉选项的值后都把原有的行全部清除，否则它会添很多行。
If e.sender.text = "铺位租金" Then
    DataTables("其他收费录入_Table1").DataRows.Clear()
    With Tables("其他收费录入_Table1")
        .DataSource = DataTables("缴费情况")
        .SetColVisibleWidth("住址_巷|150|住址_号|40|住址_房|40|姓名|60|手机号码|100|备注|250|其他收入_数量|100|其他收入_金额|100")
        '窗口表头设置.表中自动生成合计
        .SetHeaderRowHeight(0,25,40)
        .AddNew(10)
        .Cols("其他收入_数量").GrandTotal = True
        .Cols("其他收入_金额").GrandTotal = True
        .GrandTotal = True
        '设合计二字居中方法一
        'For Each cl As Col In Tables("月租收费_Table1").Cols '设所有列的数据居中
        'cl.TextAlign = TextAlignEnum.Center
        'Next
        '设合计二字居中方法二
        Dim r As Row
        For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
            r = .Rows(i,True) 'Rows也需要加上参数True
            If r.Level Then '如果是合计行
                .Cols("住址_巷").TextAlign = TextAlignEnum.Center
            End If
        Next
        e.Form.Controls("lry").text = User.name
    End With
ElseIf e.sender.text = "广告费" Or e.sender.text = "其他" Then
    DataTables("其他收费录入_Table1").DataRows.Clear()
    With Tables("其他收费录入_Table1")
        .DataSource = DataTables("缴费情况")
        .SetColVisibleWidth("备注|640|其他收入_数量|100|其他收入_金额|100")
        '窗口表头设置.表中自动生成合计
        .SetHeaderRowHeight(0,25,40)
        .AddNew(10)
        .Cols("其他收入_数量").GrandTotal = True
        .Cols("其他收入_金额").GrandTotal = True
        .GrandTotal = True
        '设合计二字居中方法一
        'For Each cl As Col In Tables("月租收费_Table1").Cols '设所有列的数据居中
        'cl.TextAlign = TextAlignEnum.Center
        'Next
        '设合计二字居中方法二
        Dim r As Row
        For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
            r = .Rows(i,True) 'Rows也需要加上参数True
            If r.Level Then '如果是合计行
                .Cols("备注").TextAlign = TextAlignEnum.Center
            End If
        Next
        e.Form.Controls("lry").text = User.name
    End With
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 10:26:00 [显示全部帖子]

第一次打开，选下拉选项，表显示完整、正常，撤换下拉选项，表的右边就出现下拉条，下边同步出现横拉条，我试过才在表上加清除行代码。
[此贴子已经被作者于2021/3/11 13:48:53编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 14:11:00 [显示全部帖子]

蓝色标注的不是有添加行代码吗，不清除它，每撤换一次选项它就自动添加一次行啊！
If e.sender.text = "铺位租金" Then
    DataTables("其他收费录入_Table1").DataRows.Clear()
    With Tables("其他收费录入_Table1")
        .DataSource = DataTables("缴费情况")
        .SetColVisibleWidth("住址_巷|150|住址_号|40|住址_房|40|姓名|60|手机号码|100|备注|250|其他收入_数量|100|其他收入_金额|100")
        '窗口表头设置.表中自动生成合计
        .SetHeaderRowHeight(0,25,40)
        .AddNew(10)
        .Cols("其他收入_数量").GrandTotal = True
        .Cols("其他收入_金额").GrandTotal = True
        .GrandTotal = True
        '设合计二字居中方法一
        'For Each cl As Col In Tables("月租收费_Table1").Cols '设所有列的数据居中
        'cl.TextAlign = TextAlignEnum.Center
        'Next
        '设合计二字居中方法二
        Dim r As Row
        For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
            r = .Rows(i,True) 'Rows也需要加上参数True
            If r.Level Then '如果是合计行
                .Cols("住址_巷").TextAlign = TextAlignEnum.Center
            End If
        Next
        e.Form.Controls("lry").text = User.name
    End With
ElseIf e.sender.text = "广告费" Or e.sender.text = "其他" Then
    DataTables("其他收费录入_Table1").DataRows.Clear()
    With Tables("其他收费录入_Table1")
        .DataSource = DataTables("缴费情况")
        .SetColVisibleWidth("备注|640|其他收入_数量|100|其他收入_金额|100")
        '窗口表头设置.表中自动生成合计
        .SetHeaderRowHeight(0,25,40)
        .AddNew(10)
        .Cols("其他收入_数量").GrandTotal = True
        .Cols("其他收入_金额").GrandTotal = True
        .GrandTotal = True
        '设合计二字居中方法一
        'For Each cl As Col In Tables("月租收费_Table1").Cols '设所有列的数据居中
        'cl.TextAlign = TextAlignEnum.Center
        'Next
        '设合计二字居中方法二
        Dim r As Row
        For i As Integer = 0 To .Rows.Count(True) - 1 'Count加上参数True
            r = .Rows(i,True) 'Rows也需要加上参数True
            If r.Level Then '如果是合计行
                .Cols("备注").TextAlign = TextAlignEnum.Center
            End If
        Next
        e.Form.Controls("lry").text = User.name
    End With
End If
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 15:20:00 [显示全部帖子]

不可能，只能删除窗口里的数据不可能删除缴费情况表的数据，那是后台数据。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 15:21:00 [显示全部帖子]

窗口上的表是动态生成的。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 15:48:00 [显示全部帖子]

哦，哪不能绑定缴费情况表，哪怎样在空表里动态生成表头？

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/3/11 15:50:00 [显示全部帖子]

我的效果就是选定下拉选项后自动生成相应格式表头。
[此贴子已经被作者于2021/3/11 15:50:42编辑过]
 回到顶部
总数 98 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询