以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  【已解决】[求助]我想把这个自定义录入界面三的内容做到窗口SQLTable表“窗口1_Table1”里面，请问项目事件AfterOpenProject应该怎么写？自动调整行高、表内无数据关闭窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=132224)
--  作者：zto001
--  发布时间：2019/3/17 13:57:00
--  【已解决】[求助]我想把这个自定义录入界面三的内容做到窗口SQLTable表“窗口1_Table1”里面，请问项目事件AfterOpenProject应该怎么写？自动调整行高、表内无数据关闭窗口
我想把这个自定义录入界面三的内容做到窗口SQLTable表“窗口1_Table1”里面，请问项目事件AfterOpenProject应该怎么写？
帮助地址：http://www.foxtable.com/webhelp/scr/2465.htm

我写成
Tables("窗口1_Table1").Cols("客户ID").DropForm = "窗口1"
是有误的
1、快速输入下拉列表
2、自动调整行高、
3、表内无数据关闭窗口
[此贴子已经被作者于2019/3/19 15:37:23编辑过]
--  作者：有点蓝
--  发布时间：2019/3/18 9:32:00
--  
放到窗口的afterload事件
--  作者：zto001
--  发布时间：2019/3/19 13:43:00
--  
谢谢，上面这个问题解决了，有新的问题。

第二个问题：

我打开这个窗口表的时候，我希望列“备注”能够自动调整高度，需要怎么写？

If e.Col.Name = "备注" Then
    e.Table.AutoSizeRow(e.Row.Index)
End If


这个只能编辑后才能自动调整，不能打开窗口自动调整


[此贴子已经被作者于2019/3/19 13:47:16编辑过]
--  作者：zto001
--  发布时间：2019/3/19 13:47:00
--  
第三个问题：这个窗口表内没有数据的时候自动关闭这个窗口。应当怎么写呢？
--  作者：有点甜
--  发布时间：2019/3/19 14:35:00
--  

2、 http://www.foxtable.com/webhelp/scr/1552.htm

 

3、

 

If Tables("表A").rows.count=0 Then
    e.Form.close
End If
--  作者：zto001
--  发布时间：2019/3/19 15:36:00
--  
2、已解决
AfterLoad：
Tables("B售后_Table2").Cols("发送内容").Width= 100
Tables("B售后_Table2").AutoSizeRows()

3、已解决
控件：
If Tables("信息弹窗_Table1").rows.count=0 Then
    e.Form.close
End If