.NET Framework 版本:2.0.50727.3655
Foxtable 版本:2018.3.3.1
错误所在事件:菜单,增加,Click
详细错误信息:
Index and length must refer to a location within the string.
Parameter name: length
Forms("基础资料").Controls("页签").SelectedIndex = 0
Dim r As Row = Tables("基础资料").AddNew
Dim pg As WinForm.TabControl = Forms("基础资料").Controls("页签")
Dim n As String = pg.SelectedPage.Text
If n = "全部" Or n = "登记表打印" Or n = "从业证打印" Then
r("培训类别") = "从业人员"
Else
r("培训类别") = n
End If
'---------以下是自动生成工号--------------------------
Dim ia As String = DataTables("基础资料").Compute("max(序号)")
Dim idxa As Integer
If ia > "" Then
idxa = cint(ia.SubString(0,4)) +1
Else
idxa =1
End If
CurrentTable.Current("序号") = ForMAT(idxa,"0000")
'-------以上是自动生成工号-----------------------------
Forms("人员增加").open
Functions.Execute("外部刷新分类栏")
CurrentTable.TopVisibleRow = CurrentTable.rows.count - 1 '保证第一行可见
CurrentTable.LeftVisibleCol = 0 '保证第一列可见
以前还能使用,这段时间就修改列属性数值不是唯一,结果就出现了错误提示,请大神帮忙。万分感谢!!!