- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ComboBox (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93420)
-- 发布时间：2016/11/28 16:43:00
-- ComboBox
求一段代码，达到如下要求：
一个ComboBox控件（取值表A的第一列），旁边一个按钮，当ComboBox控件里选择的是第一列的内容时，按下按钮，自动从表B中新增行，表A的第一列=表B的第一列，第二列等于第二列，第三列等于第三列。
各位哥哥，小妹有礼了
-- 发布时间：2016/11/28 17:28:00
--
Dim cbo As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If cbo.Text > "" Then
Dim dra As DataRow = DataTables("表A").Find("第一列=\'" & cbo.Text & "\'")
If dra IsNot Nothing Then
Dim drb As DataRow = DataTables("表B").AddNew
drb("第一列") = dra("第一列")
drb("第二列") = dra("第二列")
End If
End If
-- 发布时间：2016/11/28 17:40:00
--
能否变更下变成新增“表A”下的子表“表C”下的所有同“第一列”内容的行啊（表A和表C用第一列关联）
-- 发布时间：2016/11/28 17:51:00
--
道理一样，想新增哪个表，自己改代码：http://www.foxtable.com/webhelp/scr/0421.htm