甜版这个代码是在AfterOpenProject,能不能简写为定位到所有表最后一行,刚才看了下全局表,好像没有合适的事件
Dim idx As Integer = Tables("收入").FindRow(Tables("收入").DataTable.Find("车号 Is not null", "_Identify desc"))
If idx > -1 Then
Tables("收入").Position = idx
Else
Tables("收入").Position = Tables("收入").Rows.Count - 1
End If
Dim id As Integer = Tables("支出").FindRow(Tables("支出").DataTable.Find("车号 Is not null", "_Identify desc"))
If id > -1 Then
Tables("支出").Position = id
Else
Tables("支出").Position = Tables("支出").Rows.Count - 1
End If
Dim ixd As Integer = Tables("北斗安装").FindRow(Tables("北斗安装").DataTable.Find("车号 Is not null", "_Identify desc"))
If ixd > -1 Then
Tables("北斗安装").Position = ixd
Else
Tables("北斗安装").Position = Tables("北斗安装").Rows.Count - 1
End If
Dim id2 As Integer = Tables("北斗续费").FindRow(Tables("北斗续费").DataTable.Find("车号 Is not null", "_Identify desc"))
If id2 > -1 Then
Tables("北斗续费").Position = id2
Else
Tables("北斗续费").Position = Tables("北斗续费").Rows.Count - 1
End If
Dim id1 As Integer = Tables("日新车队").FindRow(Tables("日新车队").DataTable.Find("车号 Is not null", "_Sortkey desc"))
If id1 > -1 Then
Tables("日新车队").Position = id1
Else
Tables("日新车队").Position = Tables("日新车队").Rows.Count - 1
End If
加好友 
发短信
Post By：2014/12/22 19:58:00 [显示全部帖子]
