TabControl的用法请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

TabControl以下用法错误，应该怎么修改的？

Dim tb As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim r As Row = Tables("评价程序表").AddNew()

Dim cnt As Integer = DataTables("评价程序表").DataRows.Count '记录打开窗口前的行数

Forms("评价信息窗口").Open()

If DataTables("评价程序表").DataRows.Count = cnt '如果新增行已经保存

Dim vr As WinForm.TabControl = tb.Rows.Add()

For Each cl As WinForm.TabControlColumn In tb.Columns '逐列取值

vr(cl.Name) = r(cl.Name)

vr.Tag = r.DataRow

End If

此主题相关图片如下：微信截图_20220516234952.png

我是想达到这样一个效果

打开示例十七窗口，假设鼠标位置在第一行，点击“增加培训”记录的时候，打开培训记录的窗口，培训记录的窗口中的“编号”，“部门”，“姓名”按照示例十七窗口所在行自动填充，培训记录按照示例十七窗口的员工编号自动增加一个培训记录编号，比如“1-001”

再次点击“增加培训”记录的时候，培训记录编号变成“1-002”.

这个在帮助文件里面应该参照哪一个？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:listview示例0517.table

谢谢老师

但是我设置的这个“培训记录编号”自动编号，无法自动编号，麻烦帮忙看看。

Select e.DataCol.Name

Case "编号"

If e.DataRow.IsNull("编号") Then

e.DataRow("培训记录编号") = Nothing

Else

Dim bh As String = e.DataRow("编号")

If e.DataRow("培训记录编号").StartsWith(bh) = False '如果单据编号前缀不符

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(培训记录编号)","编号 = '" & bh & "' And [编号] <> " & e.DataRow("编号")) '取得该类别的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(1,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("培训记录编号") = bh & Format(idx,"000")

End If

End Select

有个报错

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.1.30.2

错误所在事件：表，培训记录，DataColChanged

详细错误信息：

调用的目标发生了异常。

StartIndex 不能小于 0。

参数名: startIndex

老师 AfterLoad 里面可以写两个 listview的加载代码吗？

我写的下面这个有报错：列“任务编号”不属于表评价程序表。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

lvw.Columns.Clear() '清除原来的列

lvw.Rows.Clear() '清除原来的行

lvw.Images.Clear() '清除原来的图片

lvw.GridLines = True '显示网格线

lvw.MultiSelect = False '禁止按Ctrl多选

'lvw.CheckBoxes = True '显示复选框

lvw.View = ViewMode.Details '显示模式为详细信息

Dim cls() As String = {"任务编号","任务名称","评价年度","评价单位"} '指定要显示的各列

Dim wds() As Integer = {"100","100","100","200"} '定义列宽

For i As Integer = 0 To cls.Length - 1

Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

c.Name = cls(i) '指定列名

c.Text = cls(i)'指定列标题

c.Width = wds(i) '指定列宽

For Each dr As DataRow In DataTables("内部控制评价任务清单").DataRows '从数据表中提取数据

Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行

For Each cl As String In cls '逐列取值

r(cl) = dr(cl)

lvw.ResumeRedraw() '恢复绘制

Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2")

lvw2.Columns.Clear() '清除原来的列

lvw2.Rows.Clear() '清除原来的行

lvw2.Images.Clear() '清除原来的图片

lvw2.GridLines = True '显示网格线

lvw2.MultiSelect = False '禁止按Ctrl多选

'lvw.CheckBoxes = True '显示复选框

lvw2.View = ViewMode.Details '显示模式为详细信息

Dim cls2() As String = {"评价任务编号","模块涉及的流程","主责部门","测试人"} '指定要显示的各列

Dim wds2() As Integer = {"100","100","100","200"} '定义列宽

For i2 As Integer = 0 To cls2.Length - 1

Dim c2 As WinForm.ListViewColumn = lvw2.Columns.Add()

c2.Name = cls2(i2) '指定列名

c2.Text = cls2(i2)'指定列标题

c2.Width = wds2(i2) '指定列宽

For Each dr2 As DataRow In DataTables("评价程序表").DataRows '从数据表中提取数据

Dim r2 As WinForm.ListViewRow = lvw2.Rows.Add() '增加一行

For Each cl2 As String In cls '逐列取值

r2(cl2) = dr2(cl2)

lvw.ResumeRedraw() '恢复绘制

主题：TabControl的用法请教