Foxtable(狐表)用户栏目专家坐堂 → CheckedListBox1取值问题


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

主题:CheckedListBox1取值问题

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
CheckedListBox1取值问题  发帖心情 Post By:2013/4/7 14:46:00 [只看该作者]

我在table控件的事件里 按照文档上的取值方法 取CheckedListBox1的
图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
值,报错



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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/4/7 14:47:00 [只看该作者]

Table的事件,没有e.form,只能: Forms("窗口名").Controls("控件名")

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/7 15:32:00 [只看该作者]

Tables("buyerdz").Rows(Tables("buyerdz").Rowsel)(2)
我取table控件的某行某列的值 取出来的值不是我选中的某行某列的,你看下哪儿写错了

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/7 16:00:00 [只看该作者]

我取选中复选框行的第二列的值,取出来也是对不上
下面我写的代码,你看下
Dim temp As String =""

For Each r As Row In Tables("买家结算对账_table2").GetCheckedRows

            If temp="" Then 
                temp="'" & Tables("买家结算对账_table2").Rows(Tables("买家结算对账_table2").RowSel)(1) & "'"
             Else
                temp=temp & ",'" & Tables("买家结算对账_table2").Rows(Tables("买家结算对账_table2").RowSel)(1) & "'"
             End If
 
Next
有个截图 你看下
图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看

弹出窗口的值我 temp 变量的
[此贴子已经被作者于2013-4-7 16:00:32编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/7 16:02:00 [只看该作者]

很正确啊.你这个不就是第二列的值么.  第一列为"图录号"  第二列为"成交价"  30000没错啊.

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/7 16:12:00 [只看该作者]

我把变量值用msgbox 弹出来,发现不对图片点击可在新窗口打开查看啊!你看这两个都是3000  。你看下表属性!肯
图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看
定是哪儿设置有问题


哦 ,对了 。我是想把选中行的第二列取出来,这两个值应该是 90000和30000
[此贴子已经被作者于2013-4-7 16:14:41编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/4/7 16:30:00 [只看该作者]

Tables("买家结算对账_table2").Rows(Tables("买家结算对账_table2").RowSel)(1) 你这段代码都已经写死成指定单元格了.怎么会90000和30000呢.
如果想获得90000和30000应该是
Dim temp As String =""

For Each r As Row In Tables("买家结算对账_table2").GetCheckedRows

            If temp="" Then 
                temp="'" & r(成交价) & "'"
             Else
                temp=temp & ",'" & r(成交价) & "'"
             End If
 
Next


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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/7 16:36:00 [只看该作者]

ok,谢了

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/8 17:29:00 [只看该作者]

我把表绑定到table控件,同事也绑定到了textbox控件.我在table控件的currentchanged事件写代码了。然后就是选中table行后 textbox控件就没有变化了。求助

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


加好友 发短信
等级:幼狐 帖子:146 积分:1259 威望:0 精华:0 注册:2013/1/24 16:21:00
  发帖心情 Post By:2013/4/9 11:27:00 [只看该作者]

我用一个表绑定到了table控件,同时也绑定到了textbox控件。我现在在table的currentchanged事件里写代码了!现在的问题是我选中表的行,数据没有同步到textbox控件里显示。求助

 回到顶部