UC知道vb增加问题
来源：百度知道 编辑：UC知道 时间：2024/09/23 10:27:40
'生成档案编号
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,"0000")
Else
main_rsxx-lr.Text1(0).Text="C-00001"
End If
’生成工号
main_rsxx-lr.Text1(1).Text=Right(Text1(0),5)
rsl.Close
‘调用main_rsxx_lr窗体
Load main_rsxx_lr
main_rsxx_lr.Show
提示Right(Text1(0),5)中的Text1是错误的参数号或无效的属性赋值，
当我改成Right(Txt1(0),5)时，距又话子程序或函数未定义。点解会
甘架，麻烦各位高手帮忙看看，急，谢谢。
还是出现一样的问题，为什么呢
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,"0000")
Else
main_rsxx-lr.Text1(0).Text="C-00001"
End If
’生成工号
main_rsxx-lr.Text1(1).Text=Right(Text1(0),5)
rsl.Close
‘调用main_rsxx_lr窗体
Load main_rsxx_lr
main_rsxx_lr.Show
提示Right(Text1(0),5)中的Text1是错误的参数号或无效的属性赋值，
当我改成Right(Txt1(0),5)时，距又话子程序或函数未定义。点解会
甘架，麻烦各位高手帮忙看看，急，谢谢。
还是出现一样的问题，为什么呢
你是广东人吗。。。。
不是Right(Text1(0),5),应该是Right(Text1(0).Text,5)
这是操心大意的错误哦。。。。是你的作业吗？程序员犯了这错误的话还真原谅不得.....
想想就知道， 怎么可以直接对Text控件进行截右操作？对Text控件的Text属性(文字内容)进行操作才对。。。
Right(Text1(0),5)，改成 Right(Text1(0).text,5