Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]同步


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

主题：[求助]同步
帅哥哟，离线，有人找我吗？
江南小城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]同步  发帖心情 Post By：2016/9/8 11:42:00 [只看该作者]

老师好，一个窗口的控件（文本框、下拉链框）要和主窗口Table的副本表同步。谢谢老师。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/8 14:21:00 [只看该作者]

1、绑定


If e.Table.Current Is Nothing orelse forms("窗口1").opened = false Then '如果Current为Nothing
    Return '则返回
End If
 forms("窗口1").controls("textbox1").text = e.Table.Current("第一列")
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/9 11:41:00 [只看该作者]

Dim t As Table = Tables("链接")
Dim cur As Row
cur = t.Current
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name.Contains(c.Name) Then
            If c.IsBoolean Then
                cur(c.Name) = e.Form.Controls(ctl.Name).Checked
            Else
                cur(c.Name) = e.Form.Controls(ctl.Name).Value
            End If
        End If
    Next

Next
t.DataTable.Save



老师好，我在窗口新增了日期控件（DateTimePicker）通过保存按钮一起赋值给"链接"表的单元格。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/9 12:36:00 [只看该作者]

代码么有问题，提示什么错误

 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/13 13:34:00 [只看该作者]

以下是引用江南小城在2016/9/9 11:41:00的发言：
Dim t As Table = Tables("链接")
Dim cur As Row
cur = t.Current
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name.Contains(c.Name) Then
            If c.IsBoolean Then
                cur(c.Name) = e.Form.Controls(ctl.Name).Checked
            Else
                cur(c.Name) = e.Form.Controls(ctl.Name).Value
            End If
        End If
    Next

Next
t.DataTable.Save



老师好，我要对上面代码进行修改，判断链接表是否通过窗口按钮新增的行如果是窗口文本框的数据可以赋值给链接表新增的行否则提示你没有新增行同时新增一行
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 14:39:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/0428.htm

if cur.DataRow.RowState <> DataRowState.Added then
    cur = Tables("链接").addnew()
end if
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/13 17:01:00 [只看该作者]

老师好，我是要正确赋值给上次新增的行

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 17:02:00 [只看该作者]

Dim t As Table = Tables("链接")
Dim cur As Row
cur = t.Current
if cur.DataRow.RowState <> DataRowState.Added then
    cur = Tables("链接").addnew()
end if
For Each c As Col In t.Cols
    For Each ctl As WinForm.Control In e.Form.Controls
        If ctl.Name.Contains(c.Name) Then
            If c.IsBoolean Then
                cur(c.Name) = e.Form.Controls(ctl.Name).Checked
            Else
                cur(c.Name) = e.Form.Controls(ctl.Name).Value
            End If
        End If
    Next

Next
t.DataTable.Save
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/9/13 17:35:00 [只看该作者]

老师，有一个问题假如我要编辑和修改怎么办，有一点熊掌与鱼的味道。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110579 积分：562791 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/9/13 17:45:00 [只看该作者]

默认不是就可以编辑和修改吗

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询