以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码的作用是什么呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177759)

--  作者:wukangppbb
--  发布时间:2022/6/2 14:16:00
--  这段代码的作用是什么呢?

这段代码的作用是什么呢?  我测试了一下,没有效果

AfterLoadTableSetting事件


For Each a As OBJECT In Tables("表B").grid.parent.controls
    For Each b As OBJECT In a.controls
        For Each c As OBJECT In b.controls
            If c.text = "第四列" Then  \'第四列为备注列
                c.font = New Font("微软雅黑",12)
            End If
        Next
    Next
Next


--  作者:有点蓝
--  发布时间:2022/6/2 14:25:00
--  
更改表B第四列列窗口的字体。现在不建议这种更改底层的功能,也不保证一直可用
--  作者:wukangppbb
--  发布时间:2022/6/2 15:07:00
--  回复:(有点蓝)更改表B第四列列窗口的字体。现在不建...
这句是哪里写错了呢?
Dim dt As DataTable = DataTables("授权")
Dim dr As DataRow
Dim s As String = dr("用户")
Dim ss As String = ""
Do While s.Length > 20
    ss = ss & vbCrLf & s.Substring(0, 20)
    s = s.Substring(20)
Loop
ss = ss & vbCrLf & s
ss = ss.Trim(vbcrlf)
Output.Show(ss)

--  作者:有点蓝
--  发布时间:2022/6/2 15:12:00
--  
有什么问题,提示什么错误?
--  作者:wukangppbb
--  发布时间:2022/6/2 15:20:00
--  回复:(有点蓝)有什么问题,提示什么错误?
提示的错误:


父代码执行出错,错误信息:
System.NullReferenceException:未将对象引用设置到对象的实例。
在UserCode.Test0



图片点击可在新窗口打开查看此主题相关图片如下:11111.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/6/2 15:25:00
--  
如果要取当前行数据使用current:http://www.foxtable.com/webhelp/topics/0445.htm

Dim s As String = Tables("授权").current("用户")
Dim ss As String = ""

--  作者:wukangppbb
--  发布时间:2022/6/2 15:48:00
--  回复:(有点蓝)如果要取当前行数据使用current:htt...
这个代码是用于分行显示的

但是对于表来说只要调整列宽就可以了,就无需加这个代码进去。

我是用于MouseEnterCell里面的

If e.Col.Name = "四级风险描述"  AndAlso e.Row.IsNull("四级风险描述" ) = False Then
    e.Table.ShowToolTip(e.Row("四级风险描述" ),e.Row,e.Col)
End If

主要是用于ToolTip的显示能分行,但是不知道怎么加到这个代码里面去了。

--  作者:有点蓝
--  发布时间:2022/6/2 15:52:00
--  
If e.Col.Name = "四级风险描述"  AndAlso e.Row.IsNull("四级风险描述" ) = False Then
Dim s As String = e.Row("四级风险描述" )
Dim ss As String = ""
Do While s.Length > 20
    ss = ss & vbCrLf & s.Substring(0, 20)
    s = s.Substring(20)
Loop
ss = ss & vbCrLf & s
ss = ss.Trim(vbcrlf)
    e.Table.ShowToolTip(ss,e.Row,e.Col)
End If

--  作者:wukangppbb
--  发布时间:2022/6/2 16:05:00
--  回复:(有点蓝)If e.Col.Name = "四级风险描述"&nbs...
现在显示就很nice了。

谢谢老师