UC知道vb增加异常，急救
来源：百度知道 编辑：UC知道 时间：2024/05/31 04:20:38
'生成档案编号
Dim dabh As Long
Dim rsl As New ADODB.Recordset
rsl.Open"select * from 人事档案信息表 order by 档案编号",Cnn,
adOpenKeyset,adLockOptimistic
If rsl.RecordsetCount>0 Then
If rsl.EOF=False Then rsl.MoveLast
dabh=Val(Right(rsl.Fields(""),5))+1
main_rsxx-lr.Text1(0).Text="C-" & Format(dabh,"00000")
Else
main_rsxx-lr.Text1(0).Text="C-00001"
End If
’生成工号
main_rsxx-lr.Text1(1).Text=Right(Text1(0).Text,5)
rsl.Close
‘调用main_rsxx_lr窗体
Load main_rsxx_lr
main_rsxx_lr.Show
提示Right(Text1(0).Text,5)中的Text1是错误的参数号或无效的属性赋值，
但我是有Text1(0)和Text1(1)这两个控件的，分别代表档案编号和工号，请各位高手帮我看看啊，很急，下午要交了，谢谢
请问可不可以帮我编写一下呢，因为我确实不太懂程序，是毕业设计要交，没办法，谢谢
Dim dabh As Long
Dim rsl As New ADODB.Recordset
rsl.Open"select * from 人事档案信息表 order by 档案编号",Cnn,
adOpenKeyset,adLockOptimistic
If rsl.RecordsetCount>0 Then
If rsl.EOF=False Then rsl.MoveLast
dabh=Val(Right(rsl.Fields(""),5))+1
main_rsxx-lr.Text1(0).Text="C-" & Format(dabh,"00000")
Else
main_rsxx-lr.Text1(0).Text="C-00001"
End If
’生成工号
main_rsxx-lr.Text1(1).Text=Right(Text1(0).Text,5)
rsl.Close
‘调用main_rsxx_lr窗体
Load main_rsxx_lr
main_rsxx_lr.Show
提示Right(Text1(0).Text,5)中的Text1是错误的参数号或无效的属性赋值，
但我是有Text1(0)和Text1(1)这两个控件的，分别代表档案编号和工号，请各位高手帮我看看啊，很急，下午要交了，谢谢
请问可不可以帮我编写一下呢，因为我确实不太懂程序，是毕业设计要交，没办法，谢谢
main_rsxx-lr.Text1(1).Text=Right(Text1(0).Text,5) 中
main_rsxx-lr里的"-"应为"_"
试试
实在不行加个新变量试试，文本框有时就是有错，我也遇到过。
就是把Text1(0).Text符给变量，再Right(变量,5)。
单独测试是没有问题的。
Dim dabh As Long, Temp As String
Dim rsl As New ADODB.Recordset
rsl.Open "select * from 人事档案信息表 order by 档案编号", Cnn, adOpenKeyset, adLockOptimistic
If rsl.RecordsetCount > 0 Then
If rsl.EOF = False Then rsl.MoveLast
dabh = Val(Right(rsl.Fields(""), 5)) + 1
main_rsxx -lr.Text1(0).Text = "C-" & Format(dabh, "00000")
Else
main_rsxx -lr.Text1(0).Text = "C-00001"
End If
'生成工号
Temp = Text1(0).Text
main_rsxx -lr.Text1(1).Text = Right(Temp, 5)
rsl.Close
'调用main_rsxx_lr窗体
Load main_rsxx_lr
main_rsxx_lr.Show