Foxtable(狐表)用户栏目专家坐堂 → 【求助】fill


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

主题:【求助】fill

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/13 11:20:00 [显示全部帖子]

 你编写sql语句的时候,任何语句都可以。但是多个表以后,你只能用查询表,不能保存数据。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/13 11:44:00 [显示全部帖子]

那只能用两个table,选中某一行的时候,另一个表,也定位到对应的行。

 

或者是,写sql语句合并在一个表。修改完以后,循环每一行,如果修改过,就对应的把值修改回各自的表。比较麻烦。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/14 11:04:00 [显示全部帖子]

以下是引用10059在2017/2/14 10:30:00的发言:
那只能用两个table,选中某一行的时候,另一个表,也定位到对应的行。

老师,如果这样做的话,窗口中就要插入两个table控件??是否可以只用一个table控件,像关联表那样显示呢??

 

插入两个table比较简单。左右分别一个,选中左边,右边对应显示数据就好了。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/14 14:17:00 [显示全部帖子]

sizeChanged事件

 

e.form.Controls("Table1").left = 0
e.form.Controls("Table1").top = 0
e.form.Controls("Table1").width = e.form.width / 2
e.form.Controls("Table1").height = e.form.height
e.form.Controls("Table2").left = e.form.width / 2
e.form.Controls("Table2").top = 0
e.form.Controls("Table2").width = e.form.width / 2
e.form.Controls("Table2").height = e.form.height


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/15 9:22:00 [显示全部帖子]

循环每一行,判断每一列的值,如果和原值不同,就是修改了。然后根据列名和主键值,去对应表找到那一行,修改值。

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/15 14:21:00 [显示全部帖子]

For Each dr As DataRow In DataTables("表A").datarows
    If dr.OriginalValue("第一列") <> dr("第一列") Then
        Dim fdr As DataRow = DataTables("表B").Find("_Identify = '" & dr("_Identify") & "'")
        If fdr IsNot Nothing Then
            fdr("第一列") = dr("第一列")
            fdr.save
        End If
    End If
Next

 回到顶部