- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 动态加载 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135224)
-- 发布时间：2019/5/21 11:20:00
-- 动态加载
请教:动态加载的思路问题
在已经全部加载申请单的时候我在流水账的doubleclick写了这样的代码:
If e.Col.name = "申请单号" Then \'定位并打开该申请单
If e.Row("申请单号") IsNot Nothing Then
Dim dr As DataRow = DataTables("申请单").find("申请单号 = \'"& e.row("申请单号") & "\'")
If dr IsNot Nothing Then
Tables("申请单").Filter = ""
Dim wz As Integer = Tables("申请单").findrow(dr)
If wz >= 0 Then
Tables("申请单").Position = wz
End If
End If
End If
forms("申请单录入").open()
End If
在申请单实行动态加载以后我在流水账的doubleclick写了这样的代码:
If e.Col.name = "申请单号" Then \'定位并打开该申请单
If e.Row("申请单号") IsNot Nothing Then
Dim dr As DataRow = DataTables("申请单").SQLfind("申请单号 = \'"& e.row("申请单号") & "\'")
If dr IsNot Nothing Then
DataTables("申请单").LoadFilter = "申请单号 = \'"& e.row("申请单号") & "\'"
DataTables("申请单").load()
Dim wz As Integer = Tables("申请单").findrow(dr)
If wz >= 0 Then
Tables("申请单").Position = wz
End If
End If
End If
forms("申请单录入").open()
End If
请教,代码有需要改进的地方吗,我的系统目前全部都是打开系统加载全部数据,觉得有些慢了,想全部换成动态加载,感觉要更改代码的地方好多啊,而且自己有些晕乎,只能一点点啃了,谢谢老师
-- 发布时间：2019/5/21 13:30:00
--
父子表动态加载？
http://www.foxtable.com/webhelp/scr/2894.htm
http://www.foxtable.com/webhelp/scr/2932.htm
-- 发布时间：2019/5/21 13:55:00
-- 回复：（有点甜）父子表动态加载？ http://w...
甜老师,不是父子表的同步加载,只是在任何表有调用申请单的地方双击申请单号就调用打开这张申请单
如下图的2张表:
我的代码思路正确吗?
此主题相关图片如下：流水账.png
此主题相关图片如下：入库单.png
-- 发布时间：2019/5/21 13:57:00
--
编写全局表事件
http://www.foxtable.com/webhelp/scr/0671.htm