以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这是怎么回事啊,怎么不能同步关联表了?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86000)

--  作者:hongyefor
--  发布时间:2016/6/7 16:25:00
--  这是怎么回事啊,怎么不能同步关联表了?


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目114.table

 


这是怎么回事啊,怎么不能同步关联表了?

谁能帮我看看,是哪里错了,在窗口输入后,关联表第一列不能同步


--  作者:狐狸爸爸
--  发布时间:2016/6/7 16:50:00
--  

我测试没有问题,在窗口表的第一列修改数据,关联列同步修改了


--  作者:hongyefor
--  发布时间:2016/6/7 18:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:wt1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:wt2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:问题.jpg
图片点击可在新窗口打开查看
 关联表里的第一列没有自动填充数据啊
--  作者:狐狸爸爸
--  发布时间:2016/6/8 8:10:00
--  

你原来的设计,实在关联填充修改数据,关联表中的数据自动同步修改,我测试目的达到。

你的目的不是这样,如果你希望在窗口中的输入框输入数据,你的输入框并没有绑定啊。

 

建议重新整理问题,尽量描述清晰一些。


--  作者:hongyefor
--  发布时间:2016/6/8 10:54:00
--  


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目114改1.table

 

我的想法是当我在(窗口1)的TextBox1、TextBox2TextBox3、TextBox4、TextBox5、TextBox6输入数据后,当点击新增按键后自动将这些数据填入“关联填充”的表中,同时将“关联填充”的“MC1”列的数据直接填入“关联表”的“MC2”的列,并刷新(窗口1)的Table1和信息表的内容并即时更新。


--  作者:大红袍
--  发布时间:2016/6/8 11:09:00
--  
5楼的例子没问题啊,你到底想表达什么?有什么问题?
--  作者:hongyefor
--  发布时间:2016/6/8 11:24:00
--  

现在在我对TextBox1、TextBox2TextBox3、TextBox4、TextBox5、TextBox6输入数据后点“新增”后

1、Table1没有显示相关数据(就像点击修改键后Table1会出现对应的数据)

2、在“关联表”的“MC2”没有自动填入所对应的数据(Table1表中也是没有显示MC2列的数据)

当点击新增按键后自动将这些数据填入“关联填充”的表中,同时将“关联填充”的“MC1”列的数据直接填入“关联表”的“MC2”的列,并刷新(窗口1)的Table1和信息表的内容并即时更新。


--  作者:大红袍
--  发布时间:2016/6/8 12:21:00
--  

Dim str As String = e.Form.Controls("TextBox1").Text
Dim str1 As String = e.Form.Controls("TextBox2").Text
Dim str2 As String = e.Form.Controls("TextBox3").Text
Dim str3 As String = e.Form.Controls("TextBox4").Text
Dim str4 As String = e.Form.Controls("TextBox5").Text
Dim str5 As String = e.Form.Controls("TextBox6").Text
Dim nr As Row = Tables("关联填充").AddNew
nr("mc1") = str
nr("关联列") = str1
nr("第三列") = str2
nr("第四列") = str3
nr("第五列") = str4
nr("第六列") = str5

Tables("关联表").filter = "关联列2 = \'" & str1 & "\'"

For Each r As Row In Tables("关联表").Rows
    r("mc2") = e.Form.Controls("TextBox1").Text
Next
e.Form.Controls("TextBox1").Text = Nothing
e.Form.Controls("TextBox2").Text = Nothing
e.Form.Controls("TextBox3").Text = Nothing
e.Form.Controls("TextBox4").Text = Nothing
e.Form.Controls("TextBox5").Text = Nothing
e.Form.Controls("TextBox6").Text = Nothing


--  作者:hongyefor
--  发布时间:2016/6/8 13:20:00
--  
晕,就这么一个字段