- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于窗体表引用出错问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149378)
-- 发布时间：2020/4/30 7:45:00
-- 关于窗体表引用出错问题
Dim lst As new List(of String)
lst.AddRange({"记账日期","交易类型"})
Dim ct As WinForm.Table = e.Form.Controls("zjjgyszqkTable") 这句代码怎么加载临时表运行后提示找不到zjjgyszqkTable，如果是数据库表就正常呢？
Dim t As Table = ct.Table
Dim str As String
Dim w As Integer = 0
For Each c As Col In t.Cols
If c.Visible Then
If lst.Contains(c.Name) Then
str = str & "|" & c.Name & "|[width]"
Else
If c.Width = -1 Then
str = str & "|" & c.Name & "|98"
w += 98
Else
str = str & "|" & c.Name & "|" & c.Width
w += c.Width
End If
End If
End If
Next
Dim w2 As Integer = (ct.Width-23- w) / lst.Count
str = str.trim("|").Replace("[width]",w2)
t.SetColVisibleWidth(str)
-- 发布时间：2020/4/30 10:04:00
--
是不是绑定了什么合计行的用法？绑定后控件名称就变成了表格的名称
-- 发布时间：2020/4/30 10:11:00
--
Dim ct As WinForm.Table = e.Form.Controls("公用窗体_zjjgyszqkTable")
是这样吗？窗体表列宽度怎么不调整呢？
-- 发布时间：2020/4/30 10:32:00
--
msgbox(str)
-- 发布时间：2020/4/30 10:54:00
--
蓝老师这是什么？
-- 发布时间：2020/4/30 10:58:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2020/4/30 11:03:00
--
弹出
[此贴子已经被作者于2020/4/30 11:07:29编辑过]
-- 发布时间：2020/4/30 11:18:00
--
截图表格不就是设置后的宽度吗。
-- 发布时间：2020/4/30 11:21:00
--
只是调整前的宽度
此主题相关图片如下：截图01.jpg
[此贴子已经被作者于2020/4/30 11:31:33编辑过]
-- 发布时间：2020/4/30 11:27:00
--
[此贴子已经被作者于2020/4/30 11:27:45编辑过]