Dim i As String = Forms("评估方案指引单编号输入").Controls("TextBox1").text
Dim dr As DataRow dr = DataTables("基本信息录入").Find("[编号] = '" & i & "'") If dr
IsNot Nothing Then Dim wz As Integer = Tables("基本信息录入").FindRow(dr) If wz >= 0 Then Tables("基本信息录入").Position = wz End If
加好友 
发短信
Post By：2012/2/15 14:26:00 [显示全部帖子]
