Foxtable(狐表)用户栏目专家坐堂 → [求助]Comobox SelectedIndexChanged事件


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

主题:[求助]Comobox SelectedIndexChanged事件

帅哥,在线噢!
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/2 16:01:00 [显示全部帖子]

1、你这些TextBox绑定到窗口中这个表的各列了吗?如果没有绑定,自然不会发生变化。

2、你下面这些代码,意义何在?

 

Dim txt1 As String = e.Form.Controls("TextBox1").Value
Dim txt2 As Double = e.Form.Controls("TextBox2").Value
Dim txt3 As String = e.Form.Controls("TextBox3").Value
Dim txt4 As String = e.Form.Controls("TextBox4").Value
Dim txt5 As String = e.Form.Controls("TextBox5").Value
Dim txt6 As String = e.Form.Controls("TextBox6").Value
Dim txt7 As String = e.Form.Controls("TextBox7").Value
Dim txt8 As String = e.Form.Controls("TextBox8").Value
Dim txt9 As String = e.Form.Controls("TextBox9").Value
Dim txt10 As String = e.Form.Controls("TextBox10").Value


 回到顶部
帅哥,在线噢!
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/7/2 16:09:00 [显示全部帖子]

如果你在TextBox对筛选后的数据进行统计,可以:

 

'原来的筛选代码

e.Form.Controls("TextBox1").Value  = Tables("表名").Compute("Sum([某某列1])")

e.Form.Controls("TextBox2").Value  = Tables("表名").Compute("Sum([某某列2])")


 


 回到顶部