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


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

主题：SQLTable动态表的绑定与设置显示行
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/10 13:34:00 [显示全部帖子]

msgbox(e.Form.Controls("XX").Value)
If e.Form.Controls("XX").Value = "铺位租金收入" Then
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.Form.Controls("XX").Value = "广告收入" Then
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")
End If
msgbox(Tables("其他收费录入_Table1").GetColVisibleWidth())
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/10 13:52:00 [显示全部帖子]


If e.Form.Controls("XX").Value = "铺位租金收入" Then
msgbox(1)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("住址_巷|60|住址_号|40|住址_房|40|姓名|40|单位名称|100|手机号码|80|备注|200|其他收入_数量|60|其他收入_金额|80")
ElseIf e.Form.Controls("XX").Value = "广告收入" Then
msgbox(2)
    Tables("其他收费录入_Table1").DataSource = DataTables("缴费情况")
    Tables("其他收费录入_Table1").SetColVisibleWidth("单位名称|100|备注|200|其他收入_数量|60|其他收入_金额|80")
End If
msgbox(Tables("其他收费录入_Table1").GetColVisibleWidth())
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/10 14:14:00 [显示全部帖子]

我想要知道的是msgbox(1)和msgbox(2)能不能弹出来，而且"缴费情况"也不可能有第一列这种列吧

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


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：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)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 9:01:00 [显示全部帖子]

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

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


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 10:31:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 14:15:00 [显示全部帖子]

改为DataTables("缴费情况").DataRows.Clear()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 16:19:00 [显示全部帖子]

With Tables("其他收费录入_Table1")
    For i As Integer = .Rows.count - 1 To 0 Step -1
        .Rows(i).Delete
    Next
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106081 积分：539504 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/3/11 20:26:00 [显示全部帖子]

过滤条件加上： and 分类 is not null

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