Dim Result As DialogResult
Result = MessageBox.Show("是否要执行此操作", "提示", MessageBoxButtons.YesNo)
If Result = DialogResult.No Then
'Return
Else
Dim t As Table = Tables("表A")
'dim c as integer = 0
If t.Current Is Nothing Then Return False
If t.TopPosition < 0 Then Return False '如果选定区域不包括数据行
Dim it As Win.Data.ITable = SYS.Tables(t.Name)
For i As Integer = it.TopRow To it.BottomRow
Dim r As Win.Data.IRow = it.Rows(i)
If r.visible = False Then Continue For
If r.IsNull("_Identify")= True Then Continue For
'For i As Integer = t.TopPosition To t.BottomPosition
'Dim r As Row = t.Rows(i)
SYS.execproc("数据源","exec 存储过程 '','"& r("_Identify") &"'")
r.Load() '此代码不是Win.Data.IRow 的成员，该怎么改
'c=c+1
Next
Try
'Dim dt As DataTable = DataTables("表A")
'dt.load
Catch ex As Exception
Throw ex
End Try
End If
MessageBox.Show("执行完毕,请检查是否有错误!", "提示")
加好友 
发短信
Post By：2018/7/6 9:45:00 [只看该作者]
