- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这段代码的作用是什么呢? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177759)
-- 发布时间：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第四列列窗口的字体。现在不建议这种更改底层的功能，也不保证一直可用
-- 发布时间：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
--
有什么问题，提示什么错误？
-- 发布时间：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 = ""
-- 发布时间：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
-- 发布时间：2022/6/2 16:05:00
-- 回复：（有点蓝）If e.Col.Name = "四级风险描述"&nbs...
现在显示就很nice了。
谢谢老师