- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]控件绑定列 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97829)
-- 发布时间：2017/3/19 14:22:00
-- [求助]控件绑定列
老师，我想把窗口控件统一绑定通讯录表对应的列，不一个个控件写代码。
[此贴子已经被作者于2017/3/19 14:41:46编辑过]
-- 发布时间：2017/3/20 8:48:00
--
Dim nms() AS String = {"控件1","控件2"，"控件3"}
Dim flds() As String = {"列1","列2","列3"}
For i As integer = 0 to nms.Length - 2
e.Form.Controlss(nms(i)).BindingField = "表名." & flds(i)
next
-- 发布时间：2017/3/20 9:12:00
--
谢谢老师
老师，我想把目录树的数据直接发送到数据库。
Value = e.Node.FullPath.Split("\\")
Select Case e.Node.Level
Case 0
Dim dr As DataRow
dr=DataTables("qzfl").Find("群组分类 = \'" & Value(0) & "\'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("qzfl").FindRow(dr)
If wz >= 0 Then
Tables("qzfl").Position = wz
End If
End If
Case 1
Dim dr As DataRow
dr=DataTables("qzfl").Find("群组分类 = \'" & Value(0) & "\'And [客户供应商]=\'" & Value(1) & "\'")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("qzfl").FindRow(dr)
If wz >= 0 Then
Tables("qzfl").Position = wz
End If
End If
End Select
-- 发布时间：2017/3/20 11:39:00
--
回复3楼，看不懂你要做什么。上传实例说明。
-- 发布时间：2017/3/24 20:01:00
--
老师，代码无法保存。
Dim nms() As String = {"ComboBox1","ComboBox2"}
Dim flds() As String = {"客户供应商","客户供应商"}
For i As Integer = 0 To nms.Length - 2
e.Form.Controlss(nms(i)).BindingField = "外部通讯表_Table1" & flds(i)
Next
-- 发布时间：2017/3/24 20:47:00
--
代码设置是无法保存的，把代码放到窗口afterload事件中，每次窗口打开的时候旧版绑定
-- 发布时间：2017/3/24 21:34:00
--
此主题相关图片如下：图像 5.png
[此贴子已经被作者于2017/3/24 21:35:21编辑过]
-- 发布时间：2017/3/24 21:52:00
--
e.Form.Controls(nms(i)).BindingField = "外部通讯表_Table1" & flds(i)
-- 发布时间：2017/3/24 21:56:00
--
老师，代码绑定后组合框没有反应。
-- 发布时间：2017/3/24 22:02:00
--
e.Form.Controls(nms(i)).BindingField = "外部通讯表_Table1." & flds(i)