以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  sql table弹出来的窗口如何绑定字段  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44494)

--  作者:wuxianzuoji41
--  发布时间:2014/1/2 12:07:00
--  sql table弹出来的窗口如何绑定字段

现在用的是副本表,弹出来一个窗口绑定字段进行修改

并且用了

\'窗口表于表同步
Dim tb As Table = Args(0)
Dim tName As String = args(1)
If tb.Current IsNot Nothing
    Dim dr As DataRow = tb.Current.DataRow
    Dim wz As Integer = Tables(tName).FindRow(dr)
    If wz >=0 Then
      Tables(tName).Position = wz
    End If
End If

 

现在吧表改成了SQL TABLE,弹出来的窗口绑定该怎么修改


--  作者:Bin
--  发布时间:2014/1/2 12:13:00
--  
没看懂你的意思
--  作者:wuxianzuoji41
--  发布时间:2014/1/2 12:16:00
--  

就是副本表我双击行弹出来一个窗口,窗口里额TEXT是绑定字段的,可以自动显示,

现在我改成我吧表改成了SQL TABLE这个就不起来做用了

 

因为TEXT绑定的当前行一直不跟着SQL TABLE移动

 

副本Table之行位置联动

假定窗口中插入了一个Table控件,绑定到"表A",作为副本。
希望在这个副本Table中选定一行时,表A也能自动选定这一行,实现这个任务很简单,只需将副本Table的CurrentChanged事件代码设置为:

Dim dr As DataRow = e.Table.Current.DataRow
Dim
wz As Integer = Tables("A").FindRow(dr)
If
wz >=0 Then
      Tables(
"A").Position = wz
End
If

反过来,如果你想在表A选定某行时,副本Table也能同步选定同一样,可以讲表A的CurrentChanged事件代码设置为:

If Forms("窗口1").Opened Then \'如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
   
If wz >=0 Then
        Tables(
"窗口1_Table1").Position = wz
   
End If
End
If

 

如果是SQL TABLE这个地方该怎么更改

[此贴子已经被作者于2014-1-2 13:46:21编辑过]

--  作者:wuxianzuoji41
--  发布时间:2014/1/2 13:49:00
--  
以下是引用wuxianzuoji41在2014-1-2 12:16:00的发言:

就是副本表我双击行弹出来一个窗口,窗口里额TEXT是绑定字段的,可以自动显示,

现在我改成我吧表改成了SQL TABLE这个就不起来做用了

 

因为TEXT绑定的当前行一直不跟着SQL TABLE移动

 

副本Table之行位置联动

假定窗口中插入了一个Table控件,绑定到"表A",作为副本。
希望在这个副本Table中选定一行时,表A也能自动选定这一行,实现这个任务很简单,只需将副本Table的CurrentChanged事件代码设置为:

Dim dr As DataRow = e.Table.Current.DataRow
Dim
wz As Integer = Tables("A").FindRow(dr)
If
wz >=0 Then
      Tables(
"A").Position = wz
End
If

反过来,如果你想在表A选定某行时,副本Table也能同步选定同一样,可以讲表A的CurrentChanged事件代码设置为:

If Forms("窗口1").Opened Then \'如果窗口已经打开
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("窗口1_Table1").FindRow(dr)
   
If wz >=0 Then
        Tables(
"窗口1_Table1").Position = wz
   
End If
End
If

 

如果是SQL TABLE这个地方该怎么更改

[此贴子已经被作者于2014-1-2 13:46:21编辑过]

bin在吗,麻烦给指点一下


--  作者:Bin
--  发布时间:2014/1/2 14:06:00
--  
请直接绑定这个SQLTABLE


--  作者:wuxianzuoji41
--  发布时间:2014/1/2 14:25:00
--  
以下是引用Bin在2014-1-2 14:06:00的发言:
请直接绑定这个SQLTABLE

不行,和直接在属性里绑定一样,也是无法实现绑定SQL TABLE的当前行。

[此贴子已经被作者于2014-1-2 14:25:00编辑过]

--  作者:wuxianzuoji41
--  发布时间:2014/1/2 16:04:00
--  

哪位老大给我回复一下,着急解决问题


--  作者:lsy
--  发布时间:2014/1/2 16:11:00
--  

例子传上来,也许早就搞定了。