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


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

主题:SQLTable动态表的绑定与设置显示行

美女呀,离线,留言给我吧!
采菊东篱下
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:21:00 [只看该作者]

写在条件语句里没弹出1和2

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:24:00 [只看该作者]

弹出的窗口是空表的表头,截图里不是有一个表控件吗?

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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:27:00 [只看该作者]

现在要安条件把指定表指定列显示到窗口上的表,只要表头,不要数据。

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


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 14:30:00 [只看该作者]

If e.sender.text = "铺位租金收入" Then
msgbox(1)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.sender.text = "广告收入" Then
msgbox(2)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")
End If

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:47:00 [只看该作者]

什么东西都没有弹出,窗口中的表头也没任何改表。
[此贴子已经被作者于2021/3/10 14:55:31编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:55:00 [只看该作者]

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

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/10 14:57:00 [只看该作者]

郁闷,找人下棋去!

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


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 15:00:00 [只看该作者]

没有弹出说明选择的项目都不符合条件

msgbox(e.sender.text)
msgbox(e.sender.text = "铺位租金收入")
msgbox(e.sender.text = "广告收入")
If e.sender.text = "铺位租金收入" Then
msgbox(1)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.sender.text = "广告收入" Then
msgbox(2)

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


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望: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

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


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

这清除代码没有任何用处,.DataSource = DataTables("缴费情况")绑定后就是新绑定的表数据,不可能会合并绑定前的表的数据

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