- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎么根据编号选中与另外一个表相同的编号的行啊 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51850)
-- 发布时间：2014/6/4 14:43:00
-- 怎么根据编号选中与另外一个表相同的编号的行啊
比如表A的第二列和表B（绑定窗口表）的第一列有相同的编号
此主题相关图片如下：qq截图20140604143726.jpg
-- 发布时间：2014/6/4 14:50:00
--
知识点http://www.foxtable.com/help/topics/0552.htm
-- 发布时间：2014/6/4 14:51:00
--
写positionChanged事件，代码
Dim fdr As DataRow = DataTables("表A").Find("第二列 = \'" & e.Table.Current("第一列") & "\'")
If fdr IsNot Nothing Then
e.Form.Controls("Label1").Text = fdr("第二列")
e.Form.Controls("Label2").Text = fdr("第三列")
e.Form.Controls("Label3").Text = fdr("第四列")
e.Form.Controls("Label4").Text = fdr("第五列")
e.Form.Controls("Label5").Text = fdr("第六列")
e.Form.Controls("Label6").Text = fdr("第七列")
e.Form.Controls("Label7").Text = fdr("第八列")
Else
e.Form.Controls("Label1").Text = Nothing
e.Form.Controls("Label2").Text = Nothing
e.Form.Controls("Label3").Text = Nothing
e.Form.Controls("Label4").Text = Nothing
e.Form.Controls("Label5").Text = Nothing
e.Form.Controls("Label6").Text = Nothing
e.Form.Controls("Label7").Text = Nothing
End If
-- 发布时间：2014/6/4 19:59:00
--
为什么复制了代码不能用啊 怎么没有看到第二列名啊！感谢 感谢
-- 发布时间：2014/6/4 20:01:00
--
仔细看3楼，或者直接看2楼。
-- 发布时间：2014/6/4 20:59:00
--
-- 发布时间：2014/6/4 21:00:00
--
人家例子都给你做出来了，例子可用，你自己不会改造，是自己的问题。
-- 发布时间：2014/6/5 7:40:00
--
是不是应该把第二列的表写在里面啊，感谢，感谢
-- 发布时间：2014/6/5 7:58:00
--
If e.Table.Current
Is Nothing Then \'如果Current为Nothing
Return
\'则返回
End
If
Dim wz As
Integer
Dim dr As
DataRow
dr = DataTables("客户").Find("[客户ID] = \'" & e.Table.Current("客户ID") &
"\'")
If dr IsNot Nothing
Then
wz = Tables("客户").FindRow(dr)
If wz
>= 0
Then
Tables("客户").Position = wz
End
If
End
If
-- 发布时间：2014/6/5 9:07:00
--
是不是应该把第二列的表写在里面啊，感谢，感谢
2楼用的是控件绑定表，3楼的直接给控件赋值。