谢谢。此公式，可以将对应表中的指针指定到相应位置，但在对应的窗口中，没有光标显示，如何将光标显示在窗口的该字段中。原代码如下：Dim bh As String = e.Form.Controls("购置申请编号").text
Dim ndb As String = e.Form.Controls("年度").text
Dim pib As String = e.Form.Controls("PI") .text
Dim jfly As String = e.Form.Controls("经费来源").text
Dim zxh As Short
Dim xzxh As String
Dim jflydm As String
Dim pidm As String
Dim fxh As Short
Dim xfxh As String
zxh = Tables("购置申请管理").Compute("max(购置申请编号分解_总序号)", "购置申请编号分解_年度 = '" & ndb & "'")
xzxh = Format(zxh+1, "000")
Dim dr As DataRow
dr = DataTables("经费来源种类").Find("名称= '" & jfly & "'")
If dr IsNot Nothing Then
jflydm=dr("代码")
End If
'MessageBox.show(jflydm)
Dim ddr As DataRow
ddr = DataTables("PI信息表").Find("姓名= '" & pib & "'")
If ddr IsNot Nothing Then
pidm=ddr("缩写")
End If
'MessageBox.show(pidm)
fxh = Tables("购置申请管理").Compute("max(购置申请编号分解_PI序号)", "购置申请编号分解_年度 = '" & ndb & "' And 购置申请编号分解_PI代码 = '" & pidm & "'")
xfxh = Format(fxh+1, "00")
' messageBox.show(xfxh)
e.form.controls("购置申请编号").text = xzxh & "-YQ" & ndb & "-" & jflydm & "-" & pidm & "-" & xfxh
' e.form.controls("购置申请编号").text = xzxh & "-YQ" & ndb & "-" & pib & "-" & jfly
Tables("购置申请管理").Current("购置申请编号") = e.form.controls("购置申请编号").text
Dim t As Table =Tables("购置申请管理")
t.Select(t.Current.Index, t.Cols("仪器名称_中文").Index)
Forms("生成购置申请编号").Close
加好友 
发短信
Post By：2016/6/24 14:18:00 [只看该作者]
