以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请教老师。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101548)

--  作者：jamhuton --  发布时间：2017/6/2 14:43:00 --  请教老师。 Dim l4 As WinForm.Label = Forms("打印出入库单").Controls("Label4") Dim l1 As WinForm.Label = Forms("打印出入库单").Controls("Label1") If l1.text.SubString(1,2)="RK" Then l4.text="入 库 单" MessageBox.Show("入库单" &l1.text.SubString(1,2)) End If If l1.text.SubString(1,2)="CK" Then l4.text="出 库 单" MessageBox.Show("出库单" &l1.text.SubString(1,2)) End If .NET Framework 版本：2.0.50727.8669 Foxtable 版本：2017.5.22.1 错误所在事件：窗口,打印出入库单,Label1,DataFormat 详细错误信息： startIndex 不能大于字符串长度。 参数名: startIndex

--  作者：gsnake --  发布时间：2017/6/2 14:51:00 --   l1.text  l4.text 的初值是什么啊？

--  作者：有点蓝 --  发布时间：2017/6/2 15:32:00 --   If l1.text.Length > 2 AndAlso l1.text.SubString(1,2)="RK" Then     l4.text="入 库 单"     MessageBox.Show("入库单" &l1.text.SubString(1,2)) End If If l1.text.Length > 2 AndAlso  l1.text.SubString(1,2)="CK" Then     l4.text="出 库 单"     MessageBox.Show("出库单" &l1.text.SubString(1,2)) End If

--  作者：jamhuton --  发布时间：2017/6/2 15:49:00 --   谢谢蓝老师！