Foxtable(狐表)用户栏目专家坐堂 → 关于combobox的问题


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

主题:关于combobox的问题

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


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

看不到你的图。

 

如果这些输入框已经绑定到列了,那么直接设置表事件即可,参考:

http://www.foxtable.com/help/topics/1458.htm

 

 


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


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

不想绑定也行啊,一样的道理,找出对应的行,只是一个是将值写入列,一个是将值写入控件。

 

例如设置ComboBox的Validating事件:

 

      Dim dr As DataRow 
    dr = 
DataTables("产品").Find("编号 = " & "'" & e.Sender.Value & "'" )
    
If dr IsNot Nothing '如果找到, 则设置各列内容
        e.Form.Controls("控件一").Value
= dr("品名")
        e.Form.Controls("控件二").Value
= dr("型号")
        e.Form.Controls("控件三").Value
= dr("规格")
    
End If

 

就会根据输入的编号,找出对应的品名、型号、规格写入其他输入框中。


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


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

    Dim dr As DataRow
    dr = DataTables("人事资料").Find("[Name]= '" &  e.Sender.Value & "'" )
    If dr IsNot Nothing 

        e.Form.Controls("card").Value = dr("CardNo")
    End If

 

搞不定,就做个简单例子发上来。

[此贴子已经被作者于2013-3-7 15:34:30编辑过]

 回到顶部