以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动行高  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149374)

--  作者:采菊东篱下
--  发布时间:2020/4/29 21:45:00
--  自动行高
  结束备注自定义项目编辑后备注单元格没自动行高。
密码:888888
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:象棋排赛(原).foxdb


[此贴子已经被作者于2020/4/29 21:52:39编辑过]

--  作者:有点蓝
--  发布时间:2020/4/30 9:53:00
--  
atferedit事件仅在单元格里直接编辑的时候才能触发,到datacolchanged事件加一段

Select Case e.DataCol.name
    Case "棋赛名称", "姓名"
        Dim fdr As DataRow = DataTables("基本信息").SQLfind("[棋赛名称] = \'" & e.DataRow("棋赛名称") & "\' and [姓名] = \'" & e.DataRow("姓名") & "\'")
        If  e.DataRow.IsNull("棋赛名称") And e.DataRow.IsNull("姓名") Then
            e.DataRow("编号") = Nothing
            e.DataRow("姓名") = Nothing
        End If
        If fdr IsNot Nothing
            e.DataRow("编号") = fdr("编号")
            e.DataRow("姓名") = fdr("姓名")
        End If
    Case "备注"
        Dim idx As Integer = Tables("比赛积分").FindRow(e.DataRow)
        Tables("比赛积分").AutoSizeRow(idx)
End Select

--  作者:采菊东篱下
--  发布时间:2020/4/30 11:13:00
--  
为什么用了自定义项目编辑后备注单元格只能在备注窗口输入不能直接输入?能否在单元格也能直接输入?
--  作者:有点蓝
--  发布时间:2020/4/30 11:23:00
--  
在单元格中显示按钮的方法很简单,只需将该列的列表项目设为“...”或“|...”即可,差别是前者不能编辑单元格的内容,后者则可以
在默认情况下,单击单元格按钮会出现一个编辑窗口,用于向单元格输入内容。
--  作者:采菊东篱下
--  发布时间:2020/4/30 12:02:00
--  
哦,行了,谢谢,真是细节决定成败!我得好好细学。